      :to               chat-id
      :content          content
      :content-type     content-type-command
+     :delivery-status  (default-delivery-status chat-id)
      :outgoing         true
      :preview          preview-string
      :rendered-preview preview


(register-handler :send-seen!
  (after (fn [_ [_ chat-id message-id]]
           (when-not (= "console" chat-id))
           (dispatch [:msg-seen chat-id message-id])))
  (u/side-effect!
    (fn [_ [_ chat-id message-id]]
      (when-not (= "console" chat-id)
        (api/send-seen chat-id message-id)))))

  (fn [db [_ {:keys [chat-id msg-id]}]]
    (set-message-shown db chat-id msg-id)))

(defn default-delivery-status [chat-id]
  (if (console? chat-id)
    :seen
    :pending))

(defn prepare-message
  [{:keys [identity current-chat-id] :as db} _]
  (let [text (get-in db [:chats current-chat-id :input-text])
