redis_steps.clj

(require '[hiccup.core :as hiccup])

(def nav-links [{:url "a.html"
                 :text "Resume"}
                {:url "b.html"
                 :text "Blog"}
                {:url "c.html"
                 :text "About"}])

(defn nav-hiccup [nav-links]
  [:div#nav
   [:ul
    (for [{:keys [url text]} nav-links]
      [:li [:a {:href url} text]])]])

(defn page-hiccup [nav content]
  [:html
   [:header]
   [:body
    nav
    content]
   [:footer]])

(defn page [content]
  (page-hiccup (nav-hiccup nav-links)
               content))

(defn homepage []
  (hiccup/html
   (page "Welcome to my website!")))