templates.fnl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

(fn read-file [file]
  (with-open [f (io.open file "r")]
   (f:read :*all)))

(fn base-template [content]
  [:html {:lang "ru-RU"}
   [:head {}
    [:title {} "Чайная «Белая жаба» — маленькая уютная чайная в Омске"]
    [:meta {:charset "utf-8"}]
    [:meta {:name "viewport"
            :content (.. "width=device-width,initial-scale=1,"
                          "minimum-scale=1.0,maximum-scale=5.0")}]
    [:style {} [:NO-ESCAPE (read-file "static/style.css")]]]
   [:body {}
    [:main {:class "container"} (table.unpack content)]]])

{: base-template}