blogme3/lstoindexhtml.lua (htmlized)

Warning: this is an htmlized version!
The original is here, and
the conversion rules are here.

-- (find-blogme3  "lstoindexhtml.lua")
-- (find-angg "LUA/lstoindexhtml.lua")
-- (find-angg ".zshrc" "lstoindexhtml_lua_maybe")
str=string; strfind=str.find; format=str.format; gsub=str.gsub;
strlen=str.len; strrep=str.rep; strsub=str.sub; tinsert=table.insert
--
lines={}; for line in io.lines() do tinsert(lines, line) end
_, __, nonfname = strfind(lines[2], "^(.* )[^ ]*$")
dots = strrep(".", strlen(nonfname))
myre = "("..dots..")([^ */=@|]*)(.*)"
print "<html>"
print "<!-- Generated by http://anggtwu.net/LUA/lstoindexhtml.lua -->"
print("<head><title>"..(arg[1] or "").."</title>")
if arg[2] then
  print('<link rel="shortcut icon" href=".favicon.png" />')
end
print("</head>")
print "<body>"
print "<pre>"
for i=2,table.getn(lines) do
  _, __, l, fname, r = strfind(lines[i], myre)
  print(format("%s<a href=\"%s\">%s</a>%s", l, fname, fname, r))
end
print "</pre>"
print "</body>"
print "</html>"

-- (find-zsh0 "cd /tmp/; lstoindexhtml_lua_maybe /tmp/")
-- #*
-- cd ~/TH/L/
-- for i in $(find .* * -type d | sort); do
--   cd ~/TH/L/$i; lstoindexhtml_lua_maybe $i/
-- done
-- 
-- #*