Unify the docs, samples and extensions

3 files changed, 59 insertions, 25 deletions

diff --git a/custom/extensions/about-render.lua b/custom/extensions/about-render.lua
index 805265e..c833c00 100644
--- a/custom/extensions/about-render.lua
+++ b/custom/extensions/about-render.lua
@@ -115,8 +115,11 @@ emit_inline = function(list)
 		elseif kind == "image" then
 			local target = safe_url(node.url)
 			if target then
-				html("<img src='"); html_attr(target)
-				html("' alt='"); html_attr(node.alt); html("'>")
+				html("<img src='")
+				html_attr(target)
+				html("' alt='")
+				html_attr(node.alt)
+				html("'>")
 			else
 				html_txt("![" .. node.alt .. "]")
 			end
@@ -138,9 +141,13 @@ emit_blocks = function(blocks)
 		elseif kind == "code" then
 			html("<pre><code")
 			if block.lang and block.lang ~= "" then
-				html(" data-lang='"); html_attr(block.lang); html("'")
+				html(" data-lang='")
+				html_attr(block.lang)
+				html("'")
 			end
-			html(">"); html_txt(block.text); html("</code></pre>")
+			html(">")
+			html_txt(block.text)
+			html("</code></pre>")
 		elseif kind == "blockquote" then
 			html("<blockquote>")
 			emit_blocks(block.blocks)
@@ -148,13 +155,17 @@ emit_blocks = function(blocks)
 		elseif kind == "table" then
 			html("<table><thead><tr>")
 			for _, cell in ipairs(block.head) do
-				html("<th>"); emit_inline(cell); html("</th>")
+				html("<th>")
+				emit_inline(cell)
+				html("</th>")
 			end
 			html("</tr></thead><tbody>")
 			for _, row in ipairs(block.rows) do
 				html("<tr>")
 				for _, cell in ipairs(row) do
-					html("<td>"); emit_inline(cell); html("</td>")
+					html("<td>")
+					emit_inline(cell)
+					html("</td>")
 				end
 				html("</tr>")
 			end
@@ -163,13 +174,17 @@ emit_blocks = function(blocks)
 			local tag = block.ordered and "ol" or "ul"
 			html("<" .. tag .. ">")
 			for _, item in ipairs(block.items) do
-				html("<li>"); emit_inline(item); html("</li>")
+				html("<li>")
+				emit_inline(item)
+				html("</li>")
 			end
 			html("</" .. tag .. ">")
 		elseif kind == "para" then
 			html("<p>")
 			for i, line in ipairs(block.lines) do
-				if i > 1 then html("<br>") end
+				if i > 1 then
+					html("<br>")
+				end
 				emit_inline(line)
 			end
 			html("</p>")
@@ -300,11 +315,14 @@ if has_lpeg then
 				local code = {}
 				i = i + 1
 				while i <= n and not close:match(lines[i]) do
