first step of page abstraction.

This commit is contained in:
Bryce Covert
2020-08-16 17:40:45 -07:00
parent 0c87309c34
commit 001c66547c
10 changed files with 410 additions and 281 deletions

View File

@@ -102,7 +102,10 @@
[:button.delete {:on-click (dispatch-event [::modal-closed])}]]
[:section.modal-card-body
body]
(let [status (some-> confirm :status-from re-frame/subscribe deref )]
(let [status (some-> confirm :status-from re-frame/subscribe deref )
can-submit (if-let [can-submit (-> confirm :can-submit)]
@(re-frame/subscribe can-submit)
true)]
(if foot
[:footer.modal-card-foot
[appearing {:visible? (= :error (:state status))
@@ -122,7 +125,11 @@
[:div.buttons
(when confirm
[:button.button {:class (conj (status/class-for status) (:class confirm) )
:disabled (if can-submit
false
true)
:on-click (:on-click confirm)}
(:value confirm)])
(when cancel?
[:button.button {:on-click (dispatch-event [::modal-closed] )} "Cancel"])]]]))]])))))