[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

View File

@ -39,7 +39,8 @@
to (get-in contacts [chat-id :address])
jail-params {:parameters params
: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
:params jail-params
:callback-events-creator (fn [jail-response]

View File

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

View File

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