gistfile1.clj

(ns chat.common)

(defn send-message
  [agt message-name & args]
  ;(println "Sending " message-name " to " agt " with args = " args)
  (send agt #(apply (% message-name) % args)))

; I realize this are two unsyncronized agents and 
; for a short while it could be that a user 
; is added to the channel, but not the channel
; to the user, and vice versa. 
; This is ok!
(defn add-user-to-channel
  [user channel]
  (user :send :add-channel channel)
  (channel :send :add-user user))

(defn login
  [session user]
  (session :send :set-user user)
  (user :send :set-session session)
  nil)