[beirc-cvs] CVS update: beirc/message-display.lisp

[Max-Gerd Retzlaff]

Update of /project/beirc/cvsroot/beirc
In directory common-lisp.net:/tmp/cvs-serv16261

Modified Files:
	message-display.lisp 
Log Message:
The nickname in method print-message ((message irc:irc-part-message) receiver)
will now be presented as such (by calling FORMAT-MESSAGE*).

Date: Fri Oct  7 01:35:20 2005
Author: mretzlaff

Index: beirc/message-display.lisp
diff -u beirc/message-display.lisp:1.25 beirc/message-display.lisp:1.26
--- beirc/message-display.lisp:1.25	Wed Oct  5 15:26:04 2005
+++ beirc/message-display.lisp	Fri Oct  7 01:35:20 2005
@@ -175,7 +175,9 @@
   (formatting-message (t message receiver)
           ((format t "!!! ~A" (irc:source message)))
           ((with-drawing-options (*standard-output* :ink +red+ :text-size :small)
-             (format t "~A ~A :~A" (irc:command message) (irc:arguments message) (irc:trailing-argument message))))))
+             (format t "~A ~A :~A" (irc:command message)
+                                   (irc:arguments message)
+                                   (irc:trailing-argument message))))))
 
 ;;; user-related messages
 
@@ -306,7 +308,7 @@
           ((format t "   "))
           ((with-drawing-options (*standard-output* :ink +gray33+ :text-size :small)
              (format-message* (format nil "~A Names: ~A" (third (irc:arguments message))
-                                      (irc:trailing-argument message)))))))
+                                                         (irc:trailing-argument message)))))))
 
 (defmethod print-message ((message irc:irc-part-message) receiver)
   (formatting-message (t message receiver)
@@ -314,7 +316,8 @@
           ((with-drawing-options (*standard-output* :ink +gray33+ :text-size :small)
              (format t "Part: ")
              (present (irc:source message) 'nickname)
-             (format t " left ~A: ~A" (first (irc:arguments message)) (irc:trailing-argument message))))))
+             (format-message* (format nil " left ~A: ~A" (first (irc:arguments message))
+                                                         (irc:trailing-argument message)))))))
 
 (defmethod print-message ((message irc:irc-join-message) receiver)
   (formatting-message (t message receiver)