lang-rep.mkiv /size: 2272 b    last modification: 2020-07-01 14:35
1%D \module
2%D   [       file=lang-rep,
3%D        version=2013.04.28,
4%D          title=\CONTEXT\ Language Macros,
5%D       subtitle=Substitution,
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%D As I needed an example of messing with nodes for the bacho\TEX\ tutorial
15%D I cooked up this. In the end I decided to stick to a simpler example and
16%D just finished this off in case someone really needs it.
17
18\writestatus{loading}{ConTeXt Language Macros / Replacements}
19
20\unprotect
21
22\registerctxluafile{lang-rep}{}
23
24\definesystemattribute[replacements][public,global]
25
26%D \startluacode
27%D
28%D     -- todo: other nodes (prelude to more experiments with auto dropped caps)
29%D
30%D     languages.replacements.add("basics", {
31%D         ["aap"]   = "monkey",
32%D         ["noot"]  = "nut",
33%D         ["never"] = "forever",
34%D         ["newer"] = "cooler",
35%D         ["new"]   = "cool",
36%D      -- ["special"] = "veryspe{>>>}{<<<}{=}cial",
37%D     })
38%D
39%D \stopluacode
40%D
41%D \replaceword[more][this][that]
42%D \replaceword[more][crap][support]
43%D \replaceword[more][---][—]
44%D \replaceword[basics][special][veryspe{>>>}{<<<}{=}cial]
45%D
46%D \starttyping
47%D \start \setreplacements[basics] What the heck, it's now or never, isn't it new? \par \stop
48%D \start \setreplacements[more]   Do we --- {\it really} --- need this kind of crap? \par \stop
49%D \start \setreplacements[basics] All kinds of special thingies! \par \stop
50%D \start \setreplacements[basics] \hsize1mm special \par \stop
51%D \stoptyping
52
53\unexpanded\def\setreplacements[#1]%
54  {\clf_setreplacements{#1}}
55
56\unexpanded\def\resetreplacements
57  {\c_attr_replacements\attributeunsetvalue}
58
59\unexpanded\def\replaceword
60  {\dotripleempty\languages_replacements_replace}
61
62\unexpanded\def\languages_replacements_replace[#1][#2][#3]%
63  {\ifthirdargument
64     \clf_addreplacements{#1}{#2}{#3}%
65   \else\ifsecondargument
66     \clf_addreplacementslist{#1}{#2}%
67   \fi\fi}
68
69\appendtoks
70    \resetreplacements
71\to \everyresettypesetting
72
73\appendtoks
74    \resetreplacements
75\to \everyinitializeverbatim
76
77\protect \endinput
78