1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
if not modules then modules = { } end modules ['lxml-css'] = {
version = 1.001,
comment = "companion to lxml-css.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
local tonumber = tonumber
local P, S, C, R, Cb, Cg, Carg = lpeg.P, lpeg.S, lpeg.C, lpeg.R, lpeg.Cb, lpeg.Cg, lpeg.Carg
local lpegmatch, lpegpatterns = lpeg.match, lpeg.patterns
local css = { }
local moduledata = moduledata or { }
moduledata.css = css
local dimenfactors = number.dimenfactors
local bpf, cmf, mmf, inf = 1/dimenfactors.bp, 1/dimenfactors.cm, 1/dimenfactors.mm, 1/dimenfactors["in"]
local validdimen = Cg(lpegpatterns.number,'a') * (
Cb('a') * P("pt") / function(s) return tonumber(s) * bpf end
+ Cb('a') * P("cm") / function(s) return tonumber(s) * cmf end
+ Cb('a') * P("mm") / function(s) return tonumber(s) * mmf end
+ Cb('a') * P("in") / function(s) return tonumber(s) * inf end
+ Cb('a') * P("px") * Carg(1) / function(s,pxf) return tonumber(s) * pxf end
+ Cb('a') * P("%") * Carg(2) / function(s,pcf) return tonumber(s) * pcf end
+ Cb('a') * P("ex") * Carg(3) / function(s,exf) return tonumber(s) * exf end
+ Cb('a') * P("em") * Carg(4) / function(s,emf) return tonumber(s) * emf end
+ Cb('a') * Carg(1) / function(s,pxf) return tonumber(s) * pxf end
)
local pattern = (validdimen * lpegpatterns.whitespace^0)^1
-- todo: default if ""
local function padding(str,pixel,percent,exheight,emwidth)
local top, bottom, left, right = lpegmatch(pattern,str,1,pixel,percent,exheight,emwidth)
if not bottom then
bottom, left, right = top, top, top
elseif not left then
bottom, left, right = top, bottom, bottom
elseif not right then
bottom, left, right = left, bottom, bottom
end
return top, bottom, left, right
end
css.padding = padding
-- local hsize = 655360*100
-- local exheight = 65536*4
-- local emwidth = 65536*10
-- local pixel = emwidth/100
--
-- print(padding("10px",pixel,hsize,exheight,emwidth))
-- print(padding("10px 20px",pixel,hsize,exheight,emwidth))
-- print(padding("10px 20px 30px",pixel,hsize,exheight,emwidth))
-- print(padding("10px 20px 30px 40px",pixel,hsize,exheight,emwidth))
--
-- print(padding("10%",pixel,hsize,exheight,emwidth))
-- print(padding("10% 20%",pixel,hsize,exheight,emwidth))
-- print(padding("10% 20% 30%",pixel,hsize,exheight,emwidth))
-- print(padding("10% 20% 30% 40%",pixel,hsize,exheight,emwidth))
--
-- print(padding("10",pixel,hsize,exheight,emwidth))
-- print(padding("10 20",pixel,hsize,exheight,emwidth))
-- print(padding("10 20 30",pixel,hsize,exheight,emwidth))
-- print(padding("10 20 30 40",pixel,hsize,exheight,emwidth))
--
-- print(padding("10pt",pixel,hsize,exheight,emwidth))
-- print(padding("10pt 20pt",pixel,hsize,exheight,emwidth))
-- print(padding("10pt 20pt 30pt",pixel,hsize,exheight,emwidth))
-- print(padding("10pt 20pt 30pt 40pt",pixel,hsize,exheight,emwidth))
local fontidentifiers = fonts.identifiers
local currentfont = font.current
local texdimen = tex.dimen
local function padding(str)
local fnt = fontidentifiers[currentfont()]
local exheight = fnt.ex_height
local emwidth = fnt.quad
local hsize = texdimen.hsize/100
local pixel = emwidth/100
return padding(str,pixel,hsize,exheight,emwidth)
end
--~ function css.simplepadding(str)
--~ context("%ssp",padding(str,pixel,hsize,exheight,emwidth))
--~ end
|
