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{typodig}{}
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 |