1 files changed, 52 insertions, 0 deletions
diff --git a/lbu-commit-html.lsp b/lbu-commit-html.lsp
new file mode 100644
index 0000000..c5e1ff2
--- /dev/null
+++ b/lbu-commit-html.lsp
@@ -0,0 +1,52 @@
+<?
+local view = ...
+
+local function packURL(script, prefix, controller, action, extra)
+    ret = script .. "/" .. prefix .. controller .. "/" .. action
+    sep = '?'
+    for k,v in pairs(extra) do
+        ret = ret .. sep .. k .. '=' .. v
+        sep = '&'
+    end
+    return ret
+end
+
+--[[
+view
+  script, prefix, controller, action
+  data[]
+    name, 
+    status
+  title
+  text[]
+    label
+    content
+--]]
+?><h1><?= view.title
+?></h1><?
+
+--Status Block
+    for i,item in ipairs(view.note or {}) do
+        ?><p class='error'><?= item.content ?></p><?
+    end
+
+?><table><?
+for i,item in ipairs(view.data) do
+    ?><tr><td><?= item.status ?><td><?= item.name ?><?
+end
+?></table><?
+?><?= html.form.start {
+    method="POST",
+    action = packURL(view.script, view.prefix,
+        view.controller, view.action, {})
+    }
+?><?= html.form.submit { name = view.action, value = view.action }
+?><?= html.form.stop() ?><?
+for i,item in ipairs(view.text) do
+    if item.label then
+        ?><h2><?= item.label ?></h2><?
+    end
+    ?><pre><?= item.content ?></pre><?
+end
+-- vim: set filetype=lua :
+?>