> 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.

\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


Wolfgang