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

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

On 8/8/2017 12:32 AM, Idris Samawi Hamid ادريس سماوي حامد wrote:

Thank you again, Wolfgang. After playing with this, figured out how to do the full decimal version; just toggle

% \defineseparatorset [ParagraphNumber][.,] % no second decimal for susubparagraphs \defineseparatorset [ParagraphNumber][.,.] % second decimal for susubparagraphs

Pablo, could you wikify this? The following page is now obsolete:

http://wiki.contextgarden.net/Paragraph_Enumeration

Thanks in advance.

Again, many thanks to Pablo and Wolfgang. Hey, you are the one who should now wikify this!

Hans ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl -----------------------------------------------------------------

On Mon, 07 Aug 2017 13:57:56 -0600, Wolfgang Schuster wrote:

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

Here is a first attempt to combine this paragraph numbering with sectioning: \defineseparatorset [ParagraphNumber][.,] % no second decimal for susubparagraphs % \defineseparatorset [ParagraphNumber][.,.] % second decimal for susubparagraphs \definecounter[ParagraphNumber][numberseparatorset=ParagraphNumber,criterium=all] \define\ParagraphNumber {{\bf \incrementcounter[ParagraphNumber]% \convertedcounter[ParagraphNumber][numbersegments=1]}\quad} \define\subParagraphNumber {{\bf \incrementcounter[ParagraphNumber][2]% \convertedcounter[ParagraphNumber][numbersegments=1:2]}\quad} \define\subsubParagraphNumber {{\bf \incrementcounter[ParagraphNumber][3]% \convertedcounter[ParagraphNumber][numbersegments=1:3]}\quad} \setuphead[section] [style=\bf, alternative=text, criterium=all, number=no] \setuphead[subsection] [style=\bf, alternative=text, criterium=all, number=no] \setuphead[subsubsection] [style=\bf, alternative=text, criterium=all, number=no] \setupwhitespace[line] \def\startsectionpar{\startsection[title={\ParagraphNumber}]} \def\startsubsectionpar{\startsection[title={\subParagraphNumber}]} \def\startsubsubsectionpar{\startsection[title={\subsubParagraphNumber}]} \def\stopsectionpar{\stopsection} \def\stopsubsectionpar{\stopsubsection} \def\stopsubsubsectionpar{\stopsubsubsection} \starttext \startsectionpar[title=\ParagraphNumber] \input ward \startsubsectionpar[title=\subParagraphNumber] \input ward \startsubsubsectionpar[title=\subsubParagraphNumber] \input ward \stopsubsubsectionpar \stopsubsectionpar \stopsectionpar \startsectionpar[title=\ParagraphNumber] \input ward \startsubsubsectionpar[title=\subsubParagraphNumber] \input ward \stopsubsubsectionpar \stopsection \stoptext ============== There are surely ways to continue to improve this.. Thanks again, Wolfgang, and to everyone who has contributed. Idris -- Idris Samawi Hamid, Professor Department of Philosophy Colorado State University Fort Collins, CO 80512

On Tue, 08 Aug 2017 22:14:15 -0600, Idris Samawi Hamid ادريس سماوي حامد wrote:

Wikified by Pablo:

http://wiki.contextgarden.net/Paragraph_Enumeration#Using_Section_Numbering_...

And coming soon to a beta near you:

http://wiki.contextgarden.net/Titles#Complete_Section_Numbering

Much improved version, with optional titles - updated the wiki: ============== \defineseparatorset [ParagraphNumber][.,] % no second decimal for susubparagraphs % \defineseparatorset [ParagraphNumber][.,.] % second decimal for susubparagraphs \definecounter[ParagraphNumber][numberseparatorset=ParagraphNumber,criterium=all] \define\ParagraphNumber {{\bf \incrementcounter[ParagraphNumber]% \convertedcounter[ParagraphNumber][numbersegments=1]}\quad} \define\subParagraphNumber {{\bf \incrementcounter[ParagraphNumber][2]% \convertedcounter[ParagraphNumber][numbersegments=1:2]}\quad} \define\subsubParagraphNumber {{\bf \incrementcounter[ParagraphNumber][3]% \convertedcounter[ParagraphNumber][numbersegments=1:3]}\quad} \setuphead[section] [style=\bf, alternative=text, criterium=all, number=no, textcommand=\ParagraphNumber, insidesection=\hskip-0.49em] % adjust space after title \setuphead[subsection] [style=\bf, alternative=text, criterium=all, number=no, textcommand=\subParagraphNumber, insidesection=\hskip-0.49em] % adjust space after title \setuphead[subsubsection] [style=\bf, alternative=text, criterium=all, number=no, textcommand=\subsubParagraphNumber, insidesection=\hskip-0.49em] % adjust space after title \setupwhitespace[line] \starttext \startsection[title={Text.}] \input ward \startsubsection \input ward \startsubsubsection[title={Text.}] \input ward \stopsubsubsection \stopsubsection \stopsection \startsection \input ward \startsubsubsection \input ward \stopsubsubsection \stopsection \stoptext ============== Any further suggestions for improvement?

Many thanks to Wolfgang, Pablo, and of course Hans.

Idris -- Idris Samawi Hamid, Professor Department of Philosophy Colorado State University Fort Collins, CO 80512

Hi Idriss, Pablo, Wolfgang and Hans, It has been a long time since I have read the Wittgenstein "Tractacus-Logico-Philosophicus". I remember, when I was 20, that I was very puzzled by this assertion : "Wovon man nicht klar sagen, muss man schweigen". I guess Wittgenstein didn't think about coding numbered paragraphs ! JP Le 08/08/2017 à 00:26, Idris Samawi Hamid ادريس سماوي حامد a écrit :

Hi Wolfgang,

On Mon, 07 Aug 2017 12:17:21 -0600, Wolfgang Schuster wrote:

...

...

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

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

Many thanks, Wolfgang, you are a true wizard. Wittgenstein and Mure would be proud.

With much appreciation Idris