blob: 82c8be0ec3470285a753498464f8d94cb648222a (
plain)
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
|
%D \module
%D [ file=spac-chr,
%D version=2011.05.24, % code moved from core-spa.mkiv
%D title=\CONTEXT\ Spacing Macros,
%D subtitle=Characters,
%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 Spacing Macros / Characters}
\unprotect
\registerctxluafile{spac-chr}{autosuffix,optimize}
\definesystemattribute[characters][public]
%D The nobreakspace is special as it needs to keep track of the space being
%D flexible. Another option is to use space (glue) nodes and tag them as characters
%D instead. No big deal but takes a moment of coding. So, as a prelude we
%D tag the nobreakspace only. Interesting is that it also fits better in the
%D tagging mechanism.
%D
%D But we need to do some checking as from then on we no longer can compare
%D them in a string. So this needs thinking. Not that we can compare the
%D nobreakspace now anyway.
\pushoverloadmode
%immutable\edef\nobreakspace {\begingroup\setalignstateattribute\normalUchar"00A0\endgroup} % 1 = left
\immutable\edef\nobreakspace {\normalUchar"00A0} % space
\immutable\edef\softhyphen {\normalUchar"00AD} % softhyohen
\immutable\edef\enquad {\normalUchar"2000} % quad/2
\immutable\edef\emquad {\normalUchar"2001} % quad
\immutable\edef\twoperemspace {\normalUchar"2002} % quad/2
% % "2003 % quad == \quad == \hskip\emwidth
\immutable\edef\threeperemspace {\normalUchar"2004} % quad/3
\immutable\edef\fourperemspace {\normalUchar"2005} % quad/4
%immutable\edef\fiveperemspace {\normalUchar"001E} % quad/5 (bonus)
\immutable\edef\sixperemspace {\normalUchar"2006} % quad/6
\immutable\edef\figurespace {\normalUchar"2007} % width of zero
\immutable\edef\punctuationspace {\normalUchar"2008} % width of period
\immutable\edef\breakablethinspace {\normalUchar"2009} % quad/8
\immutable\edef\hairspace {\normalUchar"200A} % quad/8
\immutable\edef\zerowidthspace {\normalUchar"200B} % 0
\immutable\edef\zerowidthnonjoiner {\normalUchar"200C} % 0
\immutable\edef\zerowidthjoiner {\normalUchar"200D} % 0
\immutable\edef\narrownobreakspace {\normalUchar"202F} % quad/8
%immutable\edef\mediummathspace {\normalUchar"205F} % space/8 (math)
%immutable\edef\zerowidthnobreakspace{\normalUchar"FEFF}
%immutable\edef\fiveperemspace {\normalUchar"001E}
\immutable\protected\def\zerowidthnobreakspace{\penalty\plustenthousand\kern\zeropoint}
\immutable\protected\def\fiveperemspace {\hskip\dimexpr\emwidth/5\relax}
\aliased\let\ideographicspace \enquad
\aliased\let\ideographichalffillspace \emquad
\immutable\let\zwnj \zerowidthnonjoiner
\immutable\let\zwj \zerowidthjoiner
\immutable\let\nbsp \nobreakspace
\popoverloadmode
\immutable\chardef\optionalspace"1F % will be space unless before punctuation
% Shortcuts:
% unexpanded as otherwise we need to intercept / cleanup a lot
\protected\def~{\nobreakspace}
\protect \endinput
|