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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
-- possible things that thing can be:
-- string: gets escaped
-- safe-str: returned as is
-- table list: concatentated
-- tag: printified
-- maths
local el=math.exp(-4.79)
function blorem() local o={} for i=1,math.random(25,150) do local i,u=0,1 repeat i=i+1 u=u*math.random() until u<el table.insert(o, ("b"):rep(i)) end return table.concat(o," ") end
local function fmt_attrs(attrs)
local function fmt_attr(k,v)
if v == true then
return k
else
if type(v) == "table" then v = table.concat(v," ") end
return ('%s="%s"'):format(k,v)
end
end
local o = ""
for k,v in pairs(attrs) do
o = o .. " " .. fmt_attr(k,v)
end
return o
end
local function fmt_tag(tag)
local attrs = tag.attrs and fmt_attrs(tag.attrs) or ""
local selfclosing = (tag.body == "")
local sameline = type(tag.body) == "string" or (type(tag.body) == "table" and tag.body.tag)
local maybenl = sameline and "" or "\n"
if selfclosing then
return ("<%s%s/>"):format(tag.tname,attrs)
else
return ("<%s%s>%s%s</%s>"):format(tag.tname,attrs,maybenl,html(tag.body),tag.tname)
end
end
function tag(tname, a1, a2)
-- tag(tname,body) or tag(tname,attrs,body)
local body, attrs
if a2 then attrs=a1 body=a2 else attrs=nil body=a1 end
return setmetatable({tag=true,tname=tname,attrs=attrs,body=body},{__tostring=fmt_tag})
end
function safe(s)
-- marks s as safe, doesn't escape it
assert(type(s) == "string","can only mark string as safe")
return setmetatable({safe=true,s=s},{__tostring=function(x)return x.s end})
end
function escape(s)
s=s:gsub("&","&")
s=s:gsub("<","<")
s=s:gsub(">",">")
s=s:gsub('"',""")
return safe(s)
end
function html(x)
if type(x) == "string" then
return escape(x)
elseif type(x) == "table" then
if x.safe then
-- safestr. already escaped
return x
elseif x.tag then
-- it's a tag
return safe( tostring(x) )
else
-- just a regular list
local o = ""
for _,item in ipairs(x) do
o = o .. tostring(html(item)) .. "\n"
end
return safe(o)
end
end
end
function tagfn(tname)
return function(a1,a2) return tag(tname,a1,a2) end
end
function qw(s)
local t = {}
for a in s:gmatch("%w+") do table.insert(t,a) end
return t
end
local tnames = qw"h1 h2 h3 p b i ul ol li dl dt dd div section header figure figcaption img title nav"
for _,n in ipairs(tnames) do
_G[n] = tagfn(n)
end
function a(b,href) return tag("a",{href=href},b) end
function readf(fname)
local f = io.open(fname,"r")
local c = f:read("a")
f:close()
return c
end
function safereadf(fname) return safe(readf(fname)) end
function mkhead(t,nositename)
-- includes css and stuff, and title element
if not nositename then
t = t .. ' - uq323.website'
end
return {
safereadf "head.html",
title(t),
}
end
function mktopbox(imgsrc,name,rest)
return header({class="big-header"}, {
img({id='me',src=imgsrc},''),
h1(name),
rest
})
end
function mksmalltopbox(words)
return header ({class="small-header"}, {
h1(words)
})
end
function bcrumb(items)
-- items are {text,href}
local lis = {}
for _,it in ipairs(items) do
if it[2] then
table.insert(lis, li(a(it[1],it[2])))
else
table.insert(lis,li(it[1]))
end
end
return nav(
{class='breadcrumb',['aria-label']='Breadcrumb'},
ol(lis)
)
end
function blogpost(meta,content)
local head = mkhead(meta.title.." - rebecca blog")
local top = header {
img({id='me',src='/me.png'},''),
h1 'rebecca blog',
p [[ there is some text here ]],
}
local breadcrumbs = bcrumb {
{'⌂ home','/'},
{'rebecca blog','/blog'},
{meta.title},
}
return html{head,top,breadcrumbs,content}
end
-- the box at the top with the cool picture of me in, etc
-- presumably the same on all pages
site_top = mktopbox('/me.png',"ubq323's website",
p [[rebecca, "ubq323" (she/her, 20) - eminently engromulent]]
)
|