-					code[#code + 1] = lines[i]; i = i + 1
+					code[#code + 1] = lines[i]
+					i = i + 1
 				end
 				i = i + 1
 				local body = table.concat(code, "\n")
-				if #code > 0 then body = body .. "\n" end
+				if #code > 0 then
+					body = body .. "\n"
+				end
 				blocks[#blocks + 1] = {
 					kind = "code",
 					lang = lang,
@@ -453,9 +471,14 @@ if has_lpeg then
 		local tokens = man_inline_grammar:match(text) or {}
 		local nodes, parts, font = {}, {}, "R"
 		local function flush()
-			if #parts == 0 then return end
-			local run = table.concat(parts); parts = {}
-			if run == "" then return end
+			if #parts == 0 then
+				return
+			end
+			local run = table.concat(parts)
+			parts = {}
+			if run == "" then
+				return
+			end
 			if font == "B" then
 				nodes[#nodes + 1] = {
 					kind = "strong",
@@ -474,7 +497,8 @@ if has_lpeg then
 			if token.kind == "text" then
 				parts[#parts + 1] = token.text
 			elseif token.kind == "font" then
-				flush(); font = token.font
+				flush()
+				font = token.font
 			end
 		end
 		flush()
@@ -494,7 +518,9 @@ if has_lpeg then
 		local function flush_nofill()
 			if nofill_lines then
 				local body = table.concat(nofill_lines, "\n")
-				if #nofill_lines > 0 then body = body .. "\n" end
+				if #nofill_lines > 0 then
+					body = body .. "\n"
+				end
 				blocks[#blocks + 1] = { kind = "code", text = body }
 				nofill_lines = nil
 			end
@@ -505,10 +531,13 @@ if has_lpeg then
 		end
 		for _, line in ipairs(lines) do
 			local macro, rest = macro_line:match(line)
-			if rest then rest = (rest:gsub('^"(.*)"$', "%1")) end
+			if rest then
+				rest = (rest:gsub('^"(.*)"$', "%1"))
+			end
 			if nofill then
 				if macro == "fi" then
-					nofill = false; flush_nofill()
+					nofill = false
+					flush_nofill()
 				else
 					nofill_lines[#nofill_lines + 1] = line
 				end
@@ -524,7 +553,9 @@ if has_lpeg then
 					kids = man_inline(rest),
 				}
 			elseif macro == "nf" then
-				flush_paragraph(); nofill = true; nofill_lines = {}
+				flush_paragraph()
+				nofill = true
+				nofill_lines = {}
 			elseif macro == "fi" then
 				flush_nofill()
 			elseif macro == "B" or macro == "BR" or macro == "RB" or macro == "BI" or macro == "IB" then
@@ -532,17 +563,20 @@ if has_lpeg then
 			elseif macro == "I" or macro == "IR" or macro == "RI" then
 				add_line({ { kind = "em", kids = man_inline(rest) } })
 			elseif macro == "TH" or macro == "PP" or macro == "LP"
-			    or macro == "P" or macro == "TP" or macro == "IP"
-			    or macro == "HP" or macro == "RS" or macro == "RE"
-			    or macro == "sp" or macro == "br" then
+				or macro == "P" or macro == "TP" or macro == "IP"
+				or macro == "HP" or macro == "RS" or macro == "RE"
+				or macro == "sp" or macro == "br" then
 				flush_paragraph()
 			elseif macro then
-				if rest ~= "" then add_line(man_inline(rest)) end
+				if rest ~= "" then
+					add_line(man_inline(rest))
+				end
 			else
 				add_line(man_inline(line))
 			end
 		end
-		flush_paragraph(); flush_nofill()
+		flush_paragraph()
+		flush_nofill()
 		return blocks
 	end
 
diff --git a/custom/extensions/auth-file.lua b/custom/extensions/auth-file.lua
index 230aa6d..3d426e9 100644
--- a/custom/extensions/auth-file.lua
+++ b/custom/extensions/auth-file.lua
@@ -405,7 +405,7 @@ function set_cookie(cookie, value)
 end
 
 function redirect_to(url)
-	html("Status: 302 Redirect\n")
+	html("Status: 302 Found\n")
 	html("Cache-Control: no-cache, no-store\n")
 	html("Location: " .. strip_controls(url) .. "\n")
 end
diff --git a/custom/extensions/auth-inline.lua b/custom/extensions/auth-inline.lua
index 0ae2cb8..5363a38 100644
--- a/custom/extensions/auth-inline.lua
+++ b/custom/extensions/auth-inline.lua
@@ -366,7 +366,7 @@ function set_cookie(cookie, value)
 end
 
 function redirect_to(url)
-	html("Status: 302 Redirect\n")
+	html("Status: 302 Found\n")
 	html("Cache-Control: no-cache, no-store\n")
 	html("Location: " .. strip_controls(url) .. "\n")
 end