1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
%D \module
%D [ file=lang-ovl,
%D version=2016.02.03, % about that time (maybe earlier)
%D title=\CONTEXT\ Typesetting Macros,
%D subtitle=Overloads,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
\writestatus{loading}{ConTeXt Typesetting Macros / Overloads}
\unprotect
%D See \LUA\ file for comments. I'll probably never use this code outside the
%D project where it had some experimental use. (Occasionally we do some spell
%D checking and suspicious word usage marking.) So there is not much documentation
%D here. Keep in mind that overloading only makes sense for content that gets
%D replaced as otherwise normal attributes make more sense. Using this otherwise
%D is weird but one never knows what users come up with.
\registerctxluafile{typo-ovl}{autosuffix}
\definesystemattribute[overloads][public,global]
\installcorenamespace{overloads}
%D Watch how we abuse highlights.
\newcount\c_typo_overload_font_id
\protected\def\typo_overloads_define#1%
{\begingroup
% we pack so we avoid interference (and for sure don't process!)
\setbox\scratchbox\hpack\bgroup
\global\c_typo_overload_font_id\fontid\font
\resetallattributes % so we only change what gets set
\highlight[#1]%
\signalcharacter
\global\c_typo_overload_font_id
\ifnum\c_typo_overload_font_id=\fontid\font
\zerocount
\else
\fontid\font
\fi
\egroup
\global\expandafter\chardef\csname\??overloads#1\endcsname
\clf_overloadsattribute{#1}\c_typo_overload_font_id\scratchbox
\endgroup}
\permanent\protected\def\setoverloads[#1]%
{\ifcsname\??overloads#1\endcsname\else
\typo_overloads_define{#1}%
\fi
\c_attr_overloads\csname\??overloads#1\endcsname}
\permanent\protected\def\registeroverloads[#1]%
{\ifcsname\??overloads#1\endcsname\else
\typo_overloads_define{#1}%
\fi}
\permanent\protected\def\resetoverloads
{\c_attr_overloads\attributeunsetvalue}
%D We hook this into the replacement module, probably the only place where it makes
%D sense. Here is an adapted version of an example:
%D
%D \starttyping
%D \replaceword[basics][new] [old]
%D \replaceword[basics][now] [hl3->never]
%D \replaceword[basics][never][now]
%D \replaceword[basics][heck] []
%D
%D \definehighlight[hl1][style={\setbar[underbar]\red\setcharactercasing[WORD]\bf}]
%D \definehighlight[hl2][style={\setbar[overbar]\blue\setcharactercasing[Words]}]
%D \definehighlight[hl3][style={\setbar[overstrike]\green\bs}]
%D
%D \registeroverloads[hl1]
%D \registeroverloads[hl2]
%D \registeroverloads[hl3]
%D
%D \start \setreplacements[basics][hl1] What the heck, it's now or never, isn't it new? \stop \par
%D \start \setreplacements[basics][hl2] What the heck, it's now or never, isn't it new? \stop \par
%D \start \setreplacements[basics][hl1] What the heck, it's now or never, isn't it new? \stop \par
%D \start \setreplacements[basics] What the heck, it's now or never, isn't it new? \stop \par
%D \stoptyping
%D
%D We used it to mark synonyms that should not be corrected by the editor. Sort of the
%D reverse of not having a word in a vetted wordlist. A bit out of place in a typesetting
%D system. If really needed we can support multiple words seperataed by spaces but I didn't
%D need it. And \unknown\ fonts are supported but at fixed size!
\ifdefined\setreplacements
\pushoverloadmode
\permanent\tolerant\protected\def\setreplacements[#1]#*[#2]%
{\clf_setreplacements{#1}%
\ifparameter#2\or
\setoverloads[#2]%
\else
\resetoverloads
\fi}
\popoverloadmode
\else
% something weird
\fi
\protect
|
