factor/extra/irc/ui/commands/commands.factor

! 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