Multiple bots passing bot-specific information to a handler

morse-bots.clj

(defhandler client-handler
  (command "start" (handle-start message))
  (command "stop" (handle-stop message))
  (message message (handle-msg message)))

; means

(def client-handler (handlers (command "start" (handle-start message))
                              (command "stop"  (handle-stop message))
                              (message message (handle-msg message))))

; so you can do something like this

(defn make-handler [bot-id]
  (handlers (command "start" (handle-start bot-id message))
            (command "stop"  (handle-stop bot-id message))
            (message message (handle-msg bot-id message))))

; and then

(def channel1
  (pol/start token1 (make-handler client-handler :bot-1)))

(def channel2
  (pol/start token1 (make-handler client-handler :bot-2)))