                  (dom/p nil (-> details :intro first))
                  (apply
                   dom/ol nil
-                  (om/build-all list-item (:default details))))))))
+                  (om/build-all list-item (:data details))))))))
 
 (def linklist-text "
 <h3>

                  (dom/span nil "  <tbody>\n")
                  (apply
                   dom/span nil
                   (om/build-all table-row-help (:default details)))
                  (dom/span nil "  </tbody>\n")
                  (dom/span nil "</table>")))
        (dom/table #js {:className "table table-bordered"}
                   (apply
                    dom/tbody nil
                    (om/build-all table-row (:default details))))))))

(defn list-item [details owner]
  (reify

  (dom/span #js {:className "background-thumbnails"}
                          (dom/a #js {:href "#" :className "thumbnail background"}
                                 (dom/div #js {:className classname :onClick (fn [_]
                                                                               (om/update! details [:data 0], classname)
                                                                               (change-body-color classname)
                                                                               false)}))))

