> Idris Samawi Hamid ادريس سماوي حامد <mailto:Idris.Hamid@colostate.edu>
> 7. August 2017 um 15:54
> Hi Hans,
>
> https://mailman.ntg.nl/pipermail/ntg-context/2017/089431.html
>
> For the current writing project: It seems I've gotten about as far as 
> I'm going to get on the list with this. Could you kindly take a look 
> at the two automation challenges at the end of the message when you 
> get a chance?
>
> Eventually we want to also get, e.g.
>
> 1.01
> 2.01
>
> etc. but the full decimal version is a start. Here is a link to the 
> book that illustrates the layout:
>
> https://www.dropbox.com/s/q7znlu0y362abno/Mure-Introduction-to-Hegel-OCR.pdf?dl=0 
>
>
> Thanks in advance for your help.
>
> Idris
> Wolfgang Schuster <mailto:schuster.wolfgang@gmail.com>
> 7. August 2017 um 20:17
>
>
> \defineexpandable[1]\PreviousNumber
>   {\number\numexpr#1-1\relax}
>
> \defineconversion[PreviousNumber][\PreviousNumber]
>
> \defineconversionset[ParagraphNumber][n,PreviousNumber,PreviousNumber]
> \defineseparatorset [ParagraphNumber][.,]
>
> \definecounter[ParagraphNumber][numberconversionset=ParagraphNumber,numberseparatorset=ParagraphNumber]
>
> \define\ParagraphNumber
>   {\incrementcounter[ParagraphNumber]%
>    \incrementcounter[ParagraphNumber][2]%
>    \incrementcounter[ParagraphNumber][3]%
>    \convertedcounter[ParagraphNumber][numbersegments=1]\quad}
>
> \define\subParagraphNumber
>   {\incrementcounter[ParagraphNumber][2]%
>    \incrementcounter[ParagraphNumber][3]%
>    \convertedcounter[ParagraphNumber][numbersegments=1:2]\quad}
>
> \define\subsubParagraphNumber
>   {\incrementcounter[ParagraphNumber][3]%
>    \convertedcounter[ParagraphNumber][numbersegments=1:3]\quad}
>
> \setupwhitespace[line]
>
> \starttext
>
> \ParagraphNumber\input ward
>
> \subsubParagraphNumber\input ward
>
> \subParagraphNumber\input ward
>
> \subsubParagraphNumber\input ward
>
> \subsubParagraphNumber\input ward
>
> \subParagraphNumber\input ward
>
> \subsubParagraphNumber\input ward
>
> \ParagraphNumber\input ward
>
> \stoptext

Simpler version:

\defineseparatorset [ParagraphNumber][.,]

\definecounter[ParagraphNumber][numberseparatorset=ParagraphNumber,criterium=all]

\define\ParagraphNumber
   {\incrementcounter[ParagraphNumber]%
    \convertedcounter[ParagraphNumber][numbersegments=1]\quad}

\define\subParagraphNumber
   {\incrementcounter[ParagraphNumber][2]%
    \convertedcounter[ParagraphNumber][numbersegments=1:2]\quad}

\define\subsubParagraphNumber
   {\incrementcounter[ParagraphNumber][3]%
    \convertedcounter[ParagraphNumber][numbersegments=1:3]\quad}

\setupwhitespace[line]

\starttext

\ParagraphNumber\input ward

\subsubParagraphNumber\input ward

\subParagraphNumber\input ward

\subsubParagraphNumber\input ward

\subsubParagraphNumber\input ward

\subParagraphNumber\input ward

\subsubParagraphNumber\input ward

\ParagraphNumber\input ward

\stoptext


Wolfgang