[beirc-cvs] CVS beirc

[afuchs]

Update of /project/beirc/cvsroot/beirc
In directory clnet:/tmp/cvs-serv13300

Modified Files:
	application.lisp message-processing.lisp 
Log Message:
Fixes by Robert P. Goldman: rename "receiver" to "tab", choose a different nickname on connect.


--- /project/beirc/cvsroot/beirc/application.lisp	2006/03/16 20:22:57	1.60
+++ /project/beirc/cvsroot/beirc/application.lisp	2006/03/16 20:32:05	1.61
@@ -116,11 +116,12 @@
          (20                            ;<-- Sigh! Bitrot!
           status-bar)))))
 
-(defun receiver-from-tab-pane (tab-pane)
-  (gethash tab-pane (tab-panes-to-receivers *application-frame*)))
+;;; addition of optional argument allows debugging from outside the frame process. [2006/03/16:rpg]
+(defun receiver-from-tab-pane (tab-pane &optional (frame *application-frame*))
+  (gethash tab-pane (tab-panes-to-receivers frame)))
 
 (defmethod current-receiver ((frame beirc))
-  (let ((receiver (receiver-from-tab-pane (enabled-pane (find-pane-named frame 'query)))))
+  (let ((receiver (receiver-from-tab-pane (enabled-pane (find-pane-named frame 'query)) frame)))
     (if (typep receiver 'receiver)
         receiver
         nil)))
@@ -283,7 +284,10 @@
                  (load-user-init-file)
                  (run-frame-top-level frame)
                  (clim-sys:destroy-process ticker-process)
-                 (disconnect-all frame "Client Quit"))))))))
+	     (disconnect-all frame "Client Quit"))))
+       ;; added process name for easier debug...
+       :name "BEIRC GUI process"))))
+
 
 (defun message-directed-to-me-p (message)
   (irc:destructuring-arguments (&last body) message
@@ -396,7 +400,7 @@
     (define-window-switcher com-window-next (:next :control) 1 (constantly t))
     (define-window-switcher com-window-previous (:prior :control) -1 (constantly t))))
 
-(define-beirc-command (com-close :name t) ((receiver 'receiver :prompt "receiver"))
+(define-beirc-command (com-close :name t) ((receiver 'receiver :prompt "tab"))
   (let* ((connection (connection receiver))
          (channel (irc:find-channel connection (title receiver))))
     (cond
--- /project/beirc/cvsroot/beirc/message-processing.lisp	2006/03/06 10:21:28	1.4
+++ /project/beirc/cvsroot/beirc/message-processing.lisp	2006/03/16 20:32:05	1.5
@@ -67,3 +67,10 @@
   "Set/Unset away status."
   (setf (away-status *application-frame* (irc:connection message))
         (typep message 'irc:irc-rpl_noaway-message)))
+
+(define-beirc-hook autojoin-hoook ((message cl-irc:irc-rpl_welcome-message))
+  "When you establish a connection, check the list of channels for autojoin
+and set them up accordingly."
+  (declare (ignore message))
+  (join-missing-channels *application-frame*))
+