     (fn []
       [:fielset
        [:div {:class "form-horizontal"}
-        [thought-edit-box]
+        [thought-edit-box :current-note]
         [:div {:class "form-group"}
          [:div {:class "col-sm-12"}
           [:button {:type     "reset"
                     :class    "btn btn-default"
-                    :on-click #(dispatch [:state-current-note ""])} "Clear"]
+                    :on-click #(dispatch [:state-note :current-note ""])} "Clear"]
           [:button {:type     "submit"
                     :disabled (or @is-busy? (empty? @note))
                     :class    "btn btn-primary"


(defn edit-memory []
  (let [edit-memory (subscribe [:note :edit-memory])
        note        (subscribe [:note :current-note])
        is-busy?    (subscribe [:ui-state :is-busy?])
        ;; On the next one, we can't use not-empty because (= nil (not-empty nil)), and :show expects true/false,
        ;; not a truth-ish value.

    (-> app-state
        (assoc-in [:ui-state :is-busy?] false)
        (assoc-in [:note :edit-memory] nil)
        (assoc-in [:note :edit-note] "")
        (assoc-in [:note :focus] nil)
        )))

