Changeset 2531

Show
Ignore:
Timestamp:
02/18/08 11:39:20 (9 months ago)
Author:
hhubner
Message:

port to trunk-reorg

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/trunk-reorg/projects/lisp-ecoop/src/config.lisp

    r2438 r2531  
    88    (load "site.lisp"))) 
    99 
    10 (defparameter *root-directory* (merge-pathnames #P"../" *load-pathname*)) 
     10(defparameter *root-directory* (merge-pathnames #P"../" 
     11                                                (make-pathname :name nil 
     12                                                               :type nil 
     13                                                               :version nil 
     14                                                               :defaults *load-pathname*))) 
    1115 
    1216(defparameter *store-directory* (merge-pathnames #p"datastore/" *root-directory*)) 

  • branches/trunk-reorg/projects/lisp-ecoop/src/init.lisp

    r2438 r2531  
    1212    (make-user "anonymous")             ; used for all anonymous sessions 
    1313    (make-user "admin" :password "wispleb" :full-name "Administrator" :flags '(:admin)) 
    14     (import-image "bknr-logo.png" :keywords '(:banner :bknr))) 
     14    (import-image (probe-file #P"bknr-logo.png") :keywords '(:banner :bknr))) 
    1515 
    1616  #+(or) 

  • branches/trunk-reorg/projects/lisp-ecoop/src/participant.lisp

    r2438 r2531  
    1717      (setf documents (remove document documents))))) 
    1818 
    19 y(define-lisp-ecoop-class submission () 
     19(define-lisp-ecoop-class submission () 
    2020  ((title :update :documentation "Title of the submission" :initform nil :attribute t) 
    2121   (abstract :update :documentation "Abstract or short description" :initform nil :element t) 

  • branches/trunk-reorg/projects/lisp-ecoop/src/tags.lisp

    r2438 r2531  
    394394         (toplevel (bknr.web::get-cached-template pathname expander)) 
    395395         (bknr.web::*toplevel-children* bknr.web::*tag-children*)) 
    396     (emit-template-node toplevel))) 
     396    (emit-template-node expander toplevel))) 

  • branches/trunk-reorg/projects/lisp-ecoop/src/webserver.lisp

    r2438 r2531  
    2020                 :base-href base-href 
    2121                 :template-base-directory (namestring (merge-pathnames #p"templates/" *website-directory*)) 
    22                  :template-command-packages '((:lisp-ecoop . :lisp-ecoop.tags) 
    23                                               (:bknr . :bknr.web) 
    24                                               (:menu . :bknr.site-menu)) 
     22                 :template-command-packages '(("http://lisp-ecoop07.bknr.net" . :lisp-ecoop.tags) 
     23                                              ("http://bknr.net" . :bknr.web) 
     24                                              ("http://bknr.net/menu" . :bknr.site-menu)) 
    2525                 :handler-definitions `(user images 
    2626                                        #+(or) stats 
    …… 
    4242    (stop-server *server*)) 
    4343  (publish-lisp-ecoop) 
     44  (setf *hunchentoot-default-external-format* (flex:make-external-format :utf-8 :eol-style :lf)) 
    4445  (setq *server* (start-server :port port)))