fSD/fes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

alpha p2

Browse Source
This commit is contained in:
vx-clutch
2025-11-28 21:12:57 -05:00
parent 705911ac9d
commit 8f16e257bb
17 changed files with 269 additions and 264 deletions
Download Patch File Download Diff File Expand all files Collapse all files

240
core/builtin.lua
View File

@@ -398,242 +398,14 @@ function M:custom(str)
return self
end
function M:h1(str)
str = str or ""
self:custom(std.h1(str))
return self
end
function M:h2(str)
str = str or ""
self:custom(std.h2(str))
return self
end
function M:h3(str)
str = str or ""
self:custom(std.h3(str))
return self
end
function M:h4(str)
str = str or ""
self:custom(std.h4(str))
return self
end
function M:h5(str)
str = str or ""
self:custom(std.h5(str))
return self
end
function M:h6(str)
str = str or ""
self:custom(std.h6(str))
return self
end
function M:p(str)
str = str or ""
table.insert(self.parts, "<p>" .. str .. "</p>")
return self
end
function M:note(content)
content = content or ""
self:custom('<div class="note">' .. content .. '</div>')
return self
end
function M:muted(content)
content = content or ""
self:custom('<div class="muted quiet">' .. content .. '</div>')
return self
end
function M:a(link, str)
link = link or "example.com"
str = str or link
table.insert(self.parts, "<a href=\"" .. link .. "\">" .. str .. "</a>")
return self
end
function M:ha(link, str)
link = link or "example.com"
str = str or link
table.insert(self.parts, "<a class=\"hidden\" href=\"" .. link .. "\">" .. str .. "</a>")
return self
end
function M:external(link, str)
link = link or "example.com"
str = str or link
table.insert(self.parts, "<a target=\"_blank\" href=\"" .. link .. "\">" .. str .. "</a>")
return self
end
function M:version()
return self.version
end
function M:ul(items)
items = items or {}
local html = "<ul>"
for _, item in ipairs(items) do
html = html .. "<li>" .. tostring(item) .. "</li>"
end
html = html .. "</ul>"
self:custom(html)
return self
end
function M:ol(items)
items = items or {}
local html = "<ol>"
for _, item in ipairs(items) do
html = html .. "<li>" .. tostring(item) .. "</li>"
end
html = html .. "</ol>"
self:custom(html)
return self
end
function M:li(str)
str = str or ""
self:custom("<li>" .. str .. "</li>")
return self
end
function M:code(str)
str = str or ""
self:custom("<pre><code>" .. str .. "</code></pre>")
return self
end
function M:blockquote(str)
str = str or ""
self:custom("<blockquote>" .. str .. "</blockquote>")
return self
end
function M:hr()
self:custom("<hr>")
return self
end
function M:divider()
self:custom('<div class="divider"></div>')
return self
end
function M:img(src, alt)
src = src or ""
alt = alt or ""
self:custom('<img src="' .. src .. '" alt="' .. alt .. '">')
return self
end
function M:table(headers, rows)
headers = headers or {}
rows = rows or {}
local html = "<table><thead><tr>"
for _, header in ipairs(headers) do
html = html .. "<th>" .. tostring(header) .. "</th>"
end
html = html .. "</tr></thead><tbody>"
for _, row in ipairs(rows) do
html = html .. "<tr>"
for _, cell in ipairs(row) do
html = html .. "<td>" .. tostring(cell) .. "</td>"
end
html = html .. "</tr>"
end
html = html .. "</tbody></table>"
self:custom(html)
return self
end
function M:div(content, class)
content = content or ""
class = class or ""
local class_attr = class ~= "" and (' class="' .. class .. '"') or ""
self:custom("<div" .. class_attr .. ">" .. content .. "</div>")
return self
end
function M:span(content, class)
content = content or ""
class = class or ""
local class_attr = class ~= "" and (' class="' .. class .. '"') or ""
self:custom("<span" .. class_attr .. ">" .. content .. "</span>")
return self
end
function M:strong(str)
str = str or ""
self:custom("<strong>" .. str .. "</strong>")
return self
end
function M:em(str)
str = str or ""
self:custom("<em>" .. str .. "</em>")
return self
end
function M:br()
self:custom("<br>")
return self
end
function M:section(content)
content = content or ""
self:custom('<div class="section">' .. content .. '</div>')
return self
end
function M:links(link_list)
link_list = link_list or {}
local html = '<div class="links">'
for _, link_data in ipairs(link_list) do
local link = link_data.link or link_data[1] or "#"
local text = link_data.text or link_data[2] or link
local external = link_data.external or false
if external then
html = html .. '<a target="_blank" href="' .. link .. '">' .. text .. '</a>'
else
html = html .. '<a href="' .. link .. '">' .. text .. '</a>'
for name, func in pairs(std) do
if type(func) == "function" then
M[name] = function(self, ...)
local result = func(...)
table.insert(self.parts, result)
return self
end
end
html = html .. '</div>'
self:custom(html)
return self
end
function M:lead(str)
str = str or ""
self:custom(std.small(str))
return self
end
function M:small(str)
str = str or ""
self:custom(std.small(str))
return self
end
function M:highlight(str)
str = str or ""
self:custom(std.highlight(str))
return self
end
function M:banner(str)
self:custom(std.banner(str))
end
function M:build()

