From achiumenti at common-lisp.net Sat Dec 13 14:16:07 2008 From: achiumenti at common-lisp.net (Andrea Chiumenti) Date: Sat, 13 Dec 2008 14:16:07 +0000 Subject: [claw-cvs] r149 - in trunk/main/claw-html: . src Message-ID: Author: achiumenti Date: Sat Dec 13 14:15:57 2008 New Revision: 149 Log: css component injection bugfix Modified: trunk/main/claw-html/claw-html.asd trunk/main/claw-html/src/packages.lisp trunk/main/claw-html/src/tags.lisp Modified: trunk/main/claw-html/claw-html.asd ============================================================================== --- trunk/main/claw-html/claw-html.asd (original) +++ trunk/main/claw-html/claw-html.asd Sat Dec 13 14:15:57 2008 @@ -34,17 +34,8 @@ :depends-on (:closer-mop :local-time :parenscript :cl-ppcre :split-sequence) :components ((:module src :components ((:file "packages") - ;(:file "mime-type" :depends-on ("packages")) - ;(:file "misc" :depends-on ("mime-type")) - ;:(:file "i18n" :depends-on ("packages")) - ;(:file "locales" :depends-on ("i18n")) - ;(:file "connector" :depends-on ("misc")) - ;(:file "logger" :depends-on ("misc")) - ;(:file "session-manager" :depends-on ("misc")) (:file "meta" :depends-on ("packages")) - (:file "tags" :depends-on ("packages" "meta")) + (:file "tags" :depends-on ("packages" "meta")) (:file "components" :depends-on ("tags" "meta")) (:file "validators" :depends-on ("components")) - (:file "translators" :depends-on ("validators")))))) - ;(:file "server" :depends-on ("components")) - ;(:file "lisplet" :depends-on ("server")))))) + (:file "translators" :depends-on ("validators")))))) \ No newline at end of file Modified: trunk/main/claw-html/src/packages.lisp ============================================================================== --- trunk/main/claw-html/src/packages.lisp (original) +++ trunk/main/claw-html/src/packages.lisp Sat Dec 13 14:15:57 2008 @@ -46,7 +46,6 @@ #:error-page #:render-error-page - ;#:duplicate-back-slashes #:attribute-value #:build-tagf #:page @@ -59,6 +58,7 @@ #:page-stylesheet-files #:page-class-initscripts #:page-instance-initscripts + #:page-initstyles #:page-current-component #:page-body-init-scripts #:htcomponent @@ -71,6 +71,7 @@ #:htcomponent-stylesheet-files #:htcomponent-class-initscripts #:htcomponent-instance-initscript + #:htcomponent-initstyles #:tag #:tag-name #:tag-attributes Modified: trunk/main/claw-html/src/tags.lisp ============================================================================== --- trunk/main/claw-html/src/tags.lisp (original) +++ trunk/main/claw-html/src/tags.lisp Sat Dec 13 14:15:57 2008 @@ -111,7 +111,9 @@ (defgeneric page-body-init-scripts (page) (:documentation "During the render phase wcomponent instances inject their initialization scripts (javascript) that will be evaluated when the page has been loaded. -This internal method is called to render these scripts. +This internal method is called to render these scripts. The result is used by the HTBODY-INIT-SCRIPTS-TAG method +that generates a