Handle command input call message

src/syng_im/handlers.cljs

@@ -17,7 +17,7 @@
                                      set-chat-command-request]]
     [syng-im.handlers.server :as server]
     [syng-im.handlers.contacts :as contacts-service]
-    
+    [syng-im.handlers.suggestions :refer [get-command]]
     [syng-im.handlers.sign-up :as sign-up-service]
 
     [syng-im.models.chats :refer [create-chat]]
@@ -128,6 +128,8 @@
 (register-handler :send-chat-msg
   (fn [db [action chat-id text]]
     (log/debug action "chat-id" chat-id "text" text)
+    (if-let [command (get-command text)]
+      (dispatch [:set-chat-command (:command command)])
       (let [msg (if (= chat-id "console")
                   (sign-up-service/send-console-msg text)
                   (let [{msg-id :msg-id
@@ -141,7 +143,7 @@
                      :content-type text-content-type
                      :outgoing     true}))]
         (save-message chat-id msg)
-      (signal-chat-updated db chat-id))))
+        (signal-chat-updated db chat-id)))))
 
 (register-handler :send-chat-command
   (fn [db [action chat-id command content]]

src/syng_im/handlers/suggestions.cljs

@@ -11,3 +11,8 @@
     ;; TODO change 'commands' to 'suggestions'
     (filterv #(.startsWith (:text %) text) commands)
     []))
+
+(defn get-command [text]
+  (when (= (get text 0) "!")
+    ;; TODO change 'commands' to 'suggestions'
+    (first (filter #(= (:text %) text) commands))))