[bknr-cvs] r1823 - trunk/projects/quickhoney/src

[bknr at bknr.net]

Author: hhubner
Date: 2006-02-06 12:33:09 -0600 (Mon, 06 Feb 2006)
New Revision: 1823

Modified:
   trunk/projects/quickhoney/src/config.lisp
   trunk/projects/quickhoney/src/init.lisp
Log:
Deployment changes.


Modified: trunk/projects/quickhoney/src/config.lisp
===================================================================
--- trunk/projects/quickhoney/src/config.lisp	2006-02-06 09:42:15 UTC (rev 1822)
+++ trunk/projects/quickhoney/src/config.lisp	2006-02-06 18:33:09 UTC (rev 1823)
@@ -3,10 +3,10 @@
 ;; URL für BASE HREFs
 (defparameter *website-url* "http://quickhoney.com")
 
-(defparameter *root-directory* #p"home:bknr-svn/quickhoney/")
+(defparameter *root-directory* #p"home:bknr-svn/projects/quickhoney/")
 
 (defparameter *store-directory* (merge-pathnames #p"datastore/" *root-directory*))
 
 (defparameter *website-directory* (merge-pathnames #p"website/" *root-directory*))
 
-(defparameter *webserver-port* 8080)
\ No newline at end of file
+(defparameter *webserver-port* 8080)

Modified: trunk/projects/quickhoney/src/init.lisp
===================================================================
--- trunk/projects/quickhoney/src/init.lisp	2006-02-06 09:42:15 UTC (rev 1822)
+++ trunk/projects/quickhoney/src/init.lisp	2006-02-06 18:33:09 UTC (rev 1823)
@@ -1,6 +1,7 @@
 (in-package :quickhoney)
 
 (defun startup ()
+  (setq cxml::*default-catalog* '("/home/hans/share/xml/catalog"))
   (when *store*
     (close-store))
   (make-instance 'store
@@ -14,3 +15,6 @@
     (bknr.cron:make-cron-job "snapshot" 'snapshot-store 0 5 :every :every))
   (actor-start (make-instance 'cron-actor))
   (publish-quickhoney))
+
+(eval-when (load)
+  (startup))