7
core/log.lua
View File

@@ -1,7 +0,0 @@
local M = {}
function M.printl(fmt, ...)
print(string.format(fmt, ...))
end
return M

169
core/middleware.lua Normal file
View File

@@ -0,0 +1,169 @@
local M = {}
function M.json_decode(json)
if type(json) ~= "string" then
return nil, "input must be a string"
end
local pos = 1
local len = #json
local function skip_ws()
while pos <= len and json:sub(pos,pos):match("%s") do
pos = pos + 1
end
end
local function parse_value()
skip_ws()
local c = json:sub(pos,pos)
if c == "{" then return parse_object()
elseif c == "[" then return parse_array()
elseif c == '"' then return parse_string()
elseif c:match("[%d%-]") then return parse_number()
elseif json:sub(pos,pos+3) == "true" then pos=pos+4; return true
elseif json:sub(pos,pos+4) == "false" then pos=pos+5; return false
elseif json:sub(pos,pos+3) == "null" then pos=pos+4; return nil
else return nil, "invalid value at position "..pos
end
end
function parse_string()
pos = pos + 1
local start_pos = pos
local str = ""
while pos <= len do
local c = json:sub(pos,pos)
if c == '"' then
str = str .. json:sub(start_pos,pos-1)
pos = pos + 1
return str
elseif c == "\\" then
str = str .. json:sub(start_pos,pos-1)
pos = pos + 1
local esc = json:sub(pos,pos)
local map = {b="\b", f="\f", n="\n", r="\r", t="\t", ['"']='"', ["\\"]="\\", ["/"]="/"}
str = str .. (map[esc] or esc)
pos = pos + 1
start_pos = pos
else
pos = pos + 1
end
end
return nil, "unterminated string"
end
function parse_number()
local start_pos = pos
while pos <= len and json:sub(pos,pos):match("[%d%+%-eE%.]") do
pos = pos + 1
end
local n = tonumber(json:sub(start_pos,pos-1))
if not n then return nil, "invalid number at position "..start_pos end
return n
end
function parse_array()
pos = pos + 1
local arr = {}
skip_ws()
if json:sub(pos,pos) == "]" then pos=pos+1; return arr end
while true do
local val, err = parse_value()
if err then return nil, err end
table.insert(arr,val)
skip_ws()
local c = json:sub(pos,pos)
if c == "]" then pos=pos+1; break
elseif c == "," then pos=pos+1
else return nil, "expected ',' or ']' at position "..pos
end
end
return arr
end
function parse_object()
pos = pos + 1
local obj = {}
skip_ws()
if json:sub(pos,pos) == "}" then pos=pos+1; return obj end
while true do
skip_ws()
if json:sub(pos,pos) ~= '"' then return nil, "expected string key at "..pos end
local key, err = parse_string()
if err then return nil, err end
skip_ws()
if json:sub(pos,pos) ~= ":" then return nil, "expected ':' at "..pos end
pos = pos + 1
local val, err = parse_value()
if err then return nil, err end
obj[key] = val
skip_ws()
local c = json:sub(pos,pos)
if c == "}" then pos=pos+1; break
elseif c == "," then pos=pos+1
else return nil, "expected ',' or '}' at "..pos
end
end
return obj
end
local result, err = parse_value()
if err then return nil, err end
skip_ws()
if pos <= len then return nil, "trailing characters at "..pos end
return result
end
function M.json_encode(value)
local t = type(value)
if t == "nil" then
return "null"
elseif t == "boolean" then
return tostring(value)
elseif t == "number" then
return tostring(value)
elseif t == "string" then
return '"' .. value:gsub('[%z\1-\31\\"]', {
['\\'] = '\\\\',
['"'] = '\\"',
['\b'] = '\\b',
['\f'] = '\\f',
['\n'] = '\\n',
['\r'] = '\\r',
['\t'] = '\\t'
}):gsub("[%z\1-\31]", function(c)
return string.format("\\u%04x", c:byte())
end) .. '"'
elseif t == "table" then
local is_array = true
local max_index = 0
for k,v in pairs(value) do
if type(k) ~= "number" then
is_array = false
else
if k > max_index then max_index = k end
end
end
local items = {}
if is_array then
for i = 1, max_index do
table.insert(items, M.json_encode(value[i]))
end
return "[" .. table.concat(items,",") .. "]"
else
for k,v in pairs(value) do
if type(k) ~= "string" then
return nil, "object keys must be strings"
end
table.insert(items, M.json_encode(k) .. ":" .. M.json_encode(v))
end
return "{" .. table.concat(items,",") .. "}"
end
else
return nil, "unsupported type: " .. t
end
end
return M

