2008-07-14 20:53:08 -04:00
|
|
|
! Copyright (C) 2008 William Schlieper
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
|
2008-07-15 02:46:49 -04:00
|
|
|
USING: accessors kernel irc.client irc.messages irc.ui namespaces ;
|
2008-07-14 20:53:08 -04:00
|
|
|
|
|
|
|
|
IN: irc.ui.commands
|
|
|
|
|
|
|
|
|
|
: say ( string -- )
|
|
|
|
|
[ client get profile>> nickname>> <own-message> print-irc ]
|
|
|
|
|
[ listener get write-message ] bi ;
|
|
|
|
|
|
|
|
|
|
: quote ( string -- )
|
|
|
|
|
drop ; ! THIS WILL CHANGE
|
