December 2008 - claw-cvs@common-lisp.net - mailman3.common-lisp.net

[claw-cvs] r183 - trunk/doc/chapters
by Andrea Chiumenti 30 Dec '08

30 Dec '08

Author: achiumenti Date: Tue Dec 30 17:43:45 2008 New Revision: 183 Log: Modified: trunk/doc/chapters/claw-html.texinfo Modified: trunk/doc/chapters/claw-html.texinfo ============================================================================== --- trunk/doc/chapters/claw-html.texinfo (original) +++ trunk/doc/chapters/claw-html.texinfo Tue Dec 30 17:43:45 2008 @@ -448,7 +448,7 @@ Forms, submit buttons, and action links, may fire @code{ACTION-OBJECT} (whose default is the current page) methods on submission, just before the page content rendering. -@subsection You first form +@subsection Your first form All right, now it's time to build your first ``hello world'' form. To do so, you have to change your index.lisp file with the following code: @@ -541,16 +541,47 @@ A validator function if a function that accepts the @code{value} that is passed by the form component; if the validation fails, a validation error message is added to the variable @code{*validation-errors*}. The component @code{EXCEPTION-MONITOR} is given to show these validation errors. +@subsubsection Input server side validation and data translation + +Components may validate their input when they are provided with the @code{:VALIDATOR} attribute. This attribute designates a function that accept the value +passed during form submission. + +When a component validation fails, the visitobject is not updated because the form doesn't complete it's rewind cycle phase. + Currently the following validation functions are provided: @sp 1 @itemize -@item @code{VALIDATE-REQUIRED} +@item @code{VALIDATE-REQUIRED (value &key (component (page-current-component *claw-current-page*)) message component-label)} Checks if the required input field VALUE is present. If not, a localizable message "Field ~a may not be empty." is sent with key "VALIDATE-REQUIRED". The argument for the message will be the @code{:LABEL} attribute of the COMPONENT. -@item @code{VALIDATE-SIZE} -@item @code{VALIDATE-RANGE} -@item @code{VALIDATE-NUMBER} -@item @code{VALIDATE-INTEGER} -@item @code{VALIDATE-DATE-RANGE} +@item @code{VALIDATE-SIZE (value &key (component (page-current-component *claw-current-page*)) min-size max-size message-low message-hi component-label)} +Checks if the input field VALUE legth is less then or greater then rispectively of the form keywords :MIN-SIZE and :MAX-SIZE. +If less then :MIN-SIZE, a localizable message "Size of ~a may not be less then ~a chars." is sent with key "VALIDATE-SIZE-MIN". +The argument for the message will be the :label attribute of the COMPONENT and the :MIN-ZIZE value. +If greater then :MAX-SIZE, a localizable message "Size of ~a may not be more then ~a chars" is sent with key "VALIDATE-SIZE-MAX". +The argument for the message will be the :label attribute of the COMPONENT and the :MAX-ZIZE value. +@item @code{VALIDATE-RANGE (value &key (component (page-current-component *claw-current-page*)) min max message-low message-hi component-label)} +Checks if the numeric input field VALUE is less then or greater then rispectively of the form keywords :MIN and :MAX. +If less then :MIN, a localizable message "Field ~a is not less then or equal to ~d." is sent with key "VALIDATE-RANGE-MIN". +The argument for the message will be the :label attribute of the COMPONENT and the :MIN value. +If greater then :MIN, a localizable message "Field ~a is not greater then or equal to ~d." is sent with key "VALIDATE-RANGE-MAX". +The argument for the message will be the :label attribute of the COMPONENT and the :MAX value. +@item @code{VALIDATE-NUMBER (value &key (component (page-current-component *claw-current-page*)) min max message-nan message-low message-hi component-label)} +Checks if the input field VALUE is a valid number and then passes the validation to VALIDATION-RANGE. +If not a number, a localizable message "Field ~a is not a valid number." is sent with key "VALIDATE-NUMBER". +The argument for the message will be the :label attribute of the COMPONENT. +@item @code{VALIDATE-INTEGER (value &key (component (page-current-component *claw-current-page*)) min max message-nan message-low message-hi component-label)} +Checks if the input field VALUE is a valid number and then passes the validation to VALIDATION-RANGE. +If not a number, a localizable message "Field ~a is not a valid integer." is sent with key "VALIDATE-INTEGER". +The argument for the message will be the :label attribute of the COMPONENT. +@item @code{VALIDATE-DATE-RANGE (value &key (component (page-current-component *claw-current-page*)) min max (use-date-p t) use-time-p message-low message-hi component-label)} +Checks if the input field VALUE is a date between min and max. +If :USE-DATE-P is not nil and :USE-TIME-P is nil, validation is made without considering the time part of local-time. +If :USE-DATE-P nil and :USE-TIME-P is not nil, validation is made without considering the date part of local-time. +If :USE-DATE-P and :USE-TIME-P are both not nil or nil, validation is made considering the date and time part of local-time. +If value is less then the date passed to :MIN, a localizable message "Field ~a is less then ~a." is sent with key "VALIDATE-DATE-RANGE-MIN". +The argument for the message will be the :label attribute of the COMPONENT and the value passed to :MIN parsed with the :LOCAL-TIME-FORMAT keyword. +If value is greater then the date passed to :MAX, a localizable message "Field ~a is greater then ~a." is sent with key "VALIDATE-DATE-RANGE-MAX". +The argument for the message will be the :label attribute of the COMPONENT and the value passed to :MAX parsed with the :LOCAL-TIME-FORMAT keyword. @end itemize

