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