      [memory-thread]
      [memory-query]
      [memory-results]]))
-
 
 (defn login-form []
   (let [username  (subscribe [:credentials :username])

    (merge app-state {:ui-state {:is-busy?      false
                                 :wip-login?    false
                                 :show-thread?  false
                                 :section       :login
                                 :current-query ""
                                 :results-page  0
                                 :memories      {:pages 0}

  (fn [app-state [_ section]]
    (if (= :remember section)
      (dispatch [:memories-load]))
    ; Do not associate nil sections
    (if (some? section)
      (assoc-in app-state [:ui-state :section] section)
      app-state)))

(reg-event-db
  :state-message
