+++ /dev/null
-! 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