Updates page as needed.

This commit is contained in:
Bryce
2024-03-29 10:43:15 -07:00
parent 6496eea485
commit d34e125b6f
4 changed files with 19 additions and 24 deletions

View File

@@ -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"}