     ))
 
 
-(defn thought-edit-box []
-  (let [note (subscribe [:note :current-note])]
+(defn thought-edit-box [note-id]
+  (let [note (subscribe [:note note-id])]
     (fn []
       [:div {:class "form-group"}
        [focused-thought]

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



(defn edit-memory []
  (let [edit-memory (subscribe [:note :edit-memory])
        note        (subscribe [:note :edit-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.
