ux improvements for erros.

src/cljs/auto_ap/events.cljs

@@ -124,8 +124,10 @@
    (if (and (not= :login handler) (not (:user db)))
      {:redirect "/login"
       :db (assoc db :active-page :login
+                 :page-failure nil
                  :auto-ap.forms/forms nil)}
      {:db (assoc db :active-page handler
+                 :page-failure nil
                  :query-params params
                  :auto-ap.forms/forms nil)})))
 
@@ -219,6 +221,12 @@
  ::save-complete
  (fn  [{:keys [db]} [_ vendor]]
    {:dispatch [::modal-completed :auto-ap.views.main/user-editing-vendor ]
-    :db (-> db
-            (dissoc :user-editing-vendor)
-            (assoc-in [:vendors (:id vendor)] (:upsert-vendor vendor)))}))
+    :db       (-> db
+                  (dissoc :user-editing-vendor)
+                  (assoc-in [:vendors (:id vendor)] (:upsert-vendor vendor)))}))
+(re-frame/reg-event-db
+ ::page-failed
+ (fn [db [_ result]]
+   (println "Page failure" result)
+   (assoc db :page-failure result
+          :status nil)))