parent
cc850f3d7c
commit
5c54060217
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue