                                     (str "<@" me ">"))
            ctx    (assoc component :user user)]
        (timbre/debug [:slack-message
-                      {:user   (:id user)
-                       :dm?    dm?
-                       :to-me? to-me?}])
+                      {:user    (:id user)
+                       :dm?     dm?
+                       :to-me?  to-me?
+                       :message (get-in params [:event :text])}])
        (when (or dm? to-me?)
          (if-let [thread-ts (some-> params :event :thread_ts)]
            (eval-command (-> ctx

       (remove nil?)))

(defn save-pings [{:keys [db user thread-ts]} pings]
  (db/update-tags! db pings)
  (slack/send-messages
   user

(defmulti evaluate (fn [context [v & vs]] v))

(defmethod evaluate :CMDS [ctx [_ & vs]]
  (timbre/trace [:evaluate :CMDS vs])
  (doseq [[cmd {:keys [saved error]}] (map (partial evaluate ctx) vs)]
    (when error (timbre/error error))))

