25 lines
660 B
Factor
Executable File
25 lines
660 B
Factor
Executable File
! Copyright (C) 2008 William Schlieper
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
USING: accessors kernel arrays irc.client irc.messages irc.ui namespaces ;
|
|
|
|
IN: irc.ui.commands
|
|
|
|
: say ( string -- )
|
|
irc-tab get
|
|
[ window>> client>> profile>> nickname>> <own-message> print-irc ]
|
|
[ listener>> write-message ] 2bi ;
|
|
|
|
: join ( string -- )
|
|
irc-tab get window>> join-channel ;
|
|
|
|
: query ( string -- )
|
|
irc-tab get window>> query-nick ;
|
|
|
|
: whois ( string -- )
|
|
"WHOIS" swap { } clone swap <irc-client-message>
|
|
irc-tab get listener>> write-message ;
|
|
|
|
: quote ( string -- )
|
|
drop ; ! THIS WILL CHANGE
|