notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

more specs.

Browse Source
This commit is contained in:
Bryce Covert
2018-04-09 16:27:03 -07:00
parent f7dea19d2e
commit 5e7add409f
25 changed files with 246 additions and 209 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/cljs/auto_ap/events/admin/companies.cljs
View File

@@ -3,6 +3,7 @@
[auto-ap.db :as db]
[auto-ap.routes :as routes]
[auto-ap.effects :as effects]
[auto-ap.entities.companies :as entity]
[bidi.bidi :as bidi]))
(re-frame/reg-event-db
@@ -18,10 +19,11 @@
{:db (assoc-in db [:admin :company :saving?] true)
:http {:method :put
:token (:user db)
:body (pr-str (select-keys edited-company [:name :email :data :invoice-reminder-schedule]))
:body (pr-str edited-company)
:headers {"Content-Type" "application/edn"}
:uri (str "/api/companies/" (:id edited-company))
:on-success [::save-complete]}})))
:uri (str "/api/companies/" (::entity/id edited-company))
:on-success [::save-complete]
:on-error [::save-error]}})))
(re-frame/reg-event-db
::save-complete
@@ -29,7 +31,14 @@
(-> db
(assoc-in [:admin :company] nil)
(assoc-in [:companies (:id company)] company))))
(assoc-in [:companies (::entity/id company)] company))))
(re-frame/reg-event-db
::save-error
(fn [db [_ company]]
(-> db
(assoc-in [:admin :company :saving?] false)
(assoc-in [:admin :company :error] true))))
(re-frame/reg-event-db
::change