unmaintained/irc-ui/commands/commands.factor

   1 ! Copyright (C) 2008 William Schlieper
   2 ! See http://factorcode.org/license.txt for BSD license.
   3
   4 USING: accessors kernel sequences arrays irc.client
   5        irc.messages irc.ui namespaces ;
   6
   7 IN: irc.ui.commands
   8
   9 : say ( string -- )
  10     irc-tab get
  11     [ window>> client>> profile>> nickname>> <own-message> print-irc ]
  12     [ chat>> speak ] 2bi ;
  13
  14 : me ( string -- ) ! Placeholder until I make /me look different
  15     "ACTION " 1 prefix prepend 1 suffix say ;
  16
  17 : join ( string -- )
  18     irc-tab get window>> join-channel ;
  19
  20 : query ( string -- )
  21     irc-tab get window>> query-nick ;
  22
  23 : whois ( string -- )
  24     "WHOIS" swap { } clone swap  <irc-client-message>
  25     irc-tab get listener>> speak ;
  26
  27 : quote ( string -- )
  28     drop ; ! THIS WILL CHANGE