diff options
| -rw-r--r-- | html.fnl | 31 | ||||
| -rw-r--r-- | init.fnl | 24 |
2 files changed, 47 insertions, 8 deletions
diff --git a/html.fnl b/html.fnl new file mode 100644 index 0000000..689f416 --- /dev/null +++ b/html.fnl @@ -0,0 +1,31 @@ +(local entity-replacements {"&" "&" ; must be first! + "<" "<" + ">" ">" + "\"" """}) + +(local entity-search + (.. "[" (table.concat (icollect [k (pairs entity-replacements)] k)) "]")) + +(fn escape [s] + (assert (= (type s) :string)) + (s:gsub entity-search entity-replacements)) + +(fn tag [tag-name attrs] + (assert (= (type attrs) "table") (.. "Missing attrs table: " tag-name)) + (let [attr-str (table.concat (icollect [k v (pairs attrs)] + (if (= v true) k + (.. k "=\"" v"\""))) " ")] + (.. "<" tag-name " " attr-str">"))) + +(fn render [document allow-no-escape?] + (if (= (type document) :string) + (escape document) + (and allow-no-escape? (= (. document 1) :NO-ESCAPE)) + (. document 2) + (let [[tag-name attrs & body] document] + (.. (tag tag-name attrs) + (table.concat (icollect [_ element (ipairs body)] + (render element allow-no-escape?)) " ") + "</" tag-name ">")))) + +{ :render render } @@ -1,9 +1,17 @@ (local fennel (require :fennel)) -{ - :routes { - :/ (fn [method path headers body] - (values 200 { :content-type "applicaton/json" } - "{ \"test\": 123 }")) - ; :/test (fn [] "test?") - } -} +(local html (require :html)) + +(local template + [:html {:lang "en"} + [:head {} + [:meta {:charset "UTF-8"}] + [:title {} "A new cool web server for lua"]] + [:body {} + [:h1 {} "Hello!"] + [:pre {} "This is my super blog!"]]]) + +(fn root-handler [method path headers body] + (let [headers { :content-type "text/html" }] + (values 200 headers (html.render template)))) + +{ :routes { :/ root-handler } } |