diff options
| author | Hans Hagen <pragma@wxs.nl> | 2021-05-19 18:48:15 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-05-19 18:48:15 +0200 |
| commit | f1772caf425af2fe9be87b788eae63559682d51a (patch) | |
| tree | ce9a813989227bea7191db7a8f8bc87ad6d578dd /tex/context/base/mkxl/scrp-ini.lmt | |
| parent | 330909ad62342ff873dc758b909968c66d0252a4 (diff) | |
| download | context-f1772caf425af2fe9be87b788eae63559682d51a.tar.gz | |
2021-05-19 18:21:00
Diffstat (limited to 'tex/context/base/mkxl/scrp-ini.lmt')
| -rw-r--r-- | tex/context/base/mkxl/scrp-ini.lmt | 29 |
1 files changed, 26 insertions, 3 deletions
diff --git a/tex/context/base/mkxl/scrp-ini.lmt b/tex/context/base/mkxl/scrp-ini.lmt index 60ea15f08..9d8a5d3d5 100644 --- a/tex/context/base/mkxl/scrp-ini.lmt +++ b/tex/context/base/mkxl/scrp-ini.lmt @@ -57,9 +57,6 @@ local setglyphdata = nuts.setglyphdata local isglyph = nuts.isglyph -local insertnodeafter = nuts.insertafter -local insertnodebefore = nuts.insertbefore - local firstglyph = nuts.firstglyph local nextglyph = nuts.traversers.glyph @@ -88,6 +85,32 @@ scripts.injectors = handlers local splitters = allocate() scripts.splitters = splitters +local helpers = allocate() +scripts.helpers = helpers + +local insertnodebefore, insertnodeafter do + + local insertafter = nuts.insertnodeafter + local insertbefore = nuts.insertnodebefore + local setattributelist = nuts.setattributelist + + local function insertnodebefore(head,current,what) -- todo : lmtx + head, current = insertbefore(head,current,what) + setattributelist(what,current) + return head, current + end + + local function insertnodeafter(head,current,what) -- todo : lmtx + head, current = insertafter(head,current,what) + setattributelist(what,current) + return head, current + end + + helpers.insertnodebefore = insertnodebefore + helpers.insertnodeafter = insertnodeafter + +end + local hash = { -- we could put these presets in char-def.lua -- -- half width opening parenthesis |