 
 
 (defn memory-thread []
-  (let [show?  (subscribe [:ui-state :show-thread?])
-        thread (subscribe [:note :thread])]
+  (let [show?     (subscribe [:ui-state :show-thread?])
+        thread-id (subscribe [:ui-state :show-thread-id])
+        thread    (subscribe [:threads @thread-id])]
     (fn []
       [Modal {:show @show? :onHide #(dispatch [:state-show-thread false])}
        [ModalBody

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

(register-handler

              (> p (or (get-in app-state [:search-state :page-index]) -1)))
        (do
          (GET "/api/search" {:params        {:q q :page p}
                              :headers       {:authorization (str "Token " (get-in app-state [:credentials :token]))}
                              :handler       #(dispatch [:memories-load-success %])
                              :error-handler #(dispatch [:memories-load-error %])
                              })
          (-> app-state
              (assoc-in [:ui-state :is-searching?] true)
              (assoc :search-state {:query       q
