         [:div {:class "panel-body"}
          [:p {:dangerouslySetInnerHTML {:__html (md->html (:thought @focus) :replacement-transformers md-transformers)}}]
          ]]])
-
-    ))
+    ))
+
+
+(defn thought-edit-box []
+  (let [note (subscribe [:note :current-note])]
+    (fn []
+      [:div {:class "form-group"}
+       [focused-thought]
+       [:div {:class "col-sm-12"}
+        [initial-focus-wrapper
+         [:textarea {:class       "form-control"
+                     :id          "thought-area"
+                     :placeholder "I was thinking..."
+                     :rows        12
+                     :style       {:font-size "18px"}
+                     :on-change   #(dispatch-sync [:update-note (-> % .-target .-value)])
+                     :value       @note
+                     }]]
+        ]]))
+  )
 
 (defn write-section []
   (let [note     (subscribe [:note :current-note])

      ]
     [:div
      [:div {:class "col-sm-4"}
       [:a {:class    "btn btn-primary btn-xs"
            :on-click #(do
                        (.scrollIntoView top-div-target)



(register-handler
  :edit-memory-set
  (fn [app-state [_ thought]]
    (if (empty? thought)
      (dispatch [:update-note nil]))
    (assoc-in app-state [:note :edit-memory] thought)
    ))


(register-handler
  :edit-memory-save
  (fn [app-state _]
    (let [note   (get-in app-state [:note :current-note])
          memory (get-in app-state [:note :edit-memory])
          url    (str "/api/memory/" (:id memory) "/thought")]
      (PUT url {:params        {:thought note :refine_id (get-in app-state [:note :focus :id])}
                :headers       {:authorization (str "Token " (get-in app-state [:credentials :token]))}
                :handler       #(dispatch [:edit-memory-success note])
                :error-handler #(dispatch [:edit-memory-error %])})
      )
    (assoc-in app-state [:ui-state :is-busy?] true)
    ))


(register-handler
  :edit-memory-success
  (fn [app-state [_ msg]]
    (dispatch [:set-message (str "Updated memory to: " msg) "alert-success"])
    (if (= :remember (get-in app-state [:ui-state :section]))         ; Just in case we allow editing from elsewhere...
      (dispatch [:load-memories]))
    (-> 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)
        )))


(register-handler
  :edit-memory-error
  (fn [app-state [_ result]]
    (dispatch [:set-message (str "Error editing note: " result) "alert-danger"])
    (clear-token-on-unauth result)
    (assoc-in app-state [:ui-state :is-busy?] false)
    ))


(register-handler
  :initialize
  (fn [app-state _]
    (dispatch [:set-token (cookies/get :token nil)])
