              (not= :signup @section))
       (dispatch [:set-ui-section :login]))
     (condp = @section
-      :write [write-section]
+      ::record [write-section]
       :remember [memory-list]
       [login-form]
       )

  (fn [app-state [_ thought]]
    (-> app-state
        (assoc-in [:note :focus] thought)
        (assoc-in [:ui-state :section] :write))
    ))



    (cookies/set! :token token)
    (-> app-state
        (assoc-in [:credentials :token] token)
        (assoc-in [:ui-state :section] (if (empty? token) :login ::record))
        (assoc-in [:ui-state :wip-login?] false)
        (assoc-in [:credentials :password] nil)
        (assoc-in [:credentials :password2] nil))))
