 HELP: add-listener "Listening to irc channels/users/etc"
 { $values { "irc-listener" "an irc listener object" } { "irc-client" "an irc client object" } }
 { $description "Registers " { $snippet "irc-listener" } " with " { $snippet "irc-client" } " and starts listening." } ;
+
+HELP: join-irc-channel "Joining channels"
+{ $values { "irc-client-listener" "an irc client listener object" } }
+{ $description "Joins to the channel being listened by " { $snippet "irc-listener" } "." } ;
 
 HELP: remove-listener "Stop an unregister listener"
 { $values { "irc-listener" "an irc listener object" } { "irc-client" "an irc client object" } }

{ $heading "Special messages" }
"Some special messages that are created by the library and not by the irc server."
{ $table
  { { $link irc-end } " sent when the client isn't running anymore, listeners should stop after this." }
  { { $link irc-disconnected } " sent to notify listeners that connection was lost." }
  { { $link irc-connected } " sent to notify listeners that a connection with the irc server was established." } }

{ $heading "Example:" }
{ $code
  "USING: irc.client concurrency.mailboxes ;"
  "SYMBOL: bot"
  "SYMBOL: mychannel"
  "! Create the profile and client objects"

  "\"#mychannel123\" <irc-channel-listener> mychannel set"
  "! Register and start listener (this joins the channel)"
  "mychannel get bot get add-listener"
  "! Join to the channel"
  "mychannel get join-irc-channel"
  "! Send a message to the channel"
  "\"what's up?\" mychannel get write-message"
  "! Read a message from the channel"
