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 #1045

This commit is contained in:
Roman Volosovskyi 2017-04-20 10:59:56 +03:00 committed by Roman Volosovskyi
parent 9d6f155c38
commit 4f7f5c11c9
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/status_im/chat/subs.cljs
View File

@ -85,28 +85,27 @@
(register-sub
:current-chat-argument-position
(fn [db [_ chat-id]]
(let [chat-id (or chat-id (@db :current-chat-id))
command (subscribe [:selected-chat-command chat-id])
input-text (subscribe [:chat :input-text chat-id])
seq-arguments (subscribe [:chat :seq-arguments chat-id])]
(fn [db]
(let [command (subscribe [:selected-chat-command])
input-text (subscribe [:chat :input-text])
seq-arguments (subscribe [:chat :seq-arguments])]
(reaction
(input-model/current-chat-argument-position @command @input-text @seq-arguments)))))
(register-sub
:chat-parameter-box
(fn [db [_ chat-id]]
(let [chat-id (or chat-id (@db :current-chat-id))
command (subscribe [:selected-chat-command chat-id])
index (subscribe [:current-chat-argument-position chat-id])]
(fn [db]
(let [chat-id (subscribe [:get-current-chat-id])
command (subscribe [:selected-chat-command])
index (subscribe [:current-chat-argument-position])]
(reaction
(cond
(and @command (> @index -1))
(let [command-name (get-in @command [:command :name])]
(get-in @db [:chats chat-id :parameter-boxes command-name @index]))
(get-in @db [:chats @chat-id :parameter-boxes command-name @index]))
(not @command)
(get-in @db [:chats chat-id :parameter-boxes :message])
(get-in @db [:chats @chat-id :parameter-boxes :message])
:default
nil)))))