   (let [command-key (get-in staged-command [:command :command])
         content     {:command (name command-key)
                      :content (:content staged-command)}]
-    {:msg-id       (random/id)
-     :from         identity
-     :to           chat-id
-     :content      content
-     :content-type content-type-command
-     :outgoing     true
-     :handler      (:handler staged-command)}))
+    {:msg-id         (random/id)
+     :from           identity
+     :to             chat-id
+     :content        content
+     :content-type   content-type-command
+     :outgoing       true
+     :handler        (:handler staged-command)
+     :same-author    false
+     :same-direction false}))
 
 (defn prepare-staged-commans
   [{:keys [current-chat-id identity] :as db} _]


(defn prepare-message
  [{:keys [identity current-chat-id] :as db} _]
  (let [text             (get-in db [:chats current-chat-id :input-text])
        {:keys [command]} (check-suggestion db (str text " "))]
    (if command
      (set-chat-command db command)

(defn add-message
  [{:keys [new-message current-chat-id] :as db}]
  (if new-message
    (add-message-to-db db current-chat-id new-message)
    db))

(defn add-commands
  [{:keys [new-commands current-chat-id] :as db}]
  (reduce
    #(add-message-to-db %1 current-chat-id %2)
    db
    new-commands))

