[cl-irc-cvs] r153 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun May 14 10:05:43 2006
New Revision: 153

Modified:
   trunk/event.lisp
   trunk/package.lisp
   trunk/protocol.lisp
Log:
Automatically record channel visibility for library users to use.

Modified: trunk/event.lisp
==============================================================================
--- trunk/event.lisp	(original)
+++ trunk/event.lisp	Sun May 14 10:05:43 2006
@@ -132,11 +132,12 @@
         (nick chan-visibility channel names)
         (arguments message)
       (declare (ignore nick chan-visibility))
-      ;; chan-visibility is (member '= '@ '*)
-      ;; '= == public
-      ;; '@ == secret
-      ;; '* == private
       (let ((channel (find-channel connection channel)))
+        (setf (visibility channel)
+              (or (car (assoc chan-visibility
+                              '((#\= :public) (#\* :private) (#\@ :secret))
+                              :test #'char=))
+                  :unknown))
         (unless (has-mode-p channel 'namreply-in-progress)
           (add-mode channel 'namreply-in-progress
                     (make-instance 'list-value-mode :value-type :user)))

Modified: trunk/package.lisp
==============================================================================
--- trunk/package.lisp	(original)
+++ trunk/package.lisp	Sun May 14 10:05:43 2006
@@ -38,6 +38,7 @@
              :normalized-name
              :topic
              :modes
+             :visibility
              :user-count
              :users
              :network-stream

Modified: trunk/protocol.lisp
==============================================================================
--- trunk/protocol.lisp	(original)
+++ trunk/protocol.lisp	Sun May 14 10:05:43 2006
@@ -494,6 +494,11 @@
     :initarg :modes
     :accessor modes
     :initform '())
+   (visibility
+    :initarg :visibility
+    :accessor visibility
+    :initform nil
+    :type '(member nil :public :private :secret :unknown))
    (users
     :initarg :users
     :accessor users