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

[Andreas Fuchs]

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

Modified Files:
	message-display.lisp package.lisp variables.lisp 
Log Message:
Load a beirc customization file when the system is loaded. (possibly
not the perfect way to do it.)

Also, add the *default-fill-column* to the updating-output form, so
that changing the fill column redraws all columns.

Date: Sun Sep 25 14:55:10 2005
Author: afuchs

Index: beirc/message-display.lisp
diff -u beirc/message-display.lisp:1.14 beirc/message-display.lisp:1.15
--- beirc/message-display.lisp:1.14	Sun Sep 25 14:43:52 2005
+++ beirc/message-display.lisp	Sun Sep 25 14:55:10 2005
@@ -50,7 +50,8 @@
                               (slot-value *application-frame* 'ignored-nicks)
                               width
                               *max-preamble-length*
-                              *timestamp-column-orientation*)
+                              *timestamp-column-orientation*
+                              *default-fill-column*)
                         :cache-test #'equal)
         (formatting-row (stream*)
           (output-timestamp-column :left)
@@ -58,7 +59,7 @@
             (with-drawing-options (stream* :ink +dark-red+)
               (funcall preamble-writer)))
           (formatting-cell (stream* :align-x :left
-                                    :min-width '(80 :character))
+                                    :min-width `(,*default-fill-column* :character))
             (funcall message-body-writer))
           (output-timestamp-column :right))))))
 


Index: beirc/package.lisp
diff -u beirc/package.lisp:1.2 beirc/package.lisp:1.3
--- beirc/package.lisp:1.2	Fri Sep 23 21:05:15 2005
+++ beirc/package.lisp	Sun Sep 25 14:55:10 2005
@@ -1,3 +1,4 @@
 (cl:defpackage :beirc
     (:use :clim :clim-lisp :clim-sys :tab-layout)
-    (:export #:beirc))
+    (:export #:beirc
+             #:*hyperspec-base-url* #:*default-fill-column* #:*timestamp-column-orientation*))


Index: beirc/variables.lisp
diff -u beirc/variables.lisp:1.1 beirc/variables.lisp:1.2
--- beirc/variables.lisp:1.1	Sun Sep 25 14:43:52 2005
+++ beirc/variables.lisp	Sun Sep 25 14:55:10 2005
@@ -3,3 +3,9 @@
 (defparameter *hyperspec-base-url* "file://localhost/Users/dmurray/lisp/HyperSpec/")
 (defparameter *default-fill-column* 80)
 (defparameter *timestamp-column-orientation* :right)
+
+(defvar *beirc-user-init-file* (merge-pathnames (make-pathname :name ".beirc.lisp")
+                                                (user-homedir-pathname)))
+
+(when (probe-file *beirc-user-init-file*)
+  (load *beirc-user-init-file*))
\ No newline at end of file