Author: hhubner Date: 2007-04-15 03:27:51 -0400 (Sun, 15 Apr 2007) New Revision: 2154

Modified: trunk/bknr/src/images/image.lisp trunk/bknr/src/web/web-macros.lisp trunk/projects/bos/payment-website/static/cms.css Log: Improve error message formatting

Modified: trunk/bknr/src/images/image.lisp =================================================================== --- trunk/bknr/src/images/image.lisp 2007-04-15 07:27:22 UTC (rev 2153) +++ trunk/bknr/src/images/image.lisp 2007-04-15 07:27:51 UTC (rev 2154) @@ -70,7 +70,7 @@ (unless (scan #?r"\D" name) (error "invalid image name ~A, needs to contain at least one non-digit character" name)) (when (store-image-with-name name) - (error "can't make image with name ~A, an image with name already exists in the datastore" name)) + (error "can't make image with name ~A, an image with this name already exists in the datastore" name)) (let ((store-image (apply #'make-object class-name :name name

Modified: trunk/bknr/src/web/web-macros.lisp =================================================================== --- trunk/bknr/src/web/web-macros.lisp 2007-04-15 07:27:22 UTC (rev 2153) +++ trunk/bknr/src/web/web-macros.lisp 2007-04-15 07:27:51 UTC (rev 2154) @@ -105,7 +105,8 @@ ((:body :class "cms") (:h1 "Error processing your request") (:p "While processing your request, an error occured:") - (:pre (:princ-safe error))))))) + ((:div :class "error") + (:princ-safe error)))))))

(defun show-page-with-error-handlers (fn req &key response title) (unless response

Modified: trunk/projects/bos/payment-website/static/cms.css =================================================================== --- trunk/projects/bos/payment-website/static/cms.css 2007-04-15 07:27:22 UTC (rev 2153) +++ trunk/projects/bos/payment-website/static/cms.css 2007-04-15 07:27:51 UTC (rev 2154) @@ -51,3 +51,8 @@ .footer { font-size: 70%; } + +.error { + color:#f00; + font-size: 110%; +} \ No newline at end of file