Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-15 11:38:24 -05:00
Code Issues Activity

Improve form related events naming.

Browse source
This commit is contained in:
Andrey Antukh 2016-04-13 23:53:49 +03:00
parent 58a86872f5
commit 8b23cd6f3c
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/uxbox/data/workspace.cljs
View file

@ -200,7 +200,7 @@
;; --- Update Workspace Settings (Form)
(defrecord UpdateWorkspaceSettings [id options]
(defrecord SubmitWorkspaceSettings [id options]
rs/WatchEvent
(-apply-watch [_ state s]
(rx/of (udp/update-page-options id options)
@ -211,16 +211,16 @@
(-apply-effect [_ state]
(lightbox/close!)))
(def update-workspace-settings-schema
(def submit-workspace-settings-schema
{:grid/y-axis [sc/required sc/integer [sc/in-range 2 100]]
:grid/x-axis [sc/required sc/integer [sc/in-range 2 100]]
:grid/alignment [sc/boolean]
:grid/color [sc/required sc/color]})
(defn update-workspace-settings
(defn submit-workspace-settings
[id data]
(let [schema update-workspace-settings-schema
(let [schema submit-workspace-settings-schema
[errors data] (sc/validate data schema)]
(if errors
(udf/assign-errors :workspace/settings errors)
(UpdateWorkspaceSettings. id data))))
(SubmitWorkspaceSettings. id data))))

2
src/uxbox/ui/workspace/settings.cljs
View file

@ -57,7 +57,7 @@
(rs/emit! (assign-field-value :grid/alignment checked?))))
(on-submit [event]
(dom/prevent-default event)
(rs/emit! (udw/update-workspace-settings (:id page) form)))]
(rs/emit! (udw/submit-workspace-settings (:id page) form)))]
(html
[:form {:on-submit on-submit}
[:span.lightbox-label "Grid size"]