delete-button.cljs

;; The idea is to replace the component's content when the atom's value changes. 
;; The state for :initial is displayed when the component is first rendered but does not change 
;; when `delete-button` is clicked, even though the atom is correctly reset.
(defn delete-button-component [card]
  (let [on-delete-clicked (fn [] (reset! delete-state :confirming))
        delete-button (fn [card]
                        [:button {:class "circular ui icon button delete-card" :title "Delete card" :on-click on-delete-clicked}
                        [:i {:class "icon erase"}]])
        confirmation-buttons (fn [card] [:span
                               [:button {:class "ui button cancel"} "Cancel"]
                               [:button {:class "ui button confirm"} "I'm sure!"]])]
    (fn [card]
      (condp = @delete-state
       :initial delete-button
       :confirming confirmation-buttons))))