14 lines
377 B
Factor
Executable File
14 lines
377 B
Factor
Executable File
! Copyright (C) 2008 William Schlieper
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
USING: accessors kernel irc.client irc.messages irc.ui namespaces ;
|
|
|
|
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
|