zauguin/mathml
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Mathlists (m)kern support

Browse Source
This commit is contained in:
Marcel Fabian Krüger 2021-05-31 13:25:08 +02:00
parent a0dc11d37d
commit 06915c6aa3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pdfmml-showlists.lua
View File

@ -6,7 +6,7 @@ local tex_char = l.Cg('^^' * (hex_digit * hex_digit / hex_to_int
+ l.R'\x40\x7F' / function(s) return s:byte() - 0x40 end) + l.R'\x40\x7F' / function(s) return s:byte() - 0x40 end)
+ l.P(1) / string.byte) + l.P(1) / string.byte)
local scaled = l.R'09'^1 * '.' * l.R'09'^1 / function(s) return (tonumber(s * 0x10000) + .5) // 1 end local scaled = l.P'-'^-1 * l.R'09'^1 * '.' * l.R'09'^1 / function(s) return (tonumber(s * 0x10000) + .5) // 1 end
local delimiter_code = '"' * (l.R('09', 'AF')^1 / function(s) local delimiter_code = '"' * (l.R('09', 'AF')^1 / function(s)
local code = tonumber(s, 16) local code = tonumber(s, 16)
return {id = 'delim', return {id = 'delim',
@ -48,6 +48,8 @@ local simple_noad = l.Ct(
+ 'text' * l.Cc(2) + 'text' * l.Cc(2)
+ 'scriptscript' * l.Cc(6) + 'scriptscript' * l.Cc(6)
+ 'script' * l.Cc(4), 'subtype') * l.Cg('style', 'id') + 'script' * l.Cc(4), 'subtype') * l.Cg('style', 'id')
+ '\\mkern' * l.Cg(scaled, 'kern') * 'mu' * l.Cg(l.Cc(99), 'subtype') * l.Cg(l.Cc'kern', 'id')
+ '\\kern' * l.Cg(' ' * l.Cc(1) + l.Cc(0), 'subtype') * l.Cg(scaled, 'kern') * (' (for ' * (l.R'az' + l.S'/\\') * ')')^-1 * l.Cg(l.Cc'kern', 'id')
) * -1 ) * -1
local fraction_noad = l.Ct('\\fraction, thickness ' local fraction_noad = l.Ct('\\fraction, thickness '