irc:Added whois command, fixed bug in parting

diff --git a/extra/irc/messages/messages.factor b/extra/irc/messages/messages.factor
old mode 100644 (file)
new mode 100755 (executable)
index 3b9cf0a..fb56dd3
--- a/extra/irc/messages/messages.factor
+++ b/extra/irc/messages/messages.factor
@@ -46,7 +46,7 @@ GENERIC: irc-command-parameters ( irc-message -- seq )
 M: irc-message irc-command-parameters ( irc-message -- seq ) parameters>> ;
 M: ping        irc-command-parameters ( ping -- seq )    drop { } ;
 M: join        irc-command-parameters ( join -- seq )    drop { } ;
-M: part        irc-command-parameters ( part -- seq )    name>> 1array ;
+M: part        irc-command-parameters ( part -- seq )    channel>> 1array ;
 M: quit        irc-command-parameters ( quit -- seq )    drop { } ;
 M: nick        irc-command-parameters ( nick -- seq )    drop { } ;
 M: privmsg     irc-command-parameters ( privmsg -- seq ) name>> 1array ;

diff --git a/extra/irc/ui/commands/commands.factor b/extra/irc/ui/commands/commands.factor
index ddae783f06a5142ab8a41a3494aa30b78680bc30..184a2b4de8fb75d1fe45b42f4bfe4572dba1b444 100755 (executable)
--- a/extra/irc/ui/commands/commands.factor
+++ b/extra/irc/ui/commands/commands.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 William Schlieper\r
 ! See http://factorcode.org/license.txt for BSD license.\r
 \r
-USING: accessors kernel irc.client irc.messages irc.ui namespaces ;\r
+USING: accessors kernel arrays irc.client irc.messages irc.ui namespaces ;\r
 \r
 IN: irc.ui.commands\r
 \r
@@ -16,5 +16,9 @@ IN: irc.ui.commands
 : query ( string -- )\r
     irc-tab get window>> query-nick ;\r
 \r
+: whois ( string -- )\r
+    "WHOIS" swap { } clone swap  <irc-client-message>\r
+    irc-tab get listener>> write-message ;\r
+\r
 : quote ( string -- )\r
     drop ; ! THIS WILL CHANGE\r