1 ! Copyright (C) 2008 William Schlieper
2 ! See http://factorcode.org/license.txt for BSD license.
4 USING: accessors kernel sequences arrays irc.client
5 irc.messages irc.ui namespaces ;
11 [ window>> client>> profile>> nickname>> <own-message> print-irc ]
12 [ chat>> speak ] 2bi ;
14 : me ( string -- ) ! Placeholder until I make /me look different
15 "ACTION " 1 prefix prepend 1 suffix say ;
18 irc-tab get window>> join-channel ;
21 irc-tab get window>> query-nick ;
24 "WHOIS" swap { } clone swap <irc-client-message>
25 irc-tab get listener>> speak ;
28 drop ; ! THIS WILL CHANGE