Source Browser ?

1%D \module
2%D   [       file=strc-syn,
3%D        version=2008.10.20,
4%D          title=\CONTEXT\ Structure Macros,
5%D       subtitle=Synonyms and Sorting,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\writestatus{loading}{ConTeXt Structure Macros / Synonyms and Sorting}
15
16\registerctxluafile{strc-syn}{}
17
18%D Although we could nowadays build this on top of regular lists we keep this
19%D more efficient variant around. Eventually we can add some options to lists
20%D that also provide such functionality but at the cost of much more overhead.
21%D
22%D We show a usage of both synonyms and sorts, which are deep down variants of
23%D so called simple lists. A definition looks like this:
24%D
25%D \startbuffer
26%D \definesynonyms
27%D   [myabbreviation]
28%D
29%D \setupsynonyms
30%D   [myabbreviation]
31%D   [headstyle=bold,
32%D    headcolor=darkred,
33%D    synonymstyle=boldslanted,
34%D    synonymcolor=darkblue,
35%D    textstyle=slanted,
36%D    textcolor=darkgreen,
37%D    style=normal,
38%D    color=darkyellow]
39%D
40%D \definesorting
41%D   [mylogo]
42%D
43%D \setupsorting
44%D   [mylogo]
45%D   [style=bold,
46%D    color=darkmagenta]
47%D \stopbuffer
48%D
49%D \typebuffer \getbuffer
50%D
51%D More complex definitions involves commands to call up meanings and such. The
52%D use of the defined commands is as follows: \
53%D
54%D \startbuffer
55%D \myabbreviation [FIRST]  {TheFirst}  {The First Words}
56%D \myabbreviation [SECOND] {TheSecond} {The Second Words}
57%D \myabbreviation [THIRD]  {TheThird}  {The Third Words}
58%D
59%D \mylogo [FOURTH] {TheFourth}
60%D \stopbuffer
61%D
62%D \typebuffer \getbuffer
63%D
64%D By default a synonym is just typeset and flagges as being used, so that in
65%D a list it wil be shows with its meaning. You can however also expand the
66%D meaning automatically at first use:
67%D
68%D \startbuffer
69%D \setupsynonyms[myabbreviation][alternative=first]
70%D
71%D We have \FIRST, \SECOND\ and also \THIRD\ but no \FOURTH.
72%D
73%D We have \FIRST, \SECOND\ and also \THIRD\ but no \FOURTH.
74%D \stopbuffer
75%D
76%D \typebuffer \getbuffer
77%D
78%D We can change the order, as demonstrated in:
79%D
80%D \startbuffer
81%D \resetshownsynonyms[myabbreviation]
82%D
83%D \setupsynonyms[myabbreviation][alternative=last]
84%D
85%D We have \FIRST\ and \THIRD\ or \FOURTH.
86%D
87%D We have \FIRST\ and \THIRD\ or \FOURTH.
88%D \stopbuffer
89%D
90%D \typebuffer \getbuffer
91%D
92%D A list is called up with:
93%D
94%D \startbuffer
95%D \placelistofsynonyms[myabbreviation]
96%D
97%D \placelistofsorts[mylogo]
98%D \stopbuffer
99%D
100%D \typebuffer \getbuffer
101%D
102%D The lists are constructions (like descriptions are) and can be set up
103%D likewise.
104
105% todo: add 'define only' option to descriptions, then add sorting (also based on key)
106% and call to definition -> replaces this module
107
108\unprotect
109
110% split but common in lua
111
112\permanent\protected\def\preprocessexpansion#1#2#3#4% do this at the lua end if still needed
113  {\ifx#1\s!xml
114     \xmlstartraw
115       \xdef#2{#4}%
116     \xmlstopraw
117     \glet#3\s!xml
118   \else
119     \ifx#1\v!yes
120       \xdef#2{#4}%
121     \else
122       \xdef#2{\detokenize{#4}}%
123     \fi
124     \glet#3\s!tex
125   \fi}
126
127%D We now use a simple list variant:
128
129\installcorenamespace {simplelist}
130
131\installcommandhandler \??simplelist {simplelist} \??simplelist
132
133\aliased\let\setupsimplelists\setupsimplelist
134
135\setupsimplelists[%
136    %c!title=,
137    %c!text=,
138    %
139    %c!style=,
140    %c!color=,
141    %c!command=,
142    %c!align=,
143    %
144    %c!headstyle=,
145    %c!headcolor=,
146    %c!headalign=,
147    %
148    %c!titlestyle=,
149    %c!titlecolor=,
150    %c!titlecommand=,
151    %c!titleleft=,
152    %c!titleright=,
153    %
154    %c!closesymbol=,
155    %c!closecommand=,
156    %
157    \c!alternative=\v!left,
158    \c!display=\v!yes,
159    \c!width=7\emwidth,
160    \c!distance=\emwidth,
161    \c!titledistance=.5\emwidth,
162    %c!hang=,
163    %c!sample=,
164    \c!margin=\v!no,
165    \c!before=\startpacked,
166    \c!inbetween=\blank,
167    \c!after=\stoppacked,
168    %c!indentnext=,
169    %c!indenting=,
170    %
171    \c!expansion=\v!no,
172    %c!xmlsetup=,
173    %s!catcodes=,
174    \s!language=\currentmainlanguage,
175]
176
177\appendtoks
178    \setfalse\c_strc_constructions_define_commands
179    \ifempty\currentsimplelistparent
180        \defineconstruction[\currentsimplelist][\s!handler=\v!simplelist,\c!level=1]%
181    \else
182        \defineconstruction[\currentsimplelist][\currentsimplelistparent][\s!handler=\v!simplelist,\c!level=1]%
183    \fi
184    \settrue\c_strc_constructions_define_commands
185\to \everydefinesimplelist
186
187\protected\defcsname\??constructioninitializer\v!simplelist\endcsname
188  {\let         \currentsimplelist               \currentconstruction
189   \enforced\let\constructionparameter           \simplelistparameter
190   \enforced\let\constructionnamespace           \??simplelist
191   \enforced\let\detokenizedconstructionparameter\detokenizedsimplelistparameter
192   \enforced\let\letconstructionparameter        \letsimplelistparameter
193   \enforced\let\useconstructionstyleandcolor    \usesimpleliststyleandcolor
194   \enforced\let\setupcurrentconstruction        \setupcurrentsimplelist}
195
196\protected\defcsname\??constructionfinalizer\v!simplelist\endcsname
197  {}
198
199\protected\defcsname\??constructiontexthandler\v!simplelist\endcsname
200  {\begingroup
201   \useconstructionstyleandcolor\c!headstyle\c!headcolor
202   \the\everyconstruction
203   \constructionparameter\c!headcommand
204     {\strut
205      \currentsimplelistentry}%
206   \endgroup}
207
208% And we build on top of this.
209
210\ifdefined\dotagsynonym \else \aliased\let\dotagsynonym\relax \fi
211\ifdefined\dotagsorting \else \aliased\let\dotagsorting\relax \fi
212
213\definesimplelist
214  [\v!synonym]
215  [\c!state=\v!start,
216  %\c!synonymstyle=,
217  %\c!textstyle=,
218  %\c!headstyle=,
219  %\c!headcolor=,
220  %\c!criterium=,
221   \c!location=\v!left,
222   \c!width=5\emwidth,
223   \c!distance=\zeropoint,
224  %\c!sample=,
225  %\c!hang=,
226  %\c!align=,
227  %\c!before=,
228  %\c!inbetween=,
229  %\c!after=,
230   \c!indentnext=\v!no,
231  %\c!expansion=,
232   \c!method=]
233
234\aliased\let\setupsynonyms\setupsimplelist
235
236% these  might become private
237
238\mutable\let\currentsynonymoption   \empty
239\mutable\let\currentsynonymcoding   \empty
240\mutable\let\currentsynonymexpansion\empty
241\mutable\let\currentsynonym         \empty
242\mutable\let\currentsynonymtag      \empty
243\mutable\let\currentsynonymtext     \empty
244
245\permanent\tolerant\protected\def\definesynonyms[#1]#*[#2]#*[#3]#*[#4]% name plural \meaning \use
246  {\ifnum\lastarguments=\plusfour
247     \protected\instance\def#4##1{\strc_synonyms_insert{#1}{##1}}% name tag
248     \frozen\instance\protected\defcsname#1\endcsname{\definesynonym[\v!no][#1]}% \name
249   \else
250     \frozen\instance\protected\defcsname#1\endcsname{\definesynonym[\v!yes][#1]}% \name
251   \fi
252   \ifparameter#3\or
253     \frozen\instance\protected\def#3##1{\strc_synonyms_insert_meaning{#1}{##1}}% \meaning
254   \fi
255   \edef\currentsynonym{#1}%
256   %
257  %\checksynonymparent
258  %\setupcurrentsynonym[\s!single={#1},\s!multi={#2}]%
259   \setfalse\c_strc_constructions_define_commands
260   \definesimplelist
261     [\currentsynonym]%
262     [\v!sorting]
263     [\s!single={#1},%
264      \s!multi={#2}]%
265   \settrue\c_strc_constructions_define_commands
266   \ifparameter#2\or
267     %
268     \presetheadtext[#2=\Word{#2}]% changes the \if...argument
269     %
270     % These will go away. Actually the overloads catched this empty case!
271     %
272     \frozen\instance\protected\defcsname\e!setup #2\e!endsetup\endcsname{\setupsynonyms[#1]}% obsolete definition
     \frozen\instance\protected\defcsname\e!place   \e!listof#2\endcsname{\placelistofsynonyms[#1]}% accepts extra argument
274     \frozen\instance\protected\defcsname\e!complete\e!listof#2\endcsname{\completelistofsynonyms[#1]}%
275   \fi}
276
277% \abbreviation[XXX][321]{321}{Three, Two, One} : optional sort key
278
279\permanent\tolerant\protected\def\definesynonym[#1]#*[#2]#*[#3]#*[#4]% [yes][abbreviation][FOO]{foo}{foo me}
280  {\begingroup
281   \edef\currentsynonymoption{#1}%
282   \edef\currentsynonym{#2}%
283   \edef\currentsynonymtag{#3}%
284   \edef\currentsynonymsortkey{#4}%
285   \strc_synonyms_define_entry}
286
287% \installcorenamespace {synonymentry}
288%
289% \installsetuponlycommandhandler \??synonymentry {synonymentry}
290%
291% \permanent\tolerant\protected\def\setsynonym[#1]#*[#2]%
292%   {\begingroup
293%    \setupsynonymentry[#2]%
294%    \edef\currentsynonym       {#1}%
295%    \edef\currentsynonymoption {\synonymentryparameter\c!option}%
296%    \edef\currentsynonymtag    {\synonymentryparameter\c!tag}%
297%    \edef\currentsynonymsortkey{\synonymentryparameter\c!sortkey}%
298%    \strc_synonyms_define_entry{\synonymentryparameter\c!text}{\synonymentryparameter\c!meaning}}
299
300\def\strc_synonyms_define_entry#1#2%
301  {\let\currentsimplelist\currentsynonym
302   \ifempty\currentsynonymtag
303     \edef\currentsynonymtag{#1}%
304   \fi
305   \ifempty\currentsynonymtag \else
306     % this is not that efficient, esp when we load a big list
307     \edef\currentsynonymexpansion{\simplelistparameter\c!expansion}%
308     \preprocessexpansion\currentsynonymexpansion\m_synonyms_text   \currentsynonymcoding{#1}%
309     \preprocessexpansion\currentsynonymexpansion\m_synonyms_meaning\currentsynonymcoding{#2}%
310     % currently they all end up in the tuc file
311     \clf_registersynonym
312        {\currentsynonym}%
313        {synonym}%
314        {%
315            metadata {%
316                catcodes \catcodetable
317                coding   {\currentsynonymcoding}%
318            \ifx\currentsynonymcoding\s!xml
319                xmlroot  {\xmldocument}%
320            \fi
321            }%
322            definition {%
323                tag     {\currentsynonymtag}%
324                sortkey {\currentsynonymsortkey}%
325                synonym {\m_synonyms_text}%
326                meaning {\m_synonyms_meaning}%
327              % used    false
328            }%
329        }%
330     \relax
331     \ifx\currentsynonymoption\v!yes
332       \instance\setuxvalue\currentsynonymtag{\strc_synonyms_insert{\currentsynonym}{\currentsynonymtag}}%
333     \fi
334   \fi
335   \endgroup}
336
337\permanent\tolerant\protected\def\registersynonym  [#1]#*[#2]{\clf_registerusedsynonym{#1}{#2}}
338\permanent         \protected\def\currentsynonymname         {\clf_synonymname{\currentsimplelist}{\currentsynonymtag}}
339\permanent         \protected\def\currentsynonymmeaning      {\clf_synonymmeaning{\currentsimplelist}{\currentsynonymtag}}
340\permanent         \protected\def\doifelsecurrentsynonymused {\clf_doifelsesynonymused{\currentsimplelist}{\currentsynonymtag}}
341\permanent         \protected\def\doifelsecurrentsynonymshown{\clf_doifelsesynonymshown{\currentsimplelist}{\currentsynonymtag}}
342\permanent         \protected\def\resetusedsynonyms      [#1]{\clf_resetusedsynonyms{#1}}
343\permanent         \protected\def\resetshownsynonyms     [#1]{\clf_resetshownsynonyms{#1}}
344
345\aliased\let\rawsynonymname   \clf_synonymname
346\aliased\let\rawsynonymmeaning\clf_synonymmeaning
347
348\installcorenamespace{simplelistalternative} % specific ways of rendering a list
349\installcorenamespace{simplelistrenderings}  % a namespace for setups (rather local)
350
351\installcommandhandler \??simplelistalternative {simplelistalternative} \??simplelistalternative
352
353\setupsimplelist
354  [\v!synonym]
355  [\c!alternative=\v!normal]
356
357\protected\def\strc_synonyms_insert_meaning#1#2% name tag
358  {\dontleavehmode % otherwise we don't get it right at the beginning of a par
359   \begingroup
360   \def\currentsimplelist{#1}%
361   \def\currentsynonymtag{#2}%
362   \fastsetup{\??simplelistrenderings::\v!text}%
363   \endgroup}
364
365\protected\def\strc_synonyms_insert#1#2% name tag
366  {\dontleavehmode % otherwise we don't get it right at the beginning of a par
367   \begingroup
368   \edef\currentsimplelist{#1}%
369   \let\currentsynonym\currentsimplelist % for a while
370   \def\currentsynonymtag{#2}%
371   \edef\currentsimplelistalternative{\simplelistparameter\c!alternative}%
372   \doifnotcommandhandler\??simplelistalternative\currentsimplelistalternative
373     {\let\currentsimplelistalternative\v!normal}%
374   \fastsetup{\??simplelistrenderings:\v!synonym:\currentsimplelistalternative}%
375   \normalexpanded{\endgroup\simplelistparameter\c!next}}
376
377% \setupsimplelistalternative
378%   [\c!command=\directsimplelistparameter\c!command]
379
380\definesimplelistalternative
381  [\v!normal]
382  [\c!inbetween=\space,
383   \c!left=(,
384   \c!right=)]
385
386\definesimplelistalternative
387  [\v!first]
388  [\v!normal]
389
390\definesimplelistalternative
391  [\v!last]
392  [\v!normal]
393
394\startsetups[\??simplelistrenderings::\v!synonym]
395    \begingroup
396    \dostarttaggedchained\t!synonym\currentsynonym\??simplelist
397    \dotagsynonym
398    \usesimpleliststyleandcolor\c!synonymstyle\c!synonymcolor
399    \simplelistparameter\c!synonymcommand{\currentsynonymname}%
400    \dostoptagged
401    \endgroup
402\stopsetups
403
404\startsetups[\??simplelistrenderings::\v!text]
405    \begingroup
406    \usehyphensparameter\simplelistparameter
407    \usesimpleliststyleandcolor\c!textstyle\c!textcolor
408    \simplelistparameter\c!textcommand{\currentsynonymmeaning}%
409    \endgroup
410\stopsetups
411
412\startsetups[\??simplelistrenderings:\v!synonym:\v!normal]
413    \fastsetup{\??simplelistrenderings::\v!synonym}
414\stopsetups
415
416\startsetups[\??simplelistrenderings:\v!synonym:\v!first]
417    \fastsetup{\??simplelistrenderings::\v!synonym}
418    \doifelsecurrentsynonymshown \donothing {
419        \simplelistalternativeparameter\c!inbetween
420        \simplelistalternativeparameter\c!left
421        \fastsetup{\??simplelistrenderings::\v!text}
422        \simplelistalternativeparameter\c!right
423    }
424\stopsetups
425
426\startsetups[\??simplelistrenderings:\v!synonym:\v!last]
427    \doifelsecurrentsynonymshown {
428        \fastsetup{\??simplelistrenderings::\v!synonym}
429    } {
430        \fastsetup{\??simplelistrenderings::\v!text}
431        \simplelistalternativeparameter\c!inbetween
432        \simplelistalternativeparameter\c!left
433        \fastsetup{\??simplelistrenderings::\v!synonym}
434        \simplelistalternativeparameter\c!right
435    }
436\stopsetups
437
438\aliased\let\synonymentry\relax
439
\permanent\tolerant\protected\def\placelistofsynonyms[#1]#*[#2]%
441  {\begingroup
442   \edef\currentsimplelist{#1}%
443   \doifelsecommandhandler\??simplelist\currentsimplelist
444     {\strc_constructions_initialize{#1}%
445      \setupcurrentsimplelist[#2]%
446      \enforced\let\synonymentry\strc_synonym_normal
447      % so we can hook tabulate into before and after
448      \normalexpanded{\simplelistparameter\c!before
449        \noexpand\clf_processsynonyms
450           {#1}%
451           {%
452               criterium {\simplelistparameter\c!criterium}%
453               language  {\simplelistparameter\s!language}%
454               method    {\simplelistparameter\c!method}%
455           }%
456        \relax
457      \simplelistparameter\c!after}%
458      \relax}%
459     {}% todo: message that invalid
460   \endgroup}
461
462\permanent\tolerant\protected\def\completelistofsynonyms[#1]#*[#2]%
463  {\begingroup
464   \edef\currentsimplelist{#1}%
465   \doifelsecommandhandler\??simplelist\currentsimplelist
466     {\normalexpanded{\startnamedsection[\v!chapter][\c!title={\headtext{\simplelistparameter\s!multi}},\c!reference=#1]}%
        \placelistofsynonyms[#1][#2]%
468        \page
469      \stopnamedsection}%
470     {}% todo: message that invalid
471   \endgroup}
472
473\mutable\let\currentsimplelistentry\empty
474
475\protected\def\strc_synonym_normal#1#2#3#4%
476  {\begingroup
477   \def\currentsimplelistentry{#3}%
478   \csname\??constructionstarthandler\v!construction\endcsname
479   #4%
480   \csname\??constructionstophandler\v!construction\endcsname
481   \endgroup}
482
483%D Sorting (a simplified version of synonym).
484
485\definesimplelist
486  [\v!sorting]
487  [\c!state=\v!start,
488  %\c!command=, % we test for defined !
489  %\c!criterium=,
490  %\c!style=,
491   \c!before=\startpacked,
492   \c!after=\stoppacked,
493  %\c!expansion=,
494   \c!method=]
495
496\aliased\let\setupsorting\setupsimplelist
497
498% if #3=\relax or \v!none, then no command but still protected
499
500% these  might become private
501
502\mutable\let\currentsortingoption   \empty
503\mutable\let\currentsortingcoding   \empty
504\mutable\let\currentsortingexpansion\empty
505\mutable\let\currentsorting         \empty
506\mutable\let\currentsortingtag      \empty
507\mutable\let\currentsortingtext     \empty
508
509\permanent\tolerant\protected\def\definesorting[#1]#*[#2]#*[#3]%
510  {\ifnum\lastarguments=\plusthree
511     \doifnot{#3}\v!none
512       {\ifx#3\relax \else
513          \protected\instance\def#3##1{\strc_sorting_insert{#1}{##1}}%
514        \fi}%
515     \frozen\instance\protected\defcsname#1\endcsname{\definesort[\v!no][#1]}%
516   \else
517     \frozen\instance\protected\defcsname#1\endcsname{\definesort[\v!yes][#1]}%
518   \fi
519   \edef\currentsorting{#1}%
520   \setfalse\c_strc_constructions_define_commands
521   \definesimplelist
522     [\currentsorting]%
523     [\v!sorting]
524     [\s!single={#1},%
525      \s!multi={#2}]%
526   \settrue\c_strc_constructions_define_commands
527   \ifparameter#2\or
528     %
529     \presetheadtext[#2=\Word{#2}]% changes the \if...argument
530     %
531     % These will go away. Actually the overloads catched this empty case!
532     %
533     %
534     \presetheadtext[#2=\Word{#2}]%
535     %
536     \frozen\instance\protected\defcsname\e!setup #2\e!endsetup\endcsname{\setupsorting[#1]}% obsolete definition
537     \frozen\instance\protected\defcsname\e!place   \e!listof#2\endcsname{\placelistofsorts[#1]}%
538     \frozen\instance\protected\defcsname\e!complete\e!listof#2\endcsname{\completelistofsorts[#1]}%
539   \fi}
540
541\permanent\tolerant\protected\def\definesort[#1]#*[#2]#*[#3]%
542  {\begingroup
543   \edef\currentsortingoption{#1}%
544   \edef\currentsorting{#2}%
545   \edef\currentsortingtag{#3}%
546   \strc_sorting_define_entry}
547
548\def\strc_sorting_define_entry#1%
549  {\let\currentsimplelist\currentsimplelist
550   \ifempty\currentsortingtag
551     \edef\currentsortingtag{#1}%
552   \fi
553   \ifempty\currentsortingtag \else
554     \edef\currentsortingexpansion{\simplelistparameter\c!expansion}%
555     \preprocessexpansion\currentsortingexpansion\currentsortingtext\currentsortingcoding{#1}%
556     \clf_registersynonym
557        {\currentsorting}%
558        {sorting}%
559        {%
560            metadata {%
561                catcodes \catcodetable
562                coding   {\currentsortingcoding}%
563            \ifx\currentsortingcoding\s!xml
564                xmlroot  {\xmldocument}%
565            \fi
566            }%
567            definition {%
568                tag     {\currentsortingtag}%
569                synonym {\currentsortingtext}%
570              % used    false
571            }%
572        }%
573     \relax
574     \ifx\currentsortingoption\v!yes
575       \instance\setuxvalue\currentsortingtag{\strc_sorting_insert{\currentsorting}{\currentsortingtag}}%
576     \fi
577   \fi
578   \endgroup}
579
580\permanent\protected\def\currentsortingname         {\clf_synonymname         {\currentsimplelist}{\currentsortingtag}}
581\permanent\protected\def\doifelsecurrentsortingused {\clf_doifelsesynonymused {\currentsimplelist}{\currentsortingtag}}
582\permanent\protected\def\resetusedsortings      [#1]{\clf_resetusedsynonyms   {#1}}
583
584\setupsimplelist
585  [\v!sorting]
586  [\c!alternative=\v!normal]
587
588\protected\def\strc_sorting_insert#1#2% name tag
589  {\dontleavehmode % otherwise we don't get it right at the beginning of a par
590   \begingroup
591   % no kap currently, of .. we need to map cap onto WORD
592   \edef\currentsorting{#1}%
593   \edef\currentsortingtag{#2}%
594   \let\currentsimplelist\currentsorting
595   \edef\currentsimplelistalternative{\simplelistparameter\c!alternative}%
596   \doifnotcommandhandler\??simplelistalternative\currentsimplelistalternative
597     {\let\currentsimplelistalternative\v!normal}%
598   \fastsetup{\??simplelistrenderings:\v!sorting:\currentsimplelistalternative}%
599   \normalexpanded{\endgroup\simplelistparameter\c!next}}
600
601% or:
602%
603% \doifelsesetups{\??simplelistrenderings:\v!sorting:\currentsimplelistalternative}
604%    {\fastsetup{\??simplelistrenderings:\v!sorting:\currentsimplelistalternative}}
605%    {\fastsetup{\??simplelistrenderings:\v!sorting:\v!normal}}
606
607\startsetups [\??simplelistrenderings:\v!sorting:\v!normal]
608   \fastsetup{\??simplelistrenderings::\v!sorting}%
609\stopsetups
610
611\startsetups [\??simplelistrenderings::\v!sorting]
612    \begingroup
613    \dostarttaggedchained\t!sorting\currentsorting\??simplelist
614    \dotagsorting
615    \usesimpleliststyleandcolor\c!style\c!color
616    \currentsortingname
617    \dostoptagged
618    \endgroup
619\stopsetups
620
621\permanent\tolerant\protected\def\registersort[#1]#*[#2]%
622  {\clf_registerusedsynonym{#1}{#2}}
623
624% before after
625%
626% maybe just 'commandset' and then combine
627
628\permanent\tolerant\protected\def\placelistofsorts[#1]#*[#2]%
629  {\begingroup
630   \edef\currentsimplelist{#1}%
631   \strc_constructions_initialize{#1}%
632   \setupcurrentsimplelist[#2]%
633   \edef\p_simplelist_command{\simplelistparameter\c!command}%
634   \ifempty\p_simplelist_command
635     \enforced\let\synonymentry\strc_sorting_normal
636   \else
637     \enforced\let\synonymentry\strc_sorting_command
638   \fi
639   % so we can hook tabulate into before and after
640   \normalexpanded{\simplelistparameter\c!before
641     \noexpand\clf_processsynonyms
642        {#1}%
643        {%
644            criterium {\simplelistparameter\c!criterium}%
645            language  {\simplelistparameter\s!language}%
646            method    {\simplelistparameter\c!method}%
647        }%
648     \relax
649   \simplelistparameter\c!after}%
650   \endgroup}
651
652\permanent\tolerant\protected\def\completelistofsorts[#1]#*[#2]%
653  {\begingroup
654   \edef\currentsimplelist{#1}%
655   \normalexpanded{\startnamedsection[\v!chapter][\c!title={\headtext{\simplelistparameter\s!multi}},\c!reference=#1]}%
656   \placelistofsorts[#1][#2]%
657   \page
658   \stopnamedsection
659   \endgroup}
660
661\def\strc_sorting_command#1#2#3#4% #4 is meaning but empty here
662  {\p_simplelist_command{#1}{#2}{#3}}
663
664\def\strc_sorting_normal#1#2#3#4% #4 is meaning but empty here
665  {\begingroup
666   \usesimpleliststyleandcolor\c!style\c!color
667   #3%
668   \endgroup
669   \par}
670
671%D Presets.
672
673% To be considered:
674%
675% \setupsimplelist
676%   [\v!sorting]
677%   [\c!headstyle=\simplelistparameter\c!synonymstyle,
678%    \c!headcolor=\simplelistparameter\c!synonymcolor,
679%    \c!style=\simplelistparameter\c!textstyle,
680%    \c!color=\simplelistparameter\c!textcolor]
681
682\definesynonyms
683  [\v!abbreviation]
684  [\v!abbreviations]
685  [\infull]
686
687\setupsynonyms
688  [\v!abbreviation]
689  [\c!hyphens=\v!no, % new, not yet in setup definitions
690   \c!textstyle=\v!capital]
691
692\definesorting
693  [\v!logo]
694  [\v!logos]
695% [\logogram] % no
696
697\protect \endinput
698