23
core/std.lua
View File

@@ -55,9 +55,7 @@ end
function M.h3(str)
return "<h3>" .. (str or "") .. "</h3>"
end
function M.h4(str)
return "<h4>" .. (str or "") .. "</h4>"
function M.h4(str) return "<h4>" .. (str or "") .. "</h4>"
end
function M.h5(str)
@@ -72,11 +70,11 @@ function M.p(str)
return "<p>" .. (str or "") .. "</p>"
end
function M.code(str)
return "<code>" .. (str or "") .. "</code>"
function M.pre(str)
return "<pre>" .. (str or "") .. "</pre>"
end
function M.pre(str)
function M.code(str)
return "<pre><code>" .. (str or "") .. "</code></pre>"
end
@@ -228,23 +226,16 @@ function M.table(headers, rows)
return html
end
function M.copyright()
return "&#169;"
end
function M.highlight(str)
str = str or ""
return '<span class="highlight">' .. str .. "</span>"
return '<span class="highlight">' .. (str or "") .. "</span>"
end
function M.banner(str)
str = str or ""
return '<div class="banner">' .. str .. "</div>"
return '<div class="banner">' .. (str or "") .. "</div>"
end
function M.center(str)
str = str or ""
return '<div class="center">' .. str .. "</div>"
return '<div class="center">' .. (str or "") .. "</div>"
end
function M.nav(link, str)

7
core/symbol.lua Normal file
View File

@@ -0,0 +1,7 @@
local M = {}
M.copyright = "&#169;"
M.registered_trademark = "&#174;"
M.trademark = "&#8482;"
return M

14
core/util.lua Normal file
View File

@@ -0,0 +1,14 @@
local std = require("core.std")
local symbol = require("core.symbol")
local M = {}
function M.cc(tbl)
return table.concat(tbl)
end
function M.copyright(link, holder)
return symbol.copyright .. " " .. std.external(link, holder)
end
return M