diff options
author | Hans Hagen <pragma@wxs.nl> | 2021-05-16 11:46:45 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-05-16 11:46:45 +0200 |
commit | 330909ad62342ff873dc758b909968c66d0252a4 (patch) | |
tree | 72b7552cdc6925b962badb33aa9b307d949144b0 /tex/context/base/mkxl/typo-spa.lmt | |
parent | 4396699cb99f42f6378ed7229788bbceb898851a (diff) | |
download | context-330909ad62342ff873dc758b909968c66d0252a4.tar.gz |
2021-05-15 22:44:00
Diffstat (limited to 'tex/context/base/mkxl/typo-spa.lmt')
-rw-r--r-- | tex/context/base/mkxl/typo-spa.lmt | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/tex/context/base/mkxl/typo-spa.lmt b/tex/context/base/mkxl/typo-spa.lmt index f453814fb..88ade876e 100644 --- a/tex/context/base/mkxl/typo-spa.lmt +++ b/tex/context/base/mkxl/typo-spa.lmt @@ -29,12 +29,12 @@ local getprev = nuts.getprev local getattr = nuts.getattr local isglyph = nuts.isglyph -local insert_node_before = nuts.insert_before -local insert_node_after = nuts.insert_after +local insertnodebefore = nuts.insertbefore +local insertnodeafter = nuts.insertafter local remove_node = nuts.remove -local end_of_math = nuts.end_of_math -local unset_attributes = nuts.unset_attributes -local find_attribute = nuts.find_attribute +local endofmath = nuts.endofmath +local unsetattributes = nuts.unsetattributes +local findattribute = nuts.findattribute local nodepool = nuts.pool local new_penalty = nodepool.penalty @@ -72,7 +72,7 @@ end -- todo cache lastattr function spacings.handler(head) - local _, start = find_attribute(head, a_spacings) + local _, start = findattribute(head, a_spacings) if start then local done = false -- head is always begin of par (whatsit), so we have at least two prev nodes @@ -118,8 +118,8 @@ function spacings.handler(head) if trace_spacing then report_spacing("inserting penalty and space before %C (left)",char) end - insert_node_before(head,start,new_penalty(10000)) - insert_node_before(head,start,new_glue(left*quad)) + insertnodebefore(head,start,new_penalty(10000)) + insertnodebefore(head,start,new_glue(left*quad)) end end local next = getnext(start) @@ -149,8 +149,8 @@ function spacings.handler(head) if trace_spacing then report_spacing("inserting penalty and space after %C (right)",char) end - insert_node_after(head,start,new_glue(right*quad)) - insert_node_after(head,start,new_penalty(10000)) + insertnodeafter(head,start,new_glue(right*quad)) + insertnodeafter(head,start,new_penalty(10000)) end end end @@ -158,14 +158,14 @@ function spacings.handler(head) done = true end elseif id == math_code then - start = end_of_math(start) -- weird, can return nil .. no math end? + start = endofmath(start) -- weird, can return nil .. no math end? end if start then start = getnext(start) end end if done then - -- unset_attributes(a_spacings,head) + -- unsetattributes(a_spacings,head) end end return head |