staged command content

This commit is contained in:
Roman Volosovskyi 2016-06-29 13:48:53 +03:00
parent dfaf0806a0
commit fe8ef287aa

View File

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