       [:link {:href "http://fonts.googleapis.com/css?family=Open+Sans", :rel "stylesheet", :type "text/css"}]
       (body snapshot)]])
 
-(defn html
-  [snapshot]
+(defn html [snapshot]
   (str
     "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"
     (h/html (head (keywordize-keys snapshot)))))

              (map #(topic (snapshot (keyword %))) (:sections snapshot))
              (repeat (spacer 25 "header"))))]]]])

(defn- body
  [snapshot]
  [:body
    [:table {:class "body"}
      [:tbody
        [:tr
          [:td {:class "center", :align "center", :valign "top"}
            [:center
              (spacer 55 "note")
              (note snapshot)
              (spacer 16 "note")
              (attribution snapshot)
              (spacer 57 "note")
              [:table {:class "container"}
                [:tbody
                  [:tr
                    (content snapshot)]]]]]]]]])

(defn- head
  [snapshot]
  [:html {:xmlns "http://www.w3.org/1999/xhtml"} 
    [:head 
      [:meta {:http-equiv "Content-Type", :content "text/html; charset=utf-8"}]

  (def snapshot (json/decode (slurp "./resources/snapshots/open.json")))
  (spit "./resources/hiccup.html" (content/html (assoc snapshot :note note)))

  (def note "")
  (def snapshot (json/decode (slurp "./resources/snapshots/open.json")))
  (spit "./resources/hiccup.html" (content/html (assoc snapshot :note note)))

  )