 (defn header []
   (let [state  (subscribe [:ui-state :section])
         header (condp = @state
-                 ::record "Make a new memory"
+                 :record "Make a new memory"
                  :remember "Remember"
                  "")]
     (if (not-empty header)
       [:h1 {:id "forms"} header])
     ))
-
 
 
 

         [:div {:class "col-sm-12"}
          [:button {:type     "reset"
                    :class    "btn btn-default"
                    :on-click #(dispatch [:update-note ""])} "Clear"]
          [:button {:type     "submit"
                    :disabled (or @is-busy? (empty? @note))
                    :class    "btn btn-primary"
                    :on-click #(dispatch [:save-note])} "Submit"]
          ]]
        ]]
      )))

  (let [current     (subscribe [:ui-state :section])
        is-current? (reaction (= section @current))
        class       (when @is-current? "active")]
    [:li {:class class} [:a {:on-click #(dispatch [:state-ui-section section])} name
                         (if @is-current?
                           [:span {:class "sr-only"} "(current)"])]]))

