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