                           {(if (true? dispatch-token)
                              (keyword symb)
                              dispatch-token) varr}))]
-    (log/debug (u/format-color 'cyan verb) fn-map)
+    (println (u/format-color 'cyan verb) fn-map)
     (fn dispatch*
       ([]
        (keys-description (format "Here's what I can %s:" verb) fn-map))

    (when-let [tokens (seq (edn/read-string (str "(" (-> s
                                                         (str/replace "“" "\"") ; replace smart quotes
                                                         (str/replace "”" "\"")) ")")))]
      (log/debug (u/format-color 'magenta tokens))
      (apply apply-metabot-fn tokens))))



(defn- message->command-str [{:keys [text]}]
  (u/prog1 (when (seq text)
             (second (re-matches #"^mea?ta?boa?t\s+(.*)$" text)))
    (println (u/format-color 'yellow <>))))

(defn- respond-to-message! [message response]
  (when response
    (let [response (if (coll? response) (str "```\n" (u/pprint-to-str response) "```")
                       (str response))]
      (when (seq response)
        (println (u/format-color 'green response))
        (slack/post-chat-message! (:channel message) response)))))

(defn- handle-slack-message [message]
