   (fn []
     [:button.header-button
      {:type "button" :on-click #(dispatch :on-toggle-all)}
-     "Expand all"]
+"Expand all"]
   ))
 
 (defn render-add-card


(def-multi-reducer
  app-reducer
 {; TODO - Add method for initialize
  :on-add-card (fn [store _] (js/alert "TODO") store)
  :on-toggle-all (fn [store _] (toggle-all-cards store))
  :on-toggle-card (fn [store card-id]

(def app-state
  (r/atom {:cards {}}))

(defn add-cards
  "Add several cards to the application state"
  [store cards]
  ; BUG - Keeping the :show-details at app-state means that rendering twice
  ; the component would lead to the GUI being updated at two places
  (let [default-state {:show-details false}
        to-gui-card #(vector (:card-id %) (merge % default-state))]
    (merge store (map to-gui-card cards))
  ))

(defn toggle-all-cards
  [cards]
