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

Modified Files: application.lisp message-display.lisp receivers.lisp Log Message: Display "not authorized" messages and offer a (fixed) clickable identify command.

--- /project/beirc/cvsroot/beirc/application.lisp 2006/03/27 21:38:43 1.71 +++ /project/beirc/cvsroot/beirc/application.lisp 2006/04/02 20:43:20 1.72 @@ -391,7 +391,7 @@ :test #'equal))) (who 'nickname :prompt "Target" :default "NickServ")) (when (null password) - (accept 'string :prompt "Password")) + (setf password (accept 'string :prompt "Password"))) (irc:privmsg (current-connection *application-frame*) who (format nil "IDENTIFY ~A" password)))

--- /project/beirc/cvsroot/beirc/message-display.lisp 2006/03/27 21:46:31 1.43 +++ /project/beirc/cvsroot/beirc/message-display.lisp 2006/04/02 20:43:20 1.44 @@ -490,8 +490,8 @@ ;;; channel management messages

(defun offer-close (receiver) - (format-message* (format nil "To close this tab, click ")) - (present `(com-close ,receiver) 'command)) + (format-message* "To close this tab, click ") + (present `(com-close (,receiver)) 'command))

(defmethod print-message ((message irc:irc-err_nosuchnick-message) receiver) (formatting-message (t message receiver) @@ -505,6 +505,16 @@ (irc:normalize-nickname (connection receiver) target)) (offer-close receiver)))))))

+(defmethod print-message ((message irc:irc-err_blocking_notid-message) receiver) + (formatting-message (t message receiver) + ((format t " ")) + ((with-drawing-options (*standard-output* :ink +red3+ :text-size :small) + (irc:destructuring-arguments (me &last msg) message + (declare (ignore me)) + (format-message* (format nil "~A~%" msg)) + (format-message* "To identify, click") + (present `(com-identify) 'command)))))) + (defmethod print-message ((message irc:irc-err_chanoprivsneeded-message) receiver) (irc:destructuring-arguments (&last body) message (formatting-message (t message receiver) --- /project/beirc/cvsroot/beirc/receivers.lisp 2006/03/16 00:01:46 1.23 +++ /project/beirc/cvsroot/beirc/receivers.lisp 2006/04/02 20:43:20 1.24 @@ -229,7 +229,8 @@ irc:irc-rpl_whoisidentified-message irc:irc-rpl_whoisidle-message irc:irc-rpl_away-message - irc:irc-err_nosuchnick-message)) + irc:irc-err_nosuchnick-message + irc:irc-err_blocking_notid-message))

(macrolet ((define-ignore-message-types (&rest mtypes) `(progn