removed messages to wallet
This commit is contained in:
parent
8269d6d9a9
commit
6b9095d235
|
@ -82,14 +82,7 @@
|
||||||
(update :dispatch-n conj [:request-command-preview enriched-message])
|
(update :dispatch-n conj [:request-command-preview enriched-message])
|
||||||
|
|
||||||
(= (:content-type enriched-message) const/content-type-command-request)
|
(= (:content-type enriched-message) const/content-type-command-request)
|
||||||
(update :dispatch-n conj [:add-request chat-identifier enriched-message])
|
(update :dispatch-n conj [:add-request chat-identifier enriched-message])))
|
||||||
;; TODO(janherich) refactor this ugly special treatment of wallet send commands for logged in user
|
|
||||||
(and (= (get-in message [:content :params :bot-db :public :recipient :whisper-identity])
|
|
||||||
current-identity)
|
|
||||||
(= content-type const/content-type-command)
|
|
||||||
(not= chat-identifier const/wallet-chat-id)
|
|
||||||
(= "send" (get-in message [:content :command])))
|
|
||||||
(update :dispatch-n conj [:received-message (wallet-message (assoc message :message-id random-id))])))
|
|
||||||
{:db db})))
|
{:db db})))
|
||||||
|
|
||||||
(def ^:private receive-interceptors
|
(def ^:private receive-interceptors
|
||||||
|
|
|
@ -96,16 +96,7 @@
|
||||||
(dispatch [:set-chat-ui-props {:sending-in-progress? false}])
|
(dispatch [:set-chat-ui-props {:sending-in-progress? false}])
|
||||||
(dispatch [::send-command! add-to-chat-id (assoc params :command command') hidden-params])
|
(dispatch [::send-command! add-to-chat-id (assoc params :command command') hidden-params])
|
||||||
(when (cu/console? chat-id)
|
(when (cu/console? chat-id)
|
||||||
(dispatch [:console-respond-command params]))
|
(dispatch [:console-respond-command params]))))))
|
||||||
(when (and (= "send" (:name command))
|
|
||||||
(not= add-to-chat-id wallet-chat-id))
|
|
||||||
(let [ct (if request
|
|
||||||
c/content-type-wallet-request
|
|
||||||
c/content-type-wallet-command)
|
|
||||||
content' (assoc content :id (random/id)
|
|
||||||
:content-type ct)
|
|
||||||
params' (assoc params :command content')]
|
|
||||||
(dispatch [:prepare-command! wallet-chat-id params'])))))))
|
|
||||||
|
|
||||||
(register-handler ::send-command!
|
(register-handler ::send-command!
|
||||||
(u/side-effect!
|
(u/side-effect!
|
||||||
|
|
|
@ -280,7 +280,7 @@
|
||||||
(into {}))
|
(into {}))
|
||||||
contacts (into {} contacts-list)
|
contacts (into {} contacts-list)
|
||||||
;;TODO temporary hide wallet contact, this code should be deleted after wallet contact will be deleted
|
;;TODO temporary hide wallet contact, this code should be deleted after wallet contact will be deleted
|
||||||
contacts' (if (get-in contacts "wallet")
|
contacts' (if (get contacts "wallet")
|
||||||
(assoc-in contacts ["wallet" :pending?] true)
|
(assoc-in contacts ["wallet" :pending?] true)
|
||||||
contacts)]
|
contacts)]
|
||||||
{:db (assoc db :contacts/contacts contacts'
|
{:db (assoc db :contacts/contacts contacts'
|
||||||
|
|
Loading…
Reference in New Issue