Source Browser ?

1%D \module
2%D   [      file=s-lingual-de,
3%D        version=2016.04.17,
4%D          title=\CONTEXT\ Linguistic File,
5%D       subtitle=German TWeaks,
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\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{s-lingual-de.mkiv}
35
36\setupbodyfont[libertine]
37
38\starttext
39    \def\TestString{Buße Busse BUẞE BUSSE \WORD{Buße Busse}}
40   %\definefontfeature[default][default][sz=yes]
    \dorecurse{5} {
42        \disableuppercasesharps
43        \TestString\par
44        \enableuppercasesharps
45        \TestString\par
46        {\addfeature{sz}\TestString}\par
47    }
48\stoptext
49
50