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

     [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       :record
                                 :current-query ""
                                 :results-page  0
                                 :memories      {:pages 0}
