Source Browser ?

1
%D \module
2
%D   [       file=typo-dig,
3
%D        version=2010.01.18,
4
%D          title=\CONTEXT\ Typesetting Macros,
5
%D       subtitle=Digits,
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
\writestatus
{
loading
}{
ConTeXt
 
Typesetting
 
Macros
 
/
 
Digits
}
15
16
\unprotect
17
18
\registerctxluafile
{
typo
-
dig
}{}
19
20
\definesystemattribute
[
digits
][
public
]
21
22
%D This could as well be a dynamic font feature but why bother.
23
%D
24
%D \macros
25
%D   {\equaldigits}
26
%D
27
%D \startbuffer
28
%D test test \ruledhbox{123}               test test\par
29
%D test test \ruledhbox{\equaldigits{123}} test test\par
30
%D test test            \equaldigits{123}  test test\par
31
%D \stopbuffer
32
%D
33
%D \typebuffer
34
%D
35
%D This calls result in:
36
%D
37
%D \startlines
38
%D \getbuffer
39
%D \stoplines
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