 
 (defn- handle-slack-event [socket start-time event]
   (when-not (= socket @websocket)
-    (println "Go home websocket, you're drunk.")
+    (log/debug "Go home websocket, you're drunk.")
     (s/close! socket)
     (throw (Exception.)))
 
   (when-let [event (json/parse-string event keyword)]
     (when (and (human-message? event)
                (> (event-timestamp-ms event) start-time))
-      (println (u/pprint-to-str 'cyan event))
+      (log/debug (u/pprint-to-str 'cyan event))
       (binding [*channel-id* (:channel event)]
         (do-async (handle-slack-message event))))))
 

    (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))
