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

[Max-Gerd Retzlaff]

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

Modified Files:
	message-display.lisp 
Log Message:
Changes the :MIN-WIDTH of the nickname column from '(16 :character) to
'(3 :character) in order to waste less space. Seems to work like a charm
(though I haven't had a look at FORMATTING-CELL or FORMATTING-ROW)...

Date: Wed Oct  5 15:26:04 2005
Author: mretzlaff

Index: beirc/message-display.lisp
diff -u beirc/message-display.lisp:1.24 beirc/message-display.lisp:1.25
--- beirc/message-display.lisp:1.24	Mon Oct  3 01:52:32 2005
+++ beirc/message-display.lisp	Wed Oct  5 15:26:04 2005
@@ -55,7 +55,7 @@
                         :cache-test #'equal)
         (formatting-row (stream*)
           (output-timestamp-column :left)
-          (formatting-cell (stream* :align-x :right :min-width '(16 :character))
+          (formatting-cell (stream* :align-x :right :min-width '(3 :character))
             (with-drawing-options (stream* :ink +dark-red+)
               (funcall preamble-writer)))
           (formatting-cell (stream* :align-x :left