status-im
/
status-react
mirror of https://github.com/status-im/status-react.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

[fix #1604]: Commands send, request, location are sent several times if quickly tap on send button

This commit is contained in:
Alexander Pantyukhov 2018-01-10 09:52:54 +01:00 committed by Oskar Thoren
parent 65f2f51632
commit a40f9bc8c1
No known key found for this signature in database
GPG Key ID: 5128AB0637CD85AF
3 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/status_im/chat/events/commands.cljs
View File

@ -39,7 +39,8 @@
to (get-in contacts [chat-id :address]) to (get-in contacts [chat-id :address])
jail-params {:parameters params jail-params {:parameters params
:context (generate-context current-account-id chat-id to group-id)}] :context (generate-context current-account-id chat-id to group-id)}]
{:call-jail {:jail-id jail-id {:db db
:call-jail {:jail-id jail-id
:path path :path path
:params jail-params :params jail-params
:callback-events-creator (fn [jail-response] :callback-events-creator (fn [jail-response]

3
src/status_im/chat/events/input.cljs
View File

@ -384,8 +384,7 @@
validationHandler validationHandler
[[::execute-validation-handler [[::execute-validation-handler
validationHandler parameters error-events-creator proceed-events] validationHandler parameters error-events-creator proceed-events]]
[:set-chat-ui-props {:sending-in-progress? false}]]
:default :default
proceed-events)] proceed-events)]

8
src/status_im/chat/views/input/input.cljs
View File

@ -48,7 +48,6 @@
(defn- basic-text-input [_] (defn- basic-text-input [_]
(let [input-text (subscribe [:chat :input-text]) (let [input-text (subscribe [:chat :input-text])
command (subscribe [:selected-chat-command]) command (subscribe [:selected-chat-command])
sending-in-progress? (subscribe [:get-current-chat-ui-prop :sending-in-progress?])
input-focused? (subscribe [:get-current-chat-ui-prop :input-focused?]) input-focused? (subscribe [:get-current-chat-ui-prop :input-focused?])
input-ref (atom nil)] input-ref (atom nil)]
(fn [{:keys [set-layout-height-fn set-container-width-fn height single-line-input?]}] (fn [{:keys [set-layout-height-fn set-container-width-fn height single-line-input?]}]
@ -59,7 +58,7 @@
:accessibility-label :chat-message-input :accessibility-label :chat-message-input
:multiline (not single-line-input?) :multiline (not single-line-input?)
:default-value (or @input-text "") :default-value (or @input-text "")
:editable (not @sending-in-progress?) :editable true
:blur-on-submit false :blur-on-submit false
:on-focus #(dispatch [:set-chat-ui-props {:input-focused? true :on-focus #(dispatch [:set-chat-ui-props {:input-focused? true
:show-emoji? false}]) :show-emoji? false}])
@ -144,8 +143,7 @@
(defn- seq-input [_] (defn- seq-input [_]
(let [command (subscribe [:selected-chat-command]) (let [command (subscribe [:selected-chat-command])
arg-pos (subscribe [:current-chat-argument-position]) arg-pos (subscribe [:current-chat-argument-position])
seq-arg-input-text (subscribe [:chat :seq-argument-input-text]) seq-arg-input-text (subscribe [:chat :seq-argument-input-text])]
sending-in-progress? (subscribe [:get-current-chat-ui-prop :sending-in-progress?])]
(fn [{:keys [command-width container-width]}] (fn [{:keys [command-width container-width]}]
(when (get-in @command [:command :sequential-params]) (when (get-in @command [:command :sequential-params])
(let [{:keys [placeholder hidden type]} (get-in @command [:command :params @arg-pos])] (let [{:keys [placeholder hidden type]} (get-in @command [:command :params @arg-pos])]
@ -158,7 +156,7 @@
:placeholder placeholder :placeholder placeholder
:accessibility-label :chat-request-input :accessibility-label :chat-request-input
:blur-on-submit false :blur-on-submit false
:editable (not @sending-in-progress?) :editable true
:on-focus #(dispatch [:set-chat-ui-props {:show-emoji? false}]) :on-focus #(dispatch [:set-chat-ui-props {:show-emoji? false}])
:on-submit-editing (fn [] :on-submit-editing (fn []
(when-not (or (str/blank? @seq-arg-input-text) (when-not (or (str/blank? @seq-arg-input-text)