staged command content

This commit is contained in:
Roman Volosovskyi 2016-06-29 13:48:53 +03:00
parent dfaf0806a0
commit fe8ef287aa
1 changed files with 5 additions and 4 deletions

View File

@ -107,10 +107,11 @@
(after invoke-command-preview!)
(fn [{:keys [current-chat-id] :as db} _]
(let [db (update-input-text db nil)
{:keys [command content]}
(get-in db [:chats current-chat-id :command-input])
command-info {:command command
:content content}]
{:keys [command content]} (get-in db [:chats current-chat-id :command-input])
content' (if (= :command (:type command))
(subs content 2)
content)
command-info {:command command :content content'}]
(-> db
;(assoc-in [:chats current-chat-id :command-input :command] nil)
(commands/stage-command command-info)