Updates page as needed.
This commit is contained in:
@@ -7,6 +7,7 @@
|
||||
[clojure.string :as str]
|
||||
[datomic.api :as dc]
|
||||
[hiccup2.core :as hiccup]
|
||||
[hiccup.compiler :refer [HtmlRenderer render-html]]
|
||||
[malli.core :as mc]
|
||||
[malli.core :as m]
|
||||
[malli.error :as me]
|
||||
@@ -15,6 +16,11 @@
|
||||
[slingshot.slingshot :refer [throw+ try+]]
|
||||
[taoensso.encore :refer [filter-vals]]))
|
||||
|
||||
(defrecord OOBElements [elements]
|
||||
HtmlRenderer
|
||||
(render-html [this]
|
||||
(str/join "\n" (map render-html elements))))
|
||||
|
||||
(defn html-response [hiccup & {:keys [status headers oob] :or {status 200 headers {} oob []}}]
|
||||
{:status status
|
||||
:headers (into {"Content-Type" "text/html"}
|
||||
|
||||
Reference in New Issue
Block a user