extra/irc/client/client.factor

   1 ! Copyright (C) 2008 Bruno Deferrari, Doug Coleman, Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors concurrency.mailboxes destructors
   4 irc.client.base irc.client.chats irc.client.internals kernel
   5 namespaces sequences ;
   6 IN: irc.client
   7
   8 : connect-irc ( irc-client -- )
   9     [ (connect-irc) (do-login) spawn-irc ] with-irc ;
  10
  11 : attach-chat ( irc-chat irc-client -- ) [ (attach-chat) ] with-irc ;
  12 : detach-chat ( irc-chat -- ) dup client>> [ remove-chat ] with-irc ;
  13 : speak ( message irc-chat -- ) dup client>> [ (speak) ] with-irc ;
  14 : hear ( irc-chat -- message ) in-messages>> mailbox-get ;
  15 : terminate-irc ( irc-client -- ) [ (terminate-irc) ] with-irc ;