1
2
3
4
5
6
7
8
9
10
11
12
13
14\startluacode
15 fonts.handlers.otf.addfeature {
16 name = "sz",
17 type = "multiple",
18 data = {
19 ["ẞ"] = { "S", "S" }
20 }
21 }
22\stopluacode
23
24\definefontfeature[sz][sz=yes]
25
26\unexpanded\def\enableuppercasesharps {\overloaduppercase{0xDF}{0x1E9E}}
27\unexpanded\def\disableuppercasesharps{\overloaduppercase{0xDF}{0x53,0x53}}
28
29\installtexdirective
30 {fonts.uppercasesharps}
31 \enableuppercasesharps
32 \disableuppercasesharps
33
34\continueifinputfile{slingualde.mkiv}
35
36\setupbodyfont[libertine]
37
38\starttext
39 \def\TestString{Buße Busse BUẞE BUSSE \WORD{Buße Busse}}
40
41 \dorecurse{5} {
42 \disableuppercasesharps
43 \TestString\par
44 \enableuppercasesharps
45 \TestString\par
46 {\addfeature{sz}\TestString}\par
47 }
48\stoptext
49
50 |