unmaintained/irc-ui/commands/commands.factor

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