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

  (bidi/match-route routes s))

(def history
  (pushy/pushy set-page! bidi-matcher #_(partial bidi/match-route routes)))


;;;;-------------------------

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