[beirc-cvs] CVS beirc

[afuchs]

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