From 8b3ce1ee841c78832671726066588d075226e008 Mon Sep 17 00:00:00 2001
From: William Schlieper <schlieper@unc.edu>
Date: Wed, 13 Aug 2008 01:00:26 -0400
Subject: [PATCH] irc:Added whois command, fixed bug in parting
---
extra/irc/messages/messages.factor | 2 +-
extra/irc/ui/commands/commands.factor | 6 +++++-
2 files changed, 6 insertions(+), 2 deletions(-)
mode change 100644 => 100755 extra/irc/messages/messages.factor
diff --git a/extra/irc/messages/messages.factor b/extra/irc/messages/messages.factor
old mode 100644
new mode 100755
index 3b9cf0af2c..fb56dd3a45
--- 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 ddae783f06..184a2b4de8 100755
--- a/extra/irc/ui/commands/commands.factor
+++ b/extra/irc/ui/commands/commands.factor
@@ -1,7 +1,7 @@
! Copyright (C) 2008 William Schlieper
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors kernel irc.client irc.messages irc.ui namespaces ;
+USING: accessors kernel arrays irc.client irc.messages irc.ui namespaces ;
IN: irc.ui.commands
@@ -16,5 +16,9 @@ IN: irc.ui.commands
: 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