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

(defn header []
  (let [state  (subscribe [:ui-state :section])
        header (condp = @state
                 :write "Make a new memory"
                 :remember "Remember"
                 "")]
    (if (not-empty header)

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