ux improvements for erros.

src/cljs/auto_ap/subs.cljs

@@ -119,3 +119,11 @@
  (fn [db]
    (map (fn [[k v]] (assoc v :id k))
         chooseable-expense-accounts)))
+
+(re-frame/reg-sub
+ ::page-failure
+ (fn [db]
+   (when-let [error (-> db :page-failure first)] 
+     (if (= 500 (:status error))
+       "System error occured. If you are stuck, please notify ben@integreatconsult.com."
+       (:message error)))))