Disable send button when no peers are connected.

cammellos · cammellos · commit 1e5b6860277e · 2018-11-27T13:15:57.000+01:00
Previously we were only checking whether `network-status` is equal to
`:offline`, therefore allowing the user to send messages even when no
peers are connected (i.e. the app is displaying Connecting to peers..).

Signed-off-by: Andrea Maria Piana &lt;andrea.maria.piana@gmail.com&gt;
diff --git a/src/status_im/ui/screens/chat/input/send_button.cljs b/src/status_im/ui/screens/chat/input/send_button.cljs
@@ -14,20 +14,20 @@
        (animation/timing spin-value {:toValue  to-spin-value
                                      :duration 300})))))
 
-(defn sendable? [input-text network-status]
+(defn sendable? [input-text offline?]
   (let [trimmed (string/trim input-text)]
     (not (or (string/blank? trimmed)
              (= trimmed "/")
-             (= :offline network-status)))))
+             offline?))))
 
 (defview send-button-view []
   (letsubs [{:keys [command-completion]}            [:chats/selected-chat-command]
             {:keys [input-text seq-arg-input-text]} [:chats/current-chat]
-            network-status                          [:network-status]
+            offline?                                [:offline?]
             spin-value                              (animation/create-value 1)]
     {:component-did-update (send-button-view-on-update {:spin-value         spin-value
                                                         :command-completion command-completion})}
-    (when (and (sendable? input-text network-status)
+    (when (and (sendable? input-text offline?)
                (or (not command-completion)
                    (#{:complete :less-than-needed} command-completion)))
       [react/touchable-highlight {:on-press #(re-frame/dispatch [:chat.ui/send-current-message])}
diff --git a/src/status_im/ui/screens/subs.cljs b/src/status_im/ui/screens/subs.cljs
@@ -48,18 +48,20 @@
 (reg-sub :network-status :network-status)
 (reg-sub :peers-count :peers-count)
 
-(reg-sub :offline?
-         :<- [:network-status]
-         :<- [:sync-state]
-         (fn [[network-status sync-state]]
-           (or (= network-status :offline)
-               (= sync-state :offline))))
-
 (reg-sub :disconnected?
          :<- [:peers-count]
          (fn [peers-count]
            (zero? peers-count)))
 
+(reg-sub :offline?
+         :<- [:network-status]
+         :<- [:sync-state]
+         :<- [:disconnected?]
+         (fn [[network-status sync-state disconnected?]]
+           (or disconnected?
+               (= network-status :offline)
+               (= sync-state :offline))))
+
 (reg-sub :syncing?
          :<- [:sync-state]
          (fn [sync-state]
