112 lines
2.4 KiB
Lua
112 lines
2.4 KiB
Lua
local fes = require("fes")
|
|
local std = fes.std
|
|
local u = fes.util
|
|
|
|
local site = fes.fes()
|
|
|
|
local title = "Free Software Distributions"
|
|
|
|
site.title = title .. " - Site news"
|
|
site.copyright = u.copyright("[https://git.vxserver.dev/fSD](https://git.vxserver.dev/fSD)", "fSD")
|
|
site:banner(fes.app.header.render(std))
|
|
|
|
local function url_encode(s)
|
|
if not s then return "" end
|
|
s = s:gsub("([^%w%-_.~])", function(c) return string.format("%%%02X", string.byte(c)) end)
|
|
return s
|
|
end
|
|
|
|
local function list_files_in_dir(dir)
|
|
local files = {}
|
|
local ok, lfs = pcall(require, "lfs")
|
|
if ok and lfs then
|
|
for name in lfs.dir(dir) do
|
|
if name ~= "." and name ~= ".." then
|
|
local attr = lfs.attributes(dir .. "/" .. name)
|
|
if attr and attr.mode == "file" then
|
|
table.insert(files, name)
|
|
end
|
|
end
|
|
end
|
|
table.sort(files)
|
|
return files
|
|
end
|
|
local p = io.popen('ls -1 "' .. dir:gsub('"', '\"') .. '" 2>/dev/null')
|
|
if not p then return files end
|
|
for line in p:lines() do
|
|
if line ~= "." and line ~= ".." then
|
|
local f = dir .. "/" .. line
|
|
local fh = io.open(f, "r")
|
|
if fh then
|
|
fh:close()
|
|
table.insert(files, line)
|
|
end
|
|
end
|
|
end
|
|
p:close()
|
|
table.sort(files)
|
|
return files
|
|
end
|
|
|
|
local function read_file(path)
|
|
local f = io.open(path, "r")
|
|
if not f then return nil end
|
|
local data = f:read("*a")
|
|
f:close()
|
|
return data
|
|
end
|
|
|
|
local dir = "news"
|
|
local files = list_files_in_dir(dir)
|
|
|
|
local params = fes.bus.params or {}
|
|
local article = params.article
|
|
if type(article) == "table" then
|
|
article = article[1]
|
|
end
|
|
|
|
if article then
|
|
local candidates = { article, article .. ".txt", article .. ".md", article .. ".html" }
|
|
local body
|
|
for _, c in ipairs(candidates) do
|
|
local p = dir .. "/" .. c
|
|
body = read_file(p)
|
|
if body then break end
|
|
end
|
|
site.title = article
|
|
if body then
|
|
site:custom(fes.markdown_to_html(body))
|
|
else
|
|
site:note(u.cc {
|
|
std.h1(article),
|
|
std.p("article not found"),
|
|
})
|
|
end
|
|
site:note(fes.app.footer.render(std))
|
|
return site
|
|
end
|
|
|
|
local articles = {}
|
|
local n = 0
|
|
for _, v in ipairs(files) do
|
|
local display = v:gsub("%.[^%.]+$", "")
|
|
local link = "/news?article=" .. url_encode(display)
|
|
table.insert(articles, std.a(link, display))
|
|
n = n + 1
|
|
end
|
|
|
|
table.sort(articles, function (x, y)
|
|
return x > y
|
|
end)
|
|
|
|
if n > 0 then
|
|
site:h1("Site news")
|
|
site:note(std.ul(articles))
|
|
else
|
|
site:h1("No articles")
|
|
end
|
|
|
|
site:note(fes.app.footer.render(std))
|
|
|
|
return site
|