1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus { loading }{ ConTeXt Typesetting Macros Digits }
15
16\unprotect
17
18\registerctxluafile { typo dig }{}
19
20\definesystemattribute [ digits ][ public ]
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41\unexpanded \def \setdigitsmanipulation [# 1 ]
42 { \clf_setdigitsmanipulation { # 1 }}
43
44\unexpanded \def \resetdigitsmanipulation
45 { \c_attr_digits \attributeunsetvalue }
46
47\appendtoks
48 \resetdigitsmanipulation
49\to \everyresettypesetting
50
51\unexpanded \def \equaldigits { \groupedcommand { \setdigitsmanipulation [ \number \plusone ] }{}}
52\unexpanded \def \dummydigit { \hphantom { \setdigitsmanipulation [ \number \plusone ] 0 }}
53
54\appendtoks
55 \resetdigitsmanipulation
56\to \everyinitializeverbatim
57
58\protect \endinput
59 |