17 lines
386 B
Janet
17 lines
386 B
Janet
(import janet-html :as html)
|
|
|
|
(defn as-html [h]
|
|
(html/encode (html/doctype :html5) [:html h]))
|
|
|
|
(defn header [data]
|
|
[:head
|
|
[:meta {:charset "utf-8"}]
|
|
[:title (get-in data [:config :title])]])
|
|
|
|
(defn base [data body]
|
|
(as-html [(header data)
|
|
[:body body]]))
|
|
|
|
(defn with-raw-html [data raw-html]
|
|
(as-html [(header data)
|
|
[:body (html/raw raw-html)]]))
|