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