29 lines
773 B
Factor
29 lines
773 B
Factor
|
! Copyright (C) 2008 William Schlieper
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
|
||
|
USING: accessors kernel sequences 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 ]
|
||
|
[ chat>> speak ] 2bi ;
|
||
|
|
|
||
|
|
: me ( string -- ) ! Placeholder until I make /me look different
|
||
|
|
"ACTION " 1 prefix prepend 1 suffix say ;
|
||
|
|
|
||
|
|
: 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>> speak ;
|
||
|
|
|
||
|
|
: quote ( string -- )
|
||
|
|
drop ; ! THIS WILL CHANGE
|