 (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)))))
+  (do (put! irc-chan (str nick ": " text "(" (first (:params m)) ")"))
+      (println (str "[IRC] " nick ": " text "(" (first (:params m)) ")"))))
+;;(:text :target :command :params :raw :host :user :nick)
 
 (defn start-irc []
   (let [conn (irc/connect "irc.freenode.net" 6667 "breakfastbot"

              ev (:event v)
              load (second ev)]
          (condp identical? (first ev)
            :chsk/uidport-open (send-info-message-throttled conn (-> v :ring-req :session :uid) "joined.")
            :chsk/uidport-close (send-info-message-throttled conn (-> v :ring-req :session :uid) "left.")
            :chsk/ws-ping nil ;; (prn "ping")
            :irc/message
            (do
              (println (str (:uid load) ": " (:msg load)))
              (send-message-throttled conn (:uid load) (:msg load)))
            )))))

;;;_ * Requests/HTML --------------------------------------------------

            ))

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