sitegen/blog.lua

91 regels
2.7 KiB
Lua
Executable File

#!/usr/bin/env lua
local sitelib = require "sitelib"
local fs = require "lfs"
print("Finding files...")
local ftab = {}
for file in fs.dir(sitelib.srcpath.."/blog") do
if file:sub(1,1) ~= "." then
local index = tonumber(file:match("(%d+).md"))
if index then
ftab[index] = file
end
end
end
local pages = {}
local cpage = 1
print("Generating pages...")
for i = #ftab, 1, -1 do
pages[cpage] = pages[cpage] or {}
local fname = ftab[i]
local outfile = sitelib.outpath.."/blog/"..fname:sub(1,-4)..".html"
local f=io.open(sitelib.srcpath.."/blog/"..fname,"rb")
local c = f:read("*a")
f:close()
local page = sitelib.parsepage(c)
local f = io.open(outfile,"wb")
f:write("<html><head><title>"..(page.title or "").."</title>\n")
f:write(sitelib.header)
f:write(page.html)
if ftab[i-1] or ftab[i+1] then
f:write("<div class=\"wrapper\">\n")
if ftab[i+1] then
f:write("<div class=\"right-column\"><h4><a href=\""..tostring(i+1)..".html\">Next</a></div>")
end
if ftab[i-1] then
f:write("<div class=\"left-column\" align='left'><h4><a href=\""..tostring(i-1)..".html\">Previous</a></div>")
end
f:write("</div>")
end
if page.author or page.date then
f:write('<h4><div class="wrapper"><div class="left-column">By '..(page.author or "")..'</div><div class="right-column">'..(page.date or "")..'</div></div></h4>\n')
end
if page.tags then
f:write("<h4>Tags: ")
for w in page.tags:gmatch("%S+") do
f:write('<a href="/tag/'..w..'.html">'..w.."</a> ")
end
end
f:write("</h4>")
f:write(sitelib.footer)
f:close()
pages[cpage][#pages[cpage]+1] = {fname:sub(1,-4)..".html",page.title,page.md:match("\n\n(.-)\n")}
if #pages[cpage] == 10 then
cpage = cpage + 1
end
end
for k,v in pairs(pages) do
v.name = "index"..tostring(k)..".html"
if k == 1 then
v.name = "index.html"
end
end
print("Generating index pages...")
for i,page in pairs(pages) do
local f = io.open(sitelib.outpath.."/blog/"..page.name,"wb")
f:write("<html><head><title>"..(page.title or "").."</title>\n")
f:write(sitelib.header)
f:write("<h1>Blog</h1>\n<h2>Page "..tostring(i).."</h2>\n")
for n,entry in ipairs(page) do
f:write("<h3><a href=\""..entry[1].."\">"..entry[2].."</a></h3>\n")
local fline = entry[3]:gsub("\"","\\\"")
fline = io.popen("echo \""..fline.."\" | markdown -"):read("*a")
f:write(fline)
end
if pages[i-1] or pages[i+1] then
f:write("<div class=\"wrapper\">\n")
if pages[i+1] then
f:write("<div class=\"right-column\"><h4><a href=\""..pages[i+1].name.."\">Older</a></div>")
end
if pages[i-1] then
f:write("<div class=\"left-column\"><h4><a href=\""..pages[i-1].name.."\">Newer</a></div>")
end
f:write("</div>")
end
f:write(sitelib.footer)
f:close()
end