(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)]]))