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

Modified Files: message-display.lisp Log Message: Make offered commands look a bit nicer (and less like error messages)

--- /project/beirc/cvsroot/beirc/message-display.lisp 2006/04/02 20:43:20 1.44 +++ /project/beirc/cvsroot/beirc/message-display.lisp 2006/04/02 20:51:54 1.45 @@ -490,20 +490,21 @@ ;;; channel management messages

(defun offer-close (receiver) - (format-message* "To close this tab, click ") - (present `(com-close (,receiver)) 'command)) + (with-output-as-presentation (t `(com-close (,receiver)) 'command) + (with-drawing-options (*standard-output* :ink +grey12+ :text-size :small) + (format-message* "Click here to close this tab."))))

(defmethod print-message ((message irc:irc-err_nosuchnick-message) receiver) (formatting-message (t message receiver) ((format t " ")) - ((with-drawing-options (*standard-output* :ink +red3+ :text-size :small) - (irc:destructuring-arguments (me target &rest rest) message - (declare (ignore me rest)) + ((irc:destructuring-arguments (me target &rest rest) message + (declare (ignore me rest)) + (with-drawing-options (*standard-output* :ink +red3+ :text-size :small) (format-message* (format nil "No such nick or channel "~A". " - target)) - (when (string= (title receiver) - (irc:normalize-nickname (connection receiver) target)) - (offer-close receiver))))))) + target))) + (when (string= (title receiver) + (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) @@ -511,9 +512,10 @@ ((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)))))) + (format-message* msg) + (with-drawing-options (*standard-output* :ink +grey12+ :text-size :small) + (with-output-as-presentation (t `(com-identify) 'command) + (format-message* "Click here to identify yourself."))))))))

(defmethod print-message ((message irc:irc-err_chanoprivsneeded-message) receiver) (irc:destructuring-arguments (&last body) message