1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus{loading}{ConTeXt Spacing Macros Characters}
15
16\unprotect
17
18\registerctxluafile{spacchr}{autosuffix}
19
20\definesystemattribute[characters][public]
21
22
23
24
25
26
27
28
29
30
31
32\pushoverloadmode
33
34
35\immutable\edef\nobreakspace {\tocharacter"00A0}
36\immutable\edef\softhyphen {\tocharacter"00AD}
37\immutable\edef\enquad {\tocharacter"2000}
38\immutable\edef\emquad {\tocharacter"2001}
39\immutable\edef\twoperemspace {\tocharacter"2002}
40
41\immutable\edef\threeperemspace {\tocharacter"2004}
42\immutable\edef\fourperemspace {\tocharacter"2005}
43
44\immutable\edef\sixperemspace {\tocharacter"2006}
45\immutable\edef\figurespace {\tocharacter"2007}
46\immutable\edef\punctuationspace {\tocharacter"2008}
47\immutable\edef\breakablethinspace {\tocharacter"2009}
48\immutable\edef\hairspace {\tocharacter"200A}
49\immutable\edef\zerowidthspace {\tocharacter"200B}
50\immutable\edef\zerowidthnonjoiner {\tocharacter"200C}
51\immutable\edef\zerowidthjoiner {\tocharacter"200D}
52\immutable\edef\narrownobreakspace {\tocharacter"202F}
53
54
55
56
57\immutable\protected\def\zerowidthnobreakspace{\penalty\plustenthousand\kern\zeropoint}
58\immutable\protected\def\fiveperemspace {\hskip\dimexpr\emwidth5\relax}
59
60\aliased\let\ideographicspace \enquad
61\aliased\let\ideographichalffillspace \emquad
62
63\immutable\let\zwnj \zerowidthnonjoiner
64\immutable\let\zwj \zerowidthjoiner
65\immutable\let\nbsp \nobreakspace
66
67\popoverloadmode
68
69\immutable\chardef\optionalspace "1F
70\immutable\chardef\autoinsertedspace"1E
71
72
73
74
75
76\pushoverloadmode
77
78\protected\def{\nobreakspace}
79
80\popoverloadmode
81
82\protect \endinput
83
84 |