gistfile1.clj

(defhtml base-html
  "Function produces an enlive HTML hash-map of the base HTML. This hash-map is
   used as a base template for other HTML definitions."
  [site-title]
  [:html
   [:head (map include-css ["/css/reset.css"
                            "/css/main.css"])
     [:meta {:name "robots"
             :content "noindex"}]]
   [:body
    [:div {:id "wrap"}
     [:a {:href "/"}
      [:h1 {:class "site-name"} site-title]]]]])