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

             [navbar-item "Login" :login]
             [navbar-item "Sign up" :signup]]
            [:ul {:class "nav navbar-nav"}
             [navbar-item "Record" :write]
             [navbar-item "Remember" :remember]])
          ]]
        ]]

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