Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-03 12:59:12 -05:00
Code Issues Activity

Improve error handling on user events.

Browse source
This commit is contained in:
Andrey Antukh 2016-04-15 23:27:38 +03:00
parent 8353f92ea7
commit 2649f4bed2
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 15 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
src/uxbox/data/users.cljs
View file

@ -31,13 +31,9 @@
(defrecord FetchProfile []
rs/WatchEvent
(-apply-watch [_ state s]
(letfn [(on-error [err]
(uum/error (tr "errors.profile-fetch"))
(rx/empty))]
(->> (rp/req :fetch/profile)
(rx/catch on-error)
(rx/map :payload)
(rx/map profile-fetched)))))
(->> (rp/req :fetch/profile)
(rx/map :payload)
(rx/map profile-fetched))))
(defn fetch-profile
[]
@ -48,13 +44,9 @@
(defrecord UpdateProfile [data]
rs/WatchEvent
(-apply-watch [_ state s]
(letfn [(on-error [err]
(uum/error (tr "errors.update-profile"))
(rx/empty))]
(->> (rp/req :update/profile data)
(rx/catch on-error)
(rx/map :payload)
(rx/map profile-fetched)))))
(->> (rp/req :update/profile data)
(rx/map :payload)
(rx/map profile-fetched))))
(defn update-profile
[data]
@ -69,27 +61,24 @@
rs/EffectEvent
(-apply-effect [_ state]
(uum/info (tr "profile.password-saved"))))
(udm/info! (tr "profile.password-saved"))))
;; --- Update Password
(defrecord UpdatePassword [data]
rs/WatchEvent
(-apply-watch [_ state s]
(letfn [(on-error [{payload :payload :as data}]
(if (= (:type payload) :form/validation)
(rx/of
(forms/assign-errors :profile/password (:payload payload)))
(do
(uum/error (tr "errors.profile.update-password") {:timeout 3000})
(rx/empty))))]
(letfn [(on-error [{payload :payload}]
(->> (:payload payload)
(udf/assign-errors :profile/password)
(rx/of)))]
(let [params {:old-password (:old-password data)
:password (:password-1 data)}]
(->> (rp/req :update/password params)
(rx/map #(->PasswordUpdated))
(rx/catch on-error))))))
(rx/catch rp/client-error? on-error)
(rx/map #(->PasswordUpdated)))))))
(def update-password-schema
(def ^:private update-password-schema
[[:password-1 sc/required sc/string [sc/min-len 6]]
[:password-2 sc/required sc/string
[sc/identical-to :password-1 :message "errors.form.password-not-match"]]
@ -99,5 +88,5 @@
[data]
(let [[errors data] (sc/validate data update-password-schema)]
(if errors
(forms/assign-errors :profile/password errors)
(udf/assign-errors :profile/password errors)
(UpdatePassword. data))))