 
 (defn send-message-raw
   "Send a message to a IRC channel. Warning: unthrottled."
-  [conn nick msg]
+  [conn nick msg chan]
   (do
     (irc/message conn "#clojurecup-breakfast" (str nick " says: " msg))
-    (put! irc-chan (str nick ": " msg))))
+    (put! irc-chan (str nick ": " msg " (" chan ")"))))
+
+;; (put! irc-chan (str nick ": " text "(" (first (:params m)) ")"))
 
 (defn send-info-message-raw
   "Code duplication is good, right?"
-  [conn nick msg]
+  [conn nick msg chan]
   (do
     (irc/message conn "#clojurecup-breakfast" (str nick " just " msg))
-    (put! irc-chan (str nick " just " msg))))
+    (put! irc-chan (str nick " just " msg " (" chan ")"))))
 
 
 ;; maybe? cause not PRIVMSG so need to push it.

(defn handle-incoming
  "Deal with incoming IRC messages from the web client."
  [_ {:keys [text nick] :as m}]
  (do (put! irc-chan (str nick ": " text))
      (println (str "[IRC] " nick ": " text " mk? " (keys m)))))

(defn start-irc []
  (let [conn (irc/connect "irc.freenode.net" 6667 "breakfastbot"

            ))

;;;_* Code =============================================================
;;;_ * Channels  -------------------------------------------------------
(let [{:keys [ch-recv send-fn ajax-post-fn ajax-get-or-ws-handshake-fn
              connected-uids]}
