           message   (if is-unauth "Invalid username/password" (:status-text result))
           msg-type  (if is-unauth "alert-danger" "alert-warning")]
       (-> app-state
+          (assoc-in [:ui-state :wip-login?] false)
           (assoc-in [:credentials :message] {:text message :type msg-type})
           (assoc-in [:credentials :token] nil)
           (assoc-in [:credentials :password] nil)

            ))
        [memory-pager]
        ]
       "panel-primary"
       ]
      )))

(defn memory-list []

  (fn [app-state _]
    (dispatch [:set-token (cookies/get :token nil)])
    (merge app-state {:ui-state {:is-busy?      false
                                 :wip-login?    false
                                 :section       :login
                                 :current-query ""
                                 :results-page  0
