Merge pull request #8094 from NBKelly/temporarily-disable-typing-events

temporarily disable typing events

Author: NBKelly

src/cljs/nr/gameboard/log.cljs

@@ -49,12 +49,14 @@
   "Send a typing event to server for this user if it is not already set in game state AND user is not a spectator"
   [s]
   (r/with-let [typing (r/cursor game-state [:typing])]
-    (let [text (:msg @s)]
+    (let [typing? (boolean (seq (:msg @s)))]
       (when (and (not (:replay @game-state))
-                 (not @typing)
+                 ;; only send if the typing state is different
+                 (or (and (not @typing) typing?)
+                     (and (not typing?) @typing))
                  (not-spectator?))
         (ws/ws-send! [:game/typing {:gameid (current-gameid app-state)
-                                    :typing (boolean (seq text))}])))))
+                                    :typing typing?}])))))
 
 (defn indicate-action []
   (when (not-spectator?)
@@ -140,7 +142,8 @@
   (reset-command-menu state)
   (swap! state assoc :command-matches (-> e .-target .-value (find-command-matches commands)))
   (swap! state assoc :msg (-> e .-target .-value))
-  (send-typing state))
+  ;;(send-typing state)
+  )
 
 (defn command-menu [!input-ref state]
   (when (show-command-menu? @state)
@@ -179,7 +182,7 @@
              :autoComplete "off"
              :ref #(reset! !input-ref %)
              :value (:msg @state)
-             :on-blur #(send-typing (atom nil))
+             ;;:on-blur #(send-typing (atom nil))
              :on-key-down #(command-menu-key-down-handler state %)
              :on-change #(log-input-change-handler state %)}]]]
          [indicate-action]