From 8bd5ff1a5bf67f19d17bc88c63ceadea07b19d52 Mon Sep 17 00:00:00 2001
From: Pavol Noha <pavol.noha@gmail.com>
Date: Mon, 5 Jun 2017 20:29:08 +0200
Subject: [PATCH] network internal flag to form

---
 .../swarmpit/component/network/create.cljs    | 21 ++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/src/cljs/swarmpit/component/network/create.cljs b/src/cljs/swarmpit/component/network/create.cljs
index 72d0ec0c..e10988d9 100644
--- a/src/cljs/swarmpit/component/network/create.cljs
+++ b/src/cljs/swarmpit/component/network/create.cljs
@@ -12,6 +12,9 @@
 
 (def cursor [:page :network :form])
 
+(def form-internal-style
+  {:marginTop "14px"})
+
 (defn- form-name [value]
   (comp/form-comp
     "NAME"
@@ -41,6 +44,15 @@
          :value       "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
   []
   (ajax/POST "/networks"
@@ -62,7 +74,8 @@
 
 (rum/defc form < rum/reactive []
   (let [{:keys [name
-                driver]} (state/react cursor)]
+                driver
+                internal]} (state/react cursor)]
     [:div
      [:div.form-panel
       [:div.form-panel-right
@@ -73,12 +86,14 @@
             :onTouchTap create-network-handler}))]]
      [:div.form-edit
       (form-name name)
-      (form-driver driver)]]))
+      (form-driver driver)
+      (form-internal internal)]]))
 
 (defn- init-state
   []
   (state/set-value {:networkName ""
-                    :driver      nil} cursor))
+                    :driver      "overlay"
+                    :internal    false} cursor))
 
 (defn mount!
   []