disable 'create button' until new chat will be opened

Former-commit-id: 6e52fca420

src/syng_im/db.cljs

@@ -27,7 +27,8 @@
              :phone-number           "3147984309"
              :email                  "myemail@gmail.com"
              :status                 "Hi, this is my status"
-             :current-tag          nil})
+             :current-tag            nil
+             :disable-group-creation false})
 
 (def protocol-initialized-path [:protocol-initialized])
 (defn chat-input-text-path [chat-id]

src/syng_im/new_group/handlers.cljs

@@ -58,12 +58,29 @@
   [{:keys [new-group-id]} _]
   (dispatch [:show-chat new-group-id :replace]))
 
+(defn enable-creat-buttion
+  [db _]
+  (assoc db :disable-group-creation false))
+
 (register-handler :create-new-group
   (-> start-group-chat!
       ((enrich prepare-chat))
       ((enrich add-chat))
       ((after create-chat!))
-      ((after show-chat!))))
+      ((after show-chat!))
+      ((enrich enable-creat-buttion))))
+
+(defn disable-creat-button
+  [db _]
+  (assoc db :disable-group-creation true))
+
+(defn dispatch-create-group
+  [_ [_ group-name]]
+  (dispatch [:create-new-group group-name]))
+
+(register-handler :init-group-creation
+  (after dispatch-create-group)
+  disable-creat-button)
 
 ; todo rewrite
 (register-handler :group-chat-invite-received

src/syng_im/new_group/screen.cljs

@@ -18,12 +18,14 @@
 
 
 (defview new-group-toolbar []
-  [group-name [:get ::group-name]]
+  [group-name [:get ::group-name]
+   creation-disabled? [:get :disable-group-creation]]
   [toolbar
    {:title  "New group chat"
     :action {:image   {:source res/v                        ;; {:uri "icon_search"}
                        :style  st/toolbar-icon}
-             :handler #(dispatch [:create-new-group group-name])}}])
+             :handler (when-not creation-disabled?
+                        #(dispatch [:init-group-creation group-name]))}}])
 
 (defview group-name-input []
   [group-name [:get ::group-name]]