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