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

cleaning up dialog.

Browse Source
This commit is contained in:
Bryce Covert
2018-04-05 09:26:39 -07:00
parent 154b2a214b
commit 1045514916
1 changed files with 23 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
src/cljs/auto_ap/views/pages/admin/companies.cljs
View File

@@ -49,21 +49,30 @@
(str "Edit " (:name editing-company))] (str "Edit " (:name editing-company))]
[:button.delete {:on-click (fn [] (re-frame/dispatch [::events/edit-company nil]))}]] [:button.delete {:on-click (fn [] (re-frame/dispatch [::events/edit-company nil]))}]]
[:section.modal-card-body [:section.modal-card-body
[:label {:for "company-name"} "Name"] [:div.field
[:input#company-name.input {:type "text" :value (:name editing-company) [:label.label "Name"]
:on-change (fn [e] [:div.control
(re-frame/dispatch [::events/change-editing-company [:name] [:input#company-name.input {:type "text" :value (:name editing-company)
(.. e -target -value)]))}] :on-change (fn [e]
(re-frame/dispatch [::events/change-editing-company [:name]
(.. e -target -value)]))}]]]
[:label {:for "email"} "Email"] [:div.field
[:input#email.input {:type "email" [:label.label "Email"]
:value (:email editing-company) [:div.control
:on-change (fn [e] [:input#email.input {:type "email"
(re-frame/dispatch [::events/change-editing-company [:email] :value (:email editing-company)
(.. e -target -value)]))}] :on-change (fn [e]
[:div.control (re-frame/dispatch [::events/change-editing-company [:email]
[:label {:for "check"} "Send invoice reminders?" (.. e -target -value)]))}]]]
[:input#check.checkbox {:type "checkbox" :value (:send-reminders editing-company)}]]] [:div.field
[:div.control
[:label.radio
[:input {:type "radio" :name "schedule"}]
"Send Invoice Reminders Weekly"]
[:label.radio
[:input {:type "radio" :name "schedule"}]
"Do not send invoice reminders"]]]