 (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 <>))))
+    (log/debug (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))
+        (log/debug (u/format-color 'green response))
         (slack/post-chat-message! (:channel message) response)))))
 
 (defn- handle-slack-message [message]

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



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