swarmpit/swarmpit
1
1
Fork 0
mirror of https://github.com/swarmpit/swarmpit.git synced 2025-09-06 05:44:22 +08:00
Code Issues Projects Releases Packages Wiki Activity

network internal flag to form

Browse source
This commit is contained in:
Pavol Noha 2017-06-05 20:29:08 +02:00
parent 2199b18063
commit 8bd5ff1a5b
1 changed files with 18 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/cljs/swarmpit/component/network/create.cljs
View file

@ -12,6 +12,9 @@
(def cursor [:page :network :form]) (def cursor [:page :network :form])
(def form-internal-style
{:marginTop "14px"})
(defn- form-name [value] (defn- form-name [value]
(comp/form-comp (comp/form-comp
"NAME" "NAME"
@ -41,6 +44,15 @@
:value "bridge" :value "bridge"
:primaryText "bridge"})))) :primaryText "bridge"}))))
(defn- form-internal [value]
(comp/form-comp
"IS PRIVATE"
(comp/checkbox
{:checked value
:style form-internal-style
:onCheck (fn [_ v]
(state/update-value [:internal] v cursor))})))
(defn- create-network-handler (defn- create-network-handler
[] []
(ajax/POST "/networks" (ajax/POST "/networks"
@ -62,7 +74,8 @@
(rum/defc form < rum/reactive [] (rum/defc form < rum/reactive []
(let [{:keys [name (let [{:keys [name
driver]} (state/react cursor)] driver
internal]} (state/react cursor)]
[:div [:div
[:div.form-panel [:div.form-panel
[:div.form-panel-right [:div.form-panel-right
@ -73,12 +86,14 @@
:onTouchTap create-network-handler}))]] :onTouchTap create-network-handler}))]]
[:div.form-edit [:div.form-edit
(form-name name) (form-name name)
(form-driver driver)]])) (form-driver driver)
(form-internal internal)]]))
(defn- init-state (defn- init-state
[] []
(state/set-value {:networkName "" (state/set-value {:networkName ""
:driver nil} cursor)) :driver "overlay"
:internal false} cursor))
(defn mount! (defn mount!
[] []