Merge pull request #19 from status-im/command-as-non-command

fix command as non-command

Former-commit-id: 393dd19704
This commit is contained in:
Jarrad 2016-04-25 18:16:11 +07:00
commit 555da5011e
4 changed files with 30 additions and 11 deletions

View File

@ -25,7 +25,8 @@
handle-command handle-command
get-command-handler get-command-handler
load-commands load-commands
apply-staged-commands]] apply-staged-commands
check-suggestion]]
[syng-im.handlers.sign-up :as sign-up-service] [syng-im.handlers.sign-up :as sign-up-service]
[syng-im.models.chats :refer [create-chat [syng-im.models.chats :refer [create-chat
@ -392,7 +393,10 @@
(register-handler :set-chat-input-text (register-handler :set-chat-input-text
(fn [db [_ text]] (fn [db [_ text]]
(set-chat-input-text db text))) (let [{:keys [command]} (check-suggestion db text)]
(-> db
(set-chat-input-text text)
(set-chat-command command)))))
(register-handler :set-chat-command (register-handler :set-chat-command
(fn [db [_ command-key]] (fn [db [_ command-key]]

View File

@ -154,21 +154,21 @@
(defn intro [db] (defn intro [db]
(dispatch [:received-msg (dispatch [:received-msg
{:msg-id (random/id) {:msg-id "intro-message1"
:content "Hello there! It's Syng, a Dapp browser in your phone." :content "Hello there! It's Syng, a Dapp browser in your phone."
:content-type text-content-type :content-type text-content-type
:outgoing false :outgoing false
:from "console" :from "console"
:to "me"}]) :to "me"}])
(dispatch [:received-msg (dispatch [:received-msg
{:msg-id (random/id) {:msg-id "intro-message2"
:content (str "Syng uses a highly secure key-pair authentication type " :content (str "Syng uses a highly secure key-pair authentication type "
"to provide you a reliable way to access your account") "to provide you a reliable way to access your account")
:content-type text-content-type :content-type text-content-type
:outgoing false :outgoing false
:from "console" :from "console"
:to "me"}]) :to "me"}])
(let [msg-id (random/id)] (let [msg-id "into-message3"]
(dispatch [:received-msg (dispatch [:received-msg
{:msg-id msg-id {:msg-id msg-id
:content (commands/format-command-request-msg-content :content (commands/format-command-request-msg-content

View File

@ -9,16 +9,20 @@
get-chat-command-to-msg-id get-chat-command-to-msg-id
clear-staged-commands]] clear-staged-commands]]
[syng-im.utils.utils :refer [log on-error http-get]] [syng-im.utils.utils :refer [log on-error http-get]]
[syng-im.utils.logging :as log])) [syng-im.utils.logging :as log]
[clojure.string :as s]))
(defn suggestion? [text]
(= (get text 0) "!"))
(defn get-suggestions [db text] (defn get-suggestions [db text]
(if (= (get text 0) "!") (if (suggestion? text)
;; TODO change 'commands' to 'suggestions' ;; TODO change 'commands' to 'suggestions'
(filterv #(.startsWith (:text %) text) (get-commands db)) (filterv #(.startsWith (:text %) text) (get-commands db))
[])) []))
(defn get-command [db text] (defn get-command [db text]
(when (= (get text 0) "!") (when (suggestion? text)
;; TODO change 'commands' to 'suggestions' ;; TODO change 'commands' to 'suggestions'
(first (filter #(= (:text %) text) (get-commands db))))) (first (filter #(= (:text %) text) (get-commands db)))))
@ -53,3 +57,11 @@
(defn load-commands [] (defn load-commands []
(http-get "chat-commands.js" execute-commands-js nil)) (http-get "chat-commands.js" execute-commands-js nil))
(defn check-suggestion [db message]
(when-let [suggestion-text (when (string? message)
(re-matches #"^![^\s]+\s" message))]
(let [suggestion-text' (s/trim suggestion-text)
[suggestion] (filter #(= suggestion-text' (:text %))
(get-commands db))]
suggestion)))

View File

@ -38,7 +38,10 @@
(register-sub :get-suggestions (register-sub :get-suggestions
(fn [db _] (fn [db _]
(let [input-text (reaction (get-in @db (db/chat-input-text-path (current-chat-id @db))))] (let [input-text (->> (current-chat-id @db)
db/chat-input-text-path
(get-in @db)
(reaction))]
(reaction (get-suggestions @db @input-text))))) (reaction (get-suggestions @db @input-text)))))
(register-sub :get-commands (register-sub :get-commands