1 0

[claw-cvs] r182 - trunk/logo
by Andrea Chiumenti 30 Dec '08

30 Dec '08

Author: achiumenti Date: Tue Dec 30 17:43:36 2008 New Revision: 182 Log: Modified: trunk/logo/claw.svg Modified: trunk/logo/claw.svg ============================================================================== --- trunk/logo/claw.svg (original) +++ trunk/logo/claw.svg Tue Dec 30 17:43:36 2008 @@ -284,6 +284,18 @@ y1="158.64748" x2="444.63318" y2="122.27213" /> + <filter + inkscape:collect="always" + id="filter3230" + x="-0.20863956" + width="1.4172791" + y="-0.21137829" + height="1.4227566"> + <feGaussianBlur + inkscape:collect="always" + stdDeviation="5.8289317" + id="feGaussianBlur3232" /> + </filter> </defs> <sodipodi:namedview id="base" @@ -292,11 +304,11 @@ borderopacity="1.0" inkscape:pageopacity="0.0" inkscape:pageshadow="2" - inkscape:zoom="0.49497475" - inkscape:cx="-105.40468" - inkscape:cy="99.821802" + inkscape:zoom="0.35" + inkscape:cx="993.59697" + inkscape:cy="751.40352" inkscape:document-units="px" - inkscape:current-layer="layer1" + inkscape:current-layer="g5756" showgrid="false" inkscape:window-width="1662" inkscape:window-height="986" @@ -403,7 +415,7 @@ d="M 440.869,157.253 C 467.271,153.989 500.005,172.142 508.29,183.377 C 494.316,155.991 445.866,130.844 438.402,134.224 C 421.106,141.983 427.071,147.829 440.869,157.253 z" inkscape:transform-center-y="-4.0610339" inkscape:transform-center-x="-0.21351835" - style="fill:url(#linearGradient8233);fill-opacity:1;fill-rule:evenodd;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;filter:url(#filter3498)" /> + style="fill:url(#linearGradient8233);fill-opacity:1;fill-rule:evenodd;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;filter:url(#filter3498);opacity:0.5" /> </g> </g> <path @@ -438,7 +450,7 @@ d="M 440.869,157.253 C 467.271,153.989 500.005,172.142 508.29,183.377 C 494.316,155.991 445.866,130.844 438.402,134.224 C 421.106,141.983 427.071,147.829 440.869,157.253 z" inkscape:transform-center-y="-4.0610339" inkscape:transform-center-x="-0.21351835" - style="fill:url(#linearGradient8235);fill-opacity:1;fill-rule:evenodd;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;filter:url(#filter3498)" /> + style="fill:url(#linearGradient8235);fill-opacity:1;fill-rule:evenodd;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;filter:url(#filter3498);opacity:0.5" /> </g> <path inkscape:export-ydpi="25.829596" @@ -470,7 +482,7 @@ d="M 440.869,157.253 C 467.271,153.989 500.005,172.142 508.29,183.377 C 494.316,155.991 445.866,130.844 438.402,134.224 C 421.106,141.983 427.071,147.829 440.869,157.253 z" inkscape:transform-center-y="-4.0610339" inkscape:transform-center-x="-0.21351835" - style="fill:url(#linearGradient8237);fill-opacity:1;fill-rule:evenodd;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;filter:url(#filter3498)" /> + style="fill:url(#linearGradient8237);fill-opacity:1;fill-rule:evenodd;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;filter:url(#filter3230);opacity:0.5" /> </g> </g> </g>

