1if not modules then modules = { } end modules [ ' math-spa ' ] = {
2 version = 1 . 001 ,
3 comment = " companion to math-ini.mkiv " ,
4 author = " Hans Hagen, PRAGMA-ADE, Hasselt NL " ,
5 copyright = " PRAGMA ADE / ConTeXt Development Team " ,
6 license = " see context related readme files "
7}
8
9
10
11local penalty_code = nodes . nodecodes . penalty
12local glue_code = nodes . nodecodes . glue
13
14local nuts = nodes . nuts
15local tonut = nodes . tonut
16local tonode = nodes . tonode
17
18local getid = nuts . getid
19local getnext = nuts . getnext
20local getwidth = nuts . getwidth
21local setglue = nuts . setglue
22local getpenalty = nuts . getpenalty
23local setpenalty = nuts . setpenalty
24local getdimensions = nuts . dimensions
25local nextglue = nuts . traversers . glue
26
27local texsetdimen = tex . setdimen
28
29local v_none = interfaces . variables . none
30local v_auto = interfaces . variables . auto
31
32local method = v_none
33local distance = 0
34
35function noads . handlers . align ( h )
36 if method ~ = v_none then
37 if method = = v_auto then
38 local s = h
39 while s do
40 local id = getid ( s )
41 local n = getnext ( s )
42 if id = = penalty_code and getpenalty ( s ) = = 1 then
43 setpenalty ( s , 0 )
44 if n and getid ( n ) = = glue_code then
45 s = n
46 n = getnext ( s )
47 end
48 local w = getdimensions ( h , n ) + distance
49 texsetdimen ( " global " , " d_strc_math_indent " , w )
50 break
51 end
52 s = n
53 end
54 else
55 texsetdimen ( " global " , " d_strc_math_indent " , distance )
56 end
57 for n in nextglue , h do
58 setglue ( n , getwidth ( n ) , 0 , 0 )
59 end
60 else
61
62 end
63end
64
65interfaces . implement {
66 name = " setmathhang " ,
67 arguments = {
68 {
69 { " method " , " string " } ,
70 { " distance " , " dimension " } ,
71 }
72 } ,
73 actions = function ( t )
74 method = t . method or v_none
75 distance = t . distance or 0
76 end
77}
78
79interfaces . implement {
80 name = " resetmathhang " ,
81 actions = function ( t )
82 method = v_none
83 distance = 0
84 end
85}
86
87 |
