[beirc-cvs] CVS update: beirc/application.lisp beirc/presentations.lisp beirc/receivers.lisp beirc/variables.lisp beirc/beirc.asd beirc/message-display.lisp beirc/beirc.lisp

[Andreas Fuchs]

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

Modified Files:
	beirc.asd message-display.lisp 
Added Files:
	application.lisp presentations.lisp receivers.lisp 
	variables.lisp 
Removed Files:
	beirc.lisp 
Log Message:
Split beirc.lisp further (and remove it):

 * application-frame, irc functions and clim commands are in application.lisp
 * receiver functions are in receivers.lisp
 * presentation types and presentation methods are in presentations.lisp.
 * user-customizable variables are in variables.lisp.

Date: Sun Sep 25 14:43:53 2005
Author: afuchs









Index: beirc/beirc.asd
diff -u beirc/beirc.asd:1.3 beirc/beirc.asd:1.4
--- beirc/beirc.asd:1.3	Fri Sep 23 21:05:15 2005
+++ beirc/beirc.asd	Sun Sep 25 14:43:52 2005
@@ -8,5 +8,8 @@
 (defsystem :beirc
   :depends-on (:mcclim :cl-irc :split-sequence :tab-layout)
   :components ((:file "package")
-               (:file "beirc" :depends-on ("package"))
-               (:file "message-display" :depends-on ("package" "beirc"))))
\ No newline at end of file
+               (:file "variables" :depends-on ("package"))
+               (:file "receivers" :depends-on ("package" "variables"))
+               (:file "presentations" :depends-on ("package" "variables"))
+               (:file "message-display" :depends-on ("package" "variables" "presentations"))
+               (:file "application" :depends-on ("package" "variables" "presentations" "receivers"))))
\ No newline at end of file


Index: beirc/message-display.lisp
diff -u beirc/message-display.lisp:1.13 beirc/message-display.lisp:1.14
--- beirc/message-display.lisp:1.13	Sun Sep 25 00:30:24 2005
+++ beirc/message-display.lisp	Sun Sep 25 14:43:52 2005
@@ -1,9 +1,5 @@
 (in-package :beirc)
 
-(defparameter *hyperspec-base-url* "file://localhost/Users/dmurray/lisp/HyperSpec/")
-(defparameter *default-fill-column* 80)
-(defparameter *timestamp-column-orientation* :right)
-
 (defvar *max-preamble-length* 0)
 
 (define-presentation-type url ()