From 32ee50f0f6f53f8d5dea3bf159be3f65974c4b7b Mon Sep 17 00:00:00 2001
From: Tim <contact@bytim.eu>
Date: Sat, 1 Nov 2025 17:36:48 +0100
Subject: Initial commit

---
 src/dionysus/web/utils.clj | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 src/dionysus/web/utils.clj

(limited to 'src/dionysus/web/utils.clj')

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))
-- 
cgit v1.2.3