Initial commit

1 files changed, 22 insertions, 0 deletions

diff --git a/src/dionysus/web/utils.clj b/src/dionysus/web/utils.clj
new file mode 100644
index 0000000..771bd6d
--- /dev/null
+++ b/src/dionysus/web/utils.clj
@@ -0,0 +1,22 @@
+(ns dionysus.web.utils
+  (:require [hiccup2.core :as html]
+            [dotenv :as env]))
+
+(def title (delay (or (env/env "TITLE") "Dionysus")))
+
+(defn render-html [src]
+  (-> src
+      html/html
+      str))
+
+(defn render-page [title & src]
+  (-> [:html {:lang "de"}
+       [:head
+        [:meta {:charset "UTF-8"}]
+        [:meta {:name "viewport" :content "width=device-width, user-scalable=no, initial-scale=1.0, maximum-scale=1.0, minimum-scale=1.0"}]
+        [:link {:rel "stylesheet" :href "/assets/style.css"}]
+        [:title title]]
+       (-> src
+           (conj :body)
+           vec)]
+      render-html))