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*)) +