           (spacer 30)
           [:th {:class "expander"}]]]]])
 
-(defn- content
-  [snapshot]
+(defn- content [snapshot]
   [:td
     (spacer 60 "header")
     (logo-name snapshot)

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

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

(defn- message [snapshot]
  [:table
    [:tbody
      [:tr
        (spacer 55 "note")
        (note snapshot)
        (spacer 16 "note")
        (attribution snapshot)
        (spacer 57 "note")]]])

(defn- body [snapshot]
  [:body
    [:table {:class "body"}
      [:tbody
        [:tr
          [:td {:class "center", :align "center", :valign "top"}
            [:center
              (when-not (s/blank? (:note snapshot)) (message snapshot))
              [: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"}]