1 0

[claw-cvs] r181 - trunk/site/src/docroot/img
by Andrea Chiumenti 30 Dec '08

30 Dec '08

Author: achiumenti Date: Tue Dec 30 17:38:09 2008 New Revision: 181 Log: Added: trunk/site/src/docroot/img/bkgnd.jpg (contents, props changed) trunk/site/src/docroot/img/claw.png (contents, props changed) trunk/site/src/docroot/img/content-bottom.jpg (contents, props changed) trunk/site/src/docroot/img/content-bottom.png (contents, props changed) trunk/site/src/docroot/img/content-top.jpg (contents, props changed) trunk/site/src/docroot/img/content-top.png (contents, props changed) trunk/site/src/docroot/img/content.jpg (contents, props changed) trunk/site/src/docroot/img/content.png (contents, props changed) trunk/site/src/docroot/img/top.jpg (contents, props changed) trunk/site/src/docroot/img/top.jpg.png (contents, props changed) trunk/site/src/docroot/img/top.png (contents, props changed) trunk/site/src/docroot/img/topMenuBg.jpg (contents, props changed) Added: trunk/site/src/docroot/img/bkgnd.jpg ============================================================================== Binary file. No diff available. Added: trunk/site/src/docroot/img/claw.png ============================================================================== Binary file. No diff available. Added: trunk/site/src/docroot/img/content-bottom.jpg ============================================================================== Binary file. No diff available. Added: trunk/site/src/docroot/img/content-bottom.png ============================================================================== Binary file. No diff available. Added: trunk/site/src/docroot/img/content-top.jpg ============================================================================== Binary file. No diff available. Added: trunk/site/src/docroot/img/content-top.png ============================================================================== Binary file. No diff available. Added: trunk/site/src/docroot/img/content.jpg ============================================================================== Binary file. No diff available. Added: trunk/site/src/docroot/img/content.png ============================================================================== Binary file. No diff available. Added: trunk/site/src/docroot/img/top.jpg ============================================================================== Binary file. No diff available. Added: trunk/site/src/docroot/img/top.jpg.png ============================================================================== Binary file. No diff available. Added: trunk/site/src/docroot/img/top.png ============================================================================== Binary file. No diff available. Added: trunk/site/src/docroot/img/topMenuBg.jpg ============================================================================== Binary file. No diff available.

1 0

[claw-cvs] r180 - in trunk/site/src/docroot: . img
by Andrea Chiumenti 30 Dec '08

30 Dec '08

Author: achiumenti Date: Tue Dec 30 17:37:34 2008 New Revision: 180 Log: Added: trunk/site/src/docroot/img/ trunk/site/src/docroot/screen.css Added: trunk/site/src/docroot/screen.css ============================================================================== --- (empty file) +++ trunk/site/src/docroot/screen.css Tue Dec 30 17:37:34 2008 @@ -0,0 +1,54 @@ +body.clawSite { + width: 1024px; + margin: 0 auto; + border: 1px solid gray; + font-family: arial; +} + +.header { + background: url('img/top.png') no-repeat 0 0; + height: 170px; +} + +body.clawSite .topMenu { + background: #efd12c url('img/topMenuBg.jpg') repeat-x 0 100%; + color: yellow; + font-size: 15px; +} + +body.clawSite .topMenu .dijitButtonNode, +body.clawSite .topMenu .dijitReset, +body.clawSite .topMenu .dijitComboButton .dijitButtonContents, +body.clawSite .topMenu .dijitComboButton .dijitDownArrowButton { + font-size:16px; +} + +body.clawSite .dijitToolbar .dijitButtonHover { + background: #4a3f00 url('img/topMenuBg.jpg') repeat-x 0 0; + border: 1px solid #efd12c; +} + +.contentTop { + background: url('img/content-top.jpg') no-repeat 0 0; + height: 40px; +} + +.content { + background: url('img/content.jpg') repeat-y 0 0; + min-height: 300px; + padding: 0 20px 20px 20px; +} + +.footer { + background: url('img/content-bottom.jpg') no-repeat 0 0; + height: 254px; +} + +.logo { + position: relative; + float: left; + width: 126px; + height: 126px; + background: url('img/claw.png') no-repeat 0 0; + margin: 20px 10px 0 20px; +} \ No newline at end of file

1 0

[claw-cvs] r179 - in trunk/site/src: . components docroot pages
by Andrea Chiumenti 30 Dec '08

30 Dec '08

Author: achiumenti Date: Tue Dec 30 17:37:12 2008 New Revision: 179 Log: Added: trunk/site/src/docroot/ Modified: trunk/site/src/commons.lisp trunk/site/src/components/template.lisp trunk/site/src/main.lisp trunk/site/src/packages.lisp trunk/site/src/pages/index.lisp Modified: trunk/site/src/commons.lisp ============================================================================== --- trunk/site/src/commons.lisp (original) +++ trunk/site/src/commons.lisp Tue Dec 30 17:37:12 2008 @@ -1,2 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: src/commons.lisp $ \ No newline at end of file +;;; $Header: src/commons.lisp $ + +(in-package :claw-site) + +(defmacro js-goto (href) + `(ps:ps* `(location.replace ,(format nil "~a/~a" *root-path* ,href)))) \ No newline at end of file Modified: trunk/site/src/components/template.lisp ============================================================================== --- trunk/site/src/components/template.lisp (original) +++ trunk/site/src/components/template.lisp Tue Dec 30 17:37:12 2008 @@ -1,2 +1,23 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: src/components/template.lisp $ \ No newline at end of file +;;; $Header: src/components/template.lisp $ + +(in-package :claw-site) + +(defclass site-template (wcomponent) + ((title :accessor site-template-title + :initarg :title)) + (:metaclass metacomponent)) + +(defmethod wcomponent-template ((obj site-template)) + (html> + (head> + (title> (site-template-title obj))) + (djbody> + :class "thudra clawSite" + (wcomponent-informal-parameters obj) + (div> :class "header" + (div> :class "logo")) + (htcomponent-body obj)))) + +(defmethod htcomponent-stylesheet-files ((obj site-template)) + (list (format nil "~a/docroot/screen.css" *root-path*))) Modified: trunk/site/src/main.lisp ============================================================================== --- trunk/site/src/main.lisp (original) +++ trunk/site/src/main.lisp Tue Dec 30 17:37:12 2008 @@ -1,2 +1,69 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: src/main.lisp $ \ No newline at end of file +;;; $Header: src/main.lisp $ + +(in-package :claw-site) + + +(defvar *main-file* (load-time-value + (or #.*compile-file-pathname* *load-pathname*))) + +(defvar *claw-site-lisplet* + (make-instance 'lisplet :realm 'claw-site + :redirect-protected-resources-p t + :base-path "")) + +(defvar *ht-connector* + (make-instance 'hunchentoot-connector + :address "localhost" + :port 4242 + :sslport nil;4343 + #| + :ssl-certificate-file #P "/etc/apache2/ssl/server.crt" + :ssl-privatekey-file #P "/etc/apache2/ssl/server.key" + |#)) + +(defvar *sm* (make-instance 'default-session-manager)) + +(defvar *ht-log-manager* (make-instance 'hunchentoot-logger)) + +(defvar *claw-site-server* + (make-instance 'claw-server + :connector *ht-connector* + :log-manager *ht-log-manager* + :session-manager *sm* + :base-path "" + :reverse-proxy-path "")) + +(claw-server-register-lisplet *claw-site-server* *claw-site-lisplet*) + + +(defclass site-principal (principal) + ((firstname :initarg :firstname + :accessor demo-principal-firstname) + (surname :initarg :surname + :accessor demo-principal-surname)) + (:default-initargs :firstname "" :surname "")) + +(defclass site-configuration (configuration) + () + (:documentation "Authorization configuration for application +atuhentication and authorization management.")) + +;;TODO +(defmethod configuration-login ((configuration site-configuration))) + +(claw-server-register-configuration *claw-site-server* + 'claw-site (make-instance 'site-configuration)) + +(let ((path (make-pathname :directory (append (pathname-directory *main-file*) '("docroot")))) + (*claw-server* *claw-site-server*)) + (log-message :info "Registering resource ~a" path) + (lisplet-register-resource-location *claw-site-lisplet* + path + "docroot/")) + +(defun site-start () + (claw-server-start *claw-site-server*)) + +(defun site-stop () + (claw-server-stop *claw-site-server*)) \ No newline at end of file Modified: trunk/site/src/packages.lisp ============================================================================== --- trunk/site/src/packages.lisp (original) +++ trunk/site/src/packages.lisp Tue Dec 30 17:37:12 2008 @@ -1,2 +1,15 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: src/packages.lisp $ \ No newline at end of file +;;; $Header: src/packages.lisp $ + +(in-package :cl-user) + + +(defpackage :claw-site + (:use :cl + :local-time + :claw-as + :claw-hunchentoot-connector + :claw-html + :claw-html.dojo + :split-sequence) + (:documentation "Package for claw-central.org site")) \ No newline at end of file Modified: trunk/site/src/pages/index.lisp ============================================================================== --- trunk/site/src/pages/index.lisp (original) +++ trunk/site/src/pages/index.lisp Tue Dec 30 17:37:12 2008 @@ -1,2 +1,21 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: src/pages/index.lisp $ \ No newline at end of file +;;; $Header: src/pages/index.lisp $ + +(in-package :claw-site) + +(defclass index-page (page) + ()) + +(defmethod page-content ((o index-page)) + (site-template> :title "The Claw Central - Home page" + (djtoolbar> :id "manuBar" :class "topMenu" + (djbutton> + :on-click (js-goto "index.html") + (span> "Home"))) + (div> :class "content" "Hello world"))) + +(lisplet-register-function-location + *claw-site-lisplet* + (make-page-renderer 'index-page #'claw-post-parameters #'claw-get-parameters) + "index.html" + :welcome-page-p t) \ No newline at end of file

1 0

[claw-cvs] r178 - trunk/site
by Andrea Chiumenti 30 Dec '08

30 Dec '08

Author: achiumenti Date: Tue Dec 30 17:36:49 2008 New Revision: 178 Log: Modified: trunk/site/claw-site.asd Modified: trunk/site/claw-site.asd ============================================================================== --- trunk/site/claw-site.asd (original) +++ trunk/site/claw-site.asd Tue Dec 30 17:36:49 2008 @@ -5,7 +5,7 @@ (asdf:defsystem :claw-site :name "claw-site" - :description "claw-site: CLAW CENTRAL applicatin" + :description "claw-site: CLAW CENTRAL application" :depends-on (:claw-as :claw-hunchentoot-connector :claw-html

1 0

[claw-cvs] r177 - trunk/main/claw-html.dojo/src
by Andrea Chiumenti 30 Dec '08

30 Dec '08

Author: achiumenti Date: Tue Dec 30 17:36:31 2008 New Revision: 177 Log: small bugfix Modified: trunk/main/claw-html.dojo/src/djbody.lisp Modified: trunk/main/claw-html.dojo/src/djbody.lisp ============================================================================== --- trunk/main/claw-html.dojo/src/djbody.lisp (original) +++ trunk/main/claw-html.dojo/src/djbody.lisp Tue Dec 30 17:36:31 2008 @@ -80,10 +80,10 @@ :src (format nil "~a/dojotoolkit/dojo/dojo.js" *server-path*) :djconfig (if (null djconfig) (format nil - "parseOnLoad:~a,usePlainJson:true,isDebug:~a" + "parseOnLoad:~a,usePlainJson:true,isDebug:~#[false~;true~]" parse-on-load is-debug) (format nil - "parseOnLoad:~a,usePlainJson:true,~a,isDebug:~a" + "parseOnLoad:~a,usePlainJson:true,~a,isDebug:~#[false~;true~]" parse-on-load djconfig is-debug))))))

1 0

[claw-cvs] r176 - trunk/main/claw-as/src
by Andrea Chiumenti 30 Dec '08

30 Dec '08

Author: achiumenti Date: Tue Dec 30 17:36:00 2008 New Revision: 176 Log: base path bugfix (when path are empty string for sesisons and lisplets) Modified: trunk/main/claw-as/src/lisplet.lisp trunk/main/claw-as/src/server.lisp Modified: trunk/main/claw-as/src/lisplet.lisp ============================================================================== --- trunk/main/claw-as/src/lisplet.lisp (original) +++ trunk/main/claw-as/src/lisplet.lisp Tue Dec 30 17:36:00 2008 @@ -125,7 +125,7 @@ (defmethod claw-server-register-lisplet ((claw-server claw-server) (lisplet lisplet)) (let ((lisplets (claw-server-lisplets claw-server)) (location (lisplet-base-path lisplet))) - (unless (string= "/" (subseq location 0 1)) + (when (or (string= "" location) (not (starts-with-subseq "/" location))) (setf location (concatenate 'string "/" location))) (setf (lisplet-server-address lisplet) (claw-server-address claw-server) (claw-server-lisplets claw-server) (sort-by-location (pushnew-location Modified: trunk/main/claw-as/src/server.lisp ============================================================================== --- trunk/main/claw-as/src/server.lisp (original) +++ trunk/main/claw-as/src/server.lisp Tue Dec 30 17:36:00 2008 @@ -308,8 +308,6 @@ (*server-path* (or (when (claw-proxified-p) (claw-server-reverse-proxy-path claw-server)) (claw-server-base-path claw-server))) - (rel-script-name) - (rel-script-name-libs) (http-result nil)) (handler-case (progn @@ -317,23 +315,21 @@ (catch 'handler-done (progn (setf (claw-return-code) +http-not-found+) - (if (starts-with-subseq base-path script-name) - (progn - (setf rel-script-name (subseq script-name (length base-path)) - rel-script-name-libs (subseq script-name (length base-path))) - (setf http-result (or - (loop for dispatcher in *claw-libraries-resources* - for url = (car dispatcher) - for action = (cdr dispatcher) - do (when (starts-with-subseq url rel-script-name-libs) - (setf (claw-return-code) +http-ok+) - (funcall action))) - (loop for lisplet-cons in lisplets - for url = (car lisplet-cons) - for lisplet = (cdr lisplet-cons) - do (when (starts-with-subseq url rel-script-name) - (setf (claw-return-code) +http-ok+) - (return (funcall #'lisplet-dispatch-method lisplet))))))))))) + (when (or (string= "" script-name) (starts-with-subseq base-path script-name)) + (let ((rel-script-name (subseq script-name (length base-path)))) + (setf http-result (or + (loop for dispatcher in *claw-libraries-resources* + for url = (car dispatcher) + for action = (cdr dispatcher) + do (when (starts-with-subseq url rel-script-name) + (setf (claw-return-code) +http-ok+) + (funcall action))) + (loop for lisplet-cons in lisplets + for url = (car lisplet-cons) + for lisplet = (cdr lisplet-cons) + do (when (starts-with-subseq url rel-script-name) + (setf (claw-return-code) +http-ok+) + (return (funcall #'lisplet-dispatch-method lisplet))))))))))) (or http-result (and (>= (claw-return-code) 400) (or @@ -353,8 +349,7 @@ (if (= return-code +http-ok+) nil return-code)) - +http-not-found+))))) - )) + +http-not-found+))))))) (error (cond) (logger-log (claw-server-log-manager claw-server) :error "~a" cond) (with-output-to-string (*standard-output*) (error-renderer claw-server :error-code +http-internal-server-error+))))))

1 0

[claw-cvs] r175 - trunk/site
by Andrea Chiumenti 28 Dec '08

28 Dec '08

Author: achiumenti Date: Sun Dec 28 23:23:54 2008 New Revision: 175 Log: asd file dependency bugfix Modified: trunk/site/claw-site.asd Modified: trunk/site/claw-site.asd ============================================================================== --- trunk/site/claw-site.asd (original) +++ trunk/site/claw-site.asd Sun Dec 28 23:23:54 2008 @@ -14,10 +14,10 @@ :components ((:module src :components ((:file "packages") (:file "main" :depends-on ("packages")) - (:file "commons" :depends-on ("packages")))) - (:module components - :pathname (make-pathname :directory '(:relative "src" "components")) - :components ((:file "template" :depends-on (src)))) - (:module pages - :pathname (make-pathname :directory '(:relative "src" "pages")) - :components ((:file "index" :depends-on (src components)))))) + (:file "commons" :depends-on ("packages")) + (:module components + :depends-on ("packages" "commons") + :components ((:file "template"))) + (:module pages + :depends-on ("packages" "commons" components) + :components ((:file "index")))))))

1 0

[claw-cvs] r174 - in trunk/site: . src src/components src/pages
by Andrea Chiumenti 28 Dec '08

28 Dec '08

Author: achiumenti Date: Sun Dec 28 22:51:11 2008 New Revision: 174 Log: claw-site first commit Added: trunk/site/ trunk/site/claw-site.asd trunk/site/src/ trunk/site/src/commons.lisp trunk/site/src/components/ trunk/site/src/components/template.lisp trunk/site/src/main.lisp trunk/site/src/packages.lisp trunk/site/src/pages/ trunk/site/src/pages/index.lisp Added: trunk/site/claw-site.asd ============================================================================== --- (empty file) +++ trunk/site/claw-site.asd Sun Dec 28 22:51:11 2008 @@ -0,0 +1,23 @@ +;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- +;;; $Header: claw-site.asd $ +(in-package :cl-user) + + +(asdf:defsystem :claw-site + :name "claw-site" + :description "claw-site: CLAW CENTRAL applicatin" + :depends-on (:claw-as + :claw-hunchentoot-connector + :claw-html + :claw-html.dojo + :parenscript) + :components ((:module src + :components ((:file "packages") + (:file "main" :depends-on ("packages")) + (:file "commons" :depends-on ("packages")))) + (:module components + :pathname (make-pathname :directory '(:relative "src" "components")) + :components ((:file "template" :depends-on (src)))) + (:module pages + :pathname (make-pathname :directory '(:relative "src" "pages")) + :components ((:file "index" :depends-on (src components)))))) Added: trunk/site/src/commons.lisp ============================================================================== --- (empty file) +++ trunk/site/src/commons.lisp Sun Dec 28 22:51:11 2008 @@ -0,0 +1,2 @@ +;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- +;;; $Header: src/commons.lisp $ \ No newline at end of file Added: trunk/site/src/components/template.lisp ============================================================================== --- (empty file) +++ trunk/site/src/components/template.lisp Sun Dec 28 22:51:11 2008 @@ -0,0 +1,2 @@ +;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- +;;; $Header: src/components/template.lisp $ \ No newline at end of file Added: trunk/site/src/main.lisp ============================================================================== --- (empty file) +++ trunk/site/src/main.lisp Sun Dec 28 22:51:11 2008 @@ -0,0 +1,2 @@ +;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- +;;; $Header: src/main.lisp $ \ No newline at end of file Added: trunk/site/src/packages.lisp ============================================================================== --- (empty file) +++ trunk/site/src/packages.lisp Sun Dec 28 22:51:11 2008 @@ -0,0 +1,2 @@ +;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- +;;; $Header: src/packages.lisp $ \ No newline at end of file Added: trunk/site/src/pages/index.lisp ============================================================================== --- (empty file) +++ trunk/site/src/pages/index.lisp Sun Dec 28 22:51:11 2008 @@ -0,0 +1,2 @@ +;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- +;;; $Header: src/pages/index.lisp $ \ No newline at end of file

1 0