- bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] r2168 - trunk/bknr/src/web
by bknr＠bknr.net 07 Jul '07

07 Jul '07

Author: hhubner Date: 2007-07-07 08:41:43 -0400 (Sat, 07 Jul 2007) New Revision: 2168 Modified: trunk/bknr/src/web/handlers.lisp trunk/bknr/src/web/user-handlers.lisp trunk/bknr/src/web/web-macros.lisp Log: Push around some definitions to reduce the number of warnings. Modified: trunk/bknr/src/web/handlers.lisp =================================================================== --- trunk/bknr/src/web/handlers.lisp 2007-07-07 12:40:47 UTC (rev 2167) +++ trunk/bknr/src/web/handlers.lisp 2007-07-07 12:41:43 UTC (rev 2168) @@ -499,3 +499,64 @@ (ensure-directories-exist spool-dir) spool-dir)) +(defmethod website-show-page ((website website) fn title) + (html + (princ "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">" *html-stream*) + (princ #\Newline *html-stream*) + (:html + (:head + (header :title title)) + ((:body :class "cms") + ((:div :class "navigation") + (logo) + (:h1 (:princ-safe (website-name website))) + (navigation)) + (:h1 (:princ-safe title)) + (funcall fn) + (session-info))))) + +(defmethod website-show-error-page ((website website) error) + (if (website-template-handler website) + (send-error-response (website-template-handler website) *req* (princ-to-string error)) + (html + (princ "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">" *html-stream*) + (princ #\Newline *html-stream*) + (:html + (:head + (header :title "Error processing your request")) + ((:body :class "cms") + (:h1 "Error processing your request") + (:p "While processing your request, an error occured:") + ((:div :class "error") + (:princ-safe error))))))) + +(defun show-page-with-error-handlers (fn req &key response title) + (unless response + (setf response *response-ok*)) ; can't default because used from macros and *response-ok* is not a constant + (if (member :notrap net.aserve::*debug-current*) + (with-bknr-http-response (req :content-type "text/html; charset=UTF-8" :response response) + (with-http-body (req *ent*) + (website-show-page *website* fn title))) + (handler-case + (let ((body (with-output-to-string (*html-stream*) + (website-show-page *website* fn title)))) + (with-bknr-http-response (req :content-type "text/html; charset=UTF-8" :response response) + (with-http-body (req *ent*) + (princ body *html-stream*)))) + (serious-condition (c) + (with-bknr-http-response (req :content-type "text/html; charset=UTF-8" :response *response-internal-server-error*) + (with-http-body (req *ent*) + (website-show-error-page *website* c))))))) + +(defmacro with-bknr-page ((&rest args) &body body) + `(show-page-with-error-handlers (lambda () (html ,@body)) ,@args)) + +#+(or) +(defmacro with-bknr-site-template ((req &key title) &rest body) + `(with-bknr-http-response (,req :content-type "text/html") + (with-http-body (,req ,ent) + (include + :template "toplevel-template" + :tag-body (with-output-to-string (*html-stream*) + ,@body))))) + Modified: trunk/bknr/src/web/user-handlers.lisp =================================================================== --- trunk/bknr/src/web/user-handlers.lisp 2007-07-07 12:40:47 UTC (rev 2167) +++ trunk/bknr/src/web/user-handlers.lisp 2007-07-07 12:41:43 UTC (rev 2168) @@ -71,7 +71,7 @@ (defmethod handle-object-form ((handler user-handler) action (user user) req) (with-bknr-page (req :title #?"$((class-name (class-of user))) $((user-login user))") - (bknr.images:user-image :user (user-login user)) + #+(or) (bknr.images:user-image :user (user-login user)) (user-form :user-id (store-object-id user)))) (defmethod handle-object-form ((handler user-handler) (action (eql :search)) user req) Modified: trunk/bknr/src/web/web-macros.lisp =================================================================== --- trunk/bknr/src/web/web-macros.lisp 2007-07-07 12:40:47 UTC (rev 2167) +++ trunk/bknr/src/web/web-macros.lisp 2007-07-07 12:41:43 UTC (rev 2168) @@ -2,12 +2,20 @@ (enable-interpol-syntax) +(defvar *bknr-debug* nil) +(defvar *website* nil) + +(defvar *website-modules* (make-hash-table :test #'equal)) + (defvar *req* nil "Current request") (defvar *ent* nil "Current entity") (defvar *session* nil "Current session") (defvar *user* nil "Current user") (defvar *req-var-hash* nil "Request variables") +(defmacro with-bknr-page ((&rest args) &body body) + `(show-page-with-error-handlers (lambda () (html ,@body)) ,@args)) + (defmacro with-cookies ((request &rest names) &rest body) (let ((cookies (gensym))) `(let ((,cookies (get-cookie-values ,request))) @@ -77,67 +85,6 @@ ,@body) (register-tag-function ,(package-name *package*) ,(symbol-name name) (fdefinition ',name)))) -(defmethod website-show-page ((website website) fn title) - (html - (princ "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">" *html-stream*) - (princ #\Newline *html-stream*) - (:html - (:head - (header :title title)) - ((:body :class "cms") - ((:div :class "navigation") - (logo) - (:h1 (:princ-safe (website-name website))) - (navigation)) - (:h1 (:princ-safe title)) - (funcall fn) - (session-info))))) - -(defmethod website-show-error-page ((website website) error) - (if (website-template-handler website) - (send-error-response (website-template-handler website) *req* (princ-to-string error)) - (html - (princ "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">" *html-stream*) - (princ #\Newline *html-stream*) - (:html - (:head - (header :title "Error processing your request")) - ((:body :class "cms") - (:h1 "Error processing your request") - (:p "While processing your request, an error occured:") - ((:div :class "error") - (:princ-safe error))))))) - -(defun show-page-with-error-handlers (fn req &key response title) - (unless response - (setf response *response-ok*)) ; can't default because used from macros and *response-ok* is not a constant - (if (member :notrap net.aserve::*debug-current*) - (with-bknr-http-response (req :content-type "text/html; charset=UTF-8" :response response) - (with-http-body (req *ent*) - (website-show-page *website* fn title))) - (handler-case - (let ((body (with-output-to-string (*html-stream*) - (website-show-page *website* fn title)))) - (with-bknr-http-response (req :content-type "text/html; charset=UTF-8" :response response) - (with-http-body (req *ent*) - (princ body *html-stream*)))) - (serious-condition (c) - (with-bknr-http-response (req :content-type "text/html; charset=UTF-8" :response *response-internal-server-error*) - (with-http-body (req *ent*) - (website-show-error-page *website* c))))))) - -(defmacro with-bknr-page ((&rest args) &body body) - `(show-page-with-error-handlers (lambda () (html ,@body)) ,@args)) - -#+(or) -(defmacro with-bknr-site-template ((req &key title) &rest body) - `(with-bknr-http-response (,req :content-type "text/html") - (with-http-body (,req ,ent) - (include - :template "toplevel-template" - :tag-body (with-output-to-string (*html-stream*) - ,@body))))) - (defmacro html-text-input (variable size &optional maxsize) `((:input :type "text" :size ,(format nil "~a" size)

1 0

[bknr-cvs] r2167 - trunk/bknr/src/data
by bknr＠bknr.net 07 Jul '07

07 Jul '07

Author: hhubner Date: 2007-07-07 08:40:47 -0400 (Sat, 07 Jul 2007) New Revision: 2167 Modified: trunk/bknr/src/data/TODO trunk/bknr/src/data/object.lisp Log: Fix for a problem reported by Kamen Tomov: When restoring, slots marked as transient would be re-initialized with whatever initarg they received when the object was first created. While the correct behavior could be debated, it is certainly not right to persist the initialization values. Thus, this patch filters out initargs for transient slots upon restore. Modified: trunk/bknr/src/data/TODO =================================================================== --- trunk/bknr/src/data/TODO 2007-07-04 18:18:40 UTC (rev 2166) +++ trunk/bknr/src/data/TODO 2007-07-07 12:40:47 UTC (rev 2167) @@ -4,9 +4,13 @@ - tutorial fertig schreiben -x die ganzen funktionen mit multiple stores mal zurecht refaktoren - fuer einen single store +- import-image anschauen, nicht mehr failsafe -- relaxed-references bei objekten +- Revise and document make-object und initargs behaviour. Upon +restore, initargs for transient slots are ignored now, but this is not +completely thought out. It would better not to log initargs for +transient slots in the first place. -- import-image anschauen, nicht mehr failsafe +- tx-persistent-change-class does not maintain indices + +- XXXX broken initialize-persistent-instance (?) Modified: trunk/bknr/src/data/object.lisp =================================================================== --- trunk/bknr/src/data/object.lisp 2007-07-04 18:18:40 UTC (rev 2166) +++ trunk/bknr/src/data/object.lisp 2007-07-07 12:40:47 UTC (rev 2167) @@ -1,7 +1,5 @@ ;;; MOP based object subsystem for the BKNR datastore -;;; XXX tx-persistent-change-class does not maintain indices - (in-package :bknr.datastore) (cl-interpol:enable-interpol-syntax) @@ -18,10 +16,19 @@ (error "Could not find a store-object-subsystem in the current store ~a." *store*)) subsystem)) -;;; eval-when in order to have store-object-with-id on compilation (defclass persistent-class (indexed-class) - ()) + ((transient-slot-initargs :initform nil + :accessor persistent-class-transient-slot-initargs))) +(defmethod determine-transient-slot-initargs ((class persistent-class)) + (with-slots (transient-slot-initargs) class + (setf transient-slot-initargs nil) + (dolist (slot (class-slots class)) + (when (and (typep slot 'persistent-effective-slot-definition) + (persistent-effective-slot-definition-transient slot) + (slot-definition-initargs slot)) + (pushnew (car (slot-definition-initargs slot)) transient-slot-initargs))))) + (defmethod validate-superclass ((sub persistent-class) (super indexed-class)) t) @@ -32,8 +39,13 @@ (warn "updating ~A instances of ~A for class changes" (length (class-instances class)) class)) (mapc #'reinitialize-instance (class-instances class))) +(defmethod instance :after ((class persistent-class) &rest args) + (declare (ignore args)) + (determine-transient-slot-initargs class)) + (defmethod reinitialize-instance :after ((class persistent-class) &rest args) (declare (ignore args)) + (determine-transient-slot-initargs class) (when *store* (update-instances-for-changed-class (class-name class)) (unless *suppress-schema-warnings* @@ -45,8 +57,11 @@ (relaxed-object-reference :initarg :relaxed-object-reference :initform nil))) (defclass persistent-effective-slot-definition (index-effective-slot-definition) - ((transient :initarg :transient :initform nil) - (relaxed-object-reference :initarg :relaxed-object-reference :initform nil))) + ((transient :initarg :transient + :initform nil + :reader persistent-effective-slot-definition-transient) + (relaxed-object-reference :initarg :relaxed-object-reference + :initform nil))) (defmethod persistent-slot-p ((slot standard-effective-slot-definition)) nil) @@ -130,7 +145,6 @@ (defmethod initialize-instance :around ((object store-object) &key &allow-other-keys) - ;; XXXX broken initialize-persistent-instance (if (in-anonymous-transaction-p) (prog1 (call-next-method) @@ -536,17 +550,28 @@ (format t "clearing indices for class ~A~%" (class-name class-name)) (clear-class-indices class-name))) class-layouts)))))))) + +(defun remove-transient-slot-initargs (class initializers) + "Remove all initializers for transient slots" + (loop for (keyword value) on initializers by #'cddr + unless (find keyword (persistent-class-transient-slot-initargs class)) + collect keyword + and + collect value)) ;;; create object transaction, should not be called from user code, as we have to give it ;;; a unique id in the initargs. After the object is created, the persistent and the ;;; transient instances are initialized -(defun tx-make-object (class &rest initargs) +(defun tx-make-object (class-name &rest initargs) (let (obj (error t)) (unwind-protect - (progn - (setf obj (apply #'make-instance class initargs)) - (unless (eq (store-state *store*) :restore) + (let ((restoring (eq (store-state *store*) :restore))) + (setf obj (apply #'make-instance class-name + (if restoring + (remove-transient-slot-initargs (find-class class-name) initargs) + initargs))) + (unless restoring (initialize-persistent-instance obj)) (initialize-transient-instance obj) (setf error nil) @@ -554,11 +579,11 @@ (when (and error obj) (destroy-object obj))))) -(defun make-object (class &rest initargs) - "Make a persistent object of class CLASS. Calls MAKE-INSTANCE with INITARGS." +(defun make-object (class-name &rest initargs) + "Make a persistent object of class named CLASS-NAME. Calls MAKE-INSTANCE with INITARGS." (execute (make-instance 'transaction :function-symbol 'tx-make-object - :args (append (list class + :args (append (list class-name :id (id-counter (store-object-subsystem))) initargs))))

1 0

[bknr-cvs] r2166 - trunk/projects/lisp-ecoop/website/templates
by bknr＠bknr.net 04 Jul '07

04 Jul '07

Author: pcostanza Date: 2007-07-04 14:18:40 -0400 (Wed, 04 Jul 2007) New Revision: 2166 Modified: trunk/projects/lisp-ecoop/website/templates/home.xml trunk/projects/lisp-ecoop/website/templates/menu.xml trunk/projects/lisp-ecoop/website/templates/news.xml trunk/projects/lisp-ecoop/website/templates/programme.xml Log: Uploaded the workshop programme. Modified: trunk/projects/lisp-ecoop/website/templates/home.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/home.xml 2007-06-11 14:49:57 UTC (rev 2165) +++ trunk/projects/lisp-ecoop/website/templates/home.xml 2007-07-04 18:18:40 UTC (rev 2166) @@ -11,8 +11,8 @@ <h2>Important News</h2> <ul> +<li>The workshop programme is now online.</li> <li><a href="http://lisp-ecoop07.bknr.net/profile/5802">Alexander Repenning</a> will be giving a keynote presentation about <a href="http://lisp-ecoop07.bknr.net/submission/5881">Antiobjects: Mapping Game AI to Massively Parallel Architectures using Collaborative Diffusion</a>.</li> -<li>The submission deadline for papers, essays and breakout group proposals has been extended to May 31.</li> </ul> <h2>Important Dates</h2> Modified: trunk/projects/lisp-ecoop/website/templates/menu.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/menu.xml 2007-06-11 14:49:57 UTC (rev 2165) +++ trunk/projects/lisp-ecoop/website/templates/menu.xml 2007-07-04 18:18:40 UTC (rev 2166) @@ -3,14 +3,14 @@ <item url="home" title="Home" /> <item url="news" title="News" /> <item url="people" title="People" /> + <item url="programme" title="Programme" /> <item url="submissions" title="Submissions" /> - <item url="papers" title="Papers" /> - <item url="groups" title ="Breakout Groups" /> - <item url="guidelines" title="Submission" /> <item url="contact" title="Organization / Contact" />  </menu> Modified: trunk/projects/lisp-ecoop/website/templates/news.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/news.xml 2007-06-11 14:49:57 UTC (rev 2165) +++ trunk/projects/lisp-ecoop/website/templates/news.xml 2007-07-04 18:18:40 UTC (rev 2166) @@ -5,6 +5,12 @@ <h1>News</h1> +<h3>July 4, 2007</h3> + +<ul> +<li>The workshop programme is now online.</li> +</ul> + <h3>May 17, 2007</h3> <ul> Modified: trunk/projects/lisp-ecoop/website/templates/programme.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/programme.xml 2007-06-11 14:49:57 UTC (rev 2165) +++ trunk/projects/lisp-ecoop/website/templates/programme.xml 2007-07-04 18:18:40 UTC (rev 2166) @@ -8,7 +8,8 @@ <h3>9:00 - 10:30</h3> <ul> - <li>First session</li> + <li>Introduction</li> + <li>Alexander Repenning, "Antiobjects: Mapping Game AI to Massively Parallel Architectures using Collaborative Diffusion"</li> </ul> <h3>10:30 - 11:00</h3> @@ -20,7 +21,8 @@ <h3>11:00 - 12:30</h3> <ul> - <li>Second session</li> + <li>Sébastien Mosser, "Are functional languages a good way to represent productive meta-models?"</li> + <li>Pierre Thierry, Simon E.B. Thierry, "Dynamic data models: an application of MOP-based persistence in Common Lisp"</li> </ul> <h3>12:30 - 14:00</h3> @@ -32,7 +34,8 @@ <h3>14:00 - 15:30</h3> <ul> - <li>Third session</li> + <li>Christophe Rhodes, "CLOS discriminating functions and user-defined specializers"</li> + <li>Jim Newton, "Specialization Oriented Programming"</li> </ul> <h3>15:30 - 16:00</h3> @@ -41,10 +44,12 @@ <li>Coffee break</li> </ul> -<h3>16:00 - 17:00</h3> +<h3>16:00 - 18:00</h3> <ul> - <li>Final session</li> + <li>Nikodemus Siivola, "Thread and Interrupt Safe Method Dispatch in PCL"</li> + <li>Pascal Costanza, Robert Hirschfeld, "Recent Developments in ContextL and Context-oriented Programming"</li> + <li>Wrap Up</li> </ul> </lisp-ecoop:page>

1 0

[bknr-cvs] r2165 - trunk/projects/lisp-ecoop/website/templates
by bknr＠bknr.net 11 Jun '07

11 Jun '07

Author: pcostanza Date: 2007-06-11 10:49:57 -0400 (Mon, 11 Jun 2007) New Revision: 2165 Modified: trunk/projects/lisp-ecoop/website/templates/menu.xml Log: Added submissions entry to the menu. Modified: trunk/projects/lisp-ecoop/website/templates/menu.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/menu.xml 2007-05-17 12:13:04 UTC (rev 2164) +++ trunk/projects/lisp-ecoop/website/templates/menu.xml 2007-06-11 14:49:57 UTC (rev 2165) @@ -3,12 +3,12 @@ <item url="home" title="Home" /> <item url="news" title="News" /> <item url="people" title="People" /> + <item url="submissions" title="Submissions" /> <item url="papers" title="Papers" /> <item url="groups" title ="Breakout Groups" /> <item url="guidelines" title="Submission" /> <item url="contact" title="Organization / Contact" /> <!-- - <item url="submissions" title="Submissions" /> <item url="schedule" title="Schedule" /> <item url="programme" title="Programme" /> <item url="registration" title="Registration" />

1 0

[bknr-cvs] r2164 - trunk/projects/lisp-ecoop/website/templates
by bknr＠bknr.net 17 May '07

17 May '07

Author: pcostanza Date: 2007-05-17 08:13:04 -0400 (Thu, 17 May 2007) New Revision: 2164 Modified: trunk/projects/lisp-ecoop/website/templates/news.xml Log: Updates news. Modified: trunk/projects/lisp-ecoop/website/templates/news.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/news.xml 2007-05-17 12:06:48 UTC (rev 2163) +++ trunk/projects/lisp-ecoop/website/templates/news.xml 2007-05-17 12:13:04 UTC (rev 2164) @@ -8,8 +8,8 @@ <h3>May 17, 2007</h3> <ul> -<li>Announced Alexander Repenning's keynote presentation.</li> -<li>Announced prolongation of submission deadline.</li> +<li><a href="http://lisp-ecoop07.bknr.net/profile/5802">Alexander Repenning</a> will be giving a keynote presentation about <a href="http://lisp-ecoop07.bknr.net/submission/5881">Antiobjects: Mapping Game AI to Massively Parallel Architectures using Collaborative Diffusion</a>.</li> +<li>The submission deadline for papers, essays and breakout group proposals has been extended to May 31.</li> </ul> <h3>March 30, 2007</h3>

1 0

[bknr-cvs] r2163 - trunk/projects/lisp-ecoop/website/templates
by bknr＠bknr.net 17 May '07

17 May '07

Author: pcostanza Date: 2007-05-17 08:06:48 -0400 (Thu, 17 May 2007) New Revision: 2163 Modified: trunk/projects/lisp-ecoop/website/templates/home.xml Log: Links for Alexander Repenning's news item. Modified: trunk/projects/lisp-ecoop/website/templates/home.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/home.xml 2007-05-17 12:01:55 UTC (rev 2162) +++ trunk/projects/lisp-ecoop/website/templates/home.xml 2007-05-17 12:06:48 UTC (rev 2163) @@ -11,7 +11,7 @@ <h2>Important News</h2> <ul> -<li>Alexander Repenning will be giving a keynote presentation about Antiobjects: Mapping Game AI to Massively Parallel Architectures using Collaborative Diffusion.</li> +<li><a href="http://lisp-ecoop07.bknr.net/profile/5802">Alexander Repenning</a> will be giving a keynote presentation about <a href="http://lisp-ecoop07.bknr.net/submission/5881">Antiobjects: Mapping Game AI to Massively Parallel Architectures using Collaborative Diffusion</a>.</li> <li>The submission deadline for papers, essays and breakout group proposals has been extended to May 31.</li> </ul>

1 0

[bknr-cvs] r2162 - trunk/projects/lisp-ecoop/website/templates
by bknr＠bknr.net 17 May '07

17 May '07

Author: pcostanza Date: 2007-05-17 08:01:55 -0400 (Thu, 17 May 2007) New Revision: 2162 Modified: trunk/projects/lisp-ecoop/website/templates/home.xml trunk/projects/lisp-ecoop/website/templates/menu.xml trunk/projects/lisp-ecoop/website/templates/news.xml Log: Updates... Modified: trunk/projects/lisp-ecoop/website/templates/home.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/home.xml 2007-05-17 11:28:34 UTC (rev 2161) +++ trunk/projects/lisp-ecoop/website/templates/home.xml 2007-05-17 12:01:55 UTC (rev 2162) @@ -7,24 +7,18 @@ <p>July 30 - Berlin, Germany - co-located with ECOOP 2007</p> - +<p>Supported by <a href="http://clozure.com/" target="_new">Clozure Associates</a></p> <h2>Important News</h2> <ul> -<li>None at the moment.</li> +<li>Alexander Repenning will be giving a keynote presentation about Antiobjects: Mapping Game AI to Massively Parallel Architectures using Collaborative Diffusion.</li> +<li>The submission deadline for papers, essays and breakout group proposals has been extended to May 31.</li> </ul> <h2>Important Dates</h2> <ul> -<li>Submission deadline: <b>May 13, 2007</b></li> -<li>Notification of acceptance: <b>May 31, 2007</b></li> +<li>Submission deadline: <b>May 31, 2007</b></li> +<li>Notification of acceptance: <b>June 8, 2007</b></li> <li>ECOOP early registration deadline: <b>June 15, 2007</b></li> </ul> Modified: trunk/projects/lisp-ecoop/website/templates/menu.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/menu.xml 2007-05-17 11:28:34 UTC (rev 2161) +++ trunk/projects/lisp-ecoop/website/templates/menu.xml 2007-05-17 12:01:55 UTC (rev 2162) @@ -2,6 +2,7 @@ <menu name="main"> <item url="home" title="Home" /> <item url="news" title="News" /> + <item url="people" title="People" /> <item url="papers" title="Papers" /> <item url="groups" title ="Breakout Groups" /> <item url="guidelines" title="Submission" /> @@ -11,6 +12,5 @@ <item url="schedule" title="Schedule" /> <item url="programme" title="Programme" /> <item url="registration" title="Registration" /> - <item url="people" title="People" /> --> </menu> Modified: trunk/projects/lisp-ecoop/website/templates/news.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/news.xml 2007-05-17 11:28:34 UTC (rev 2161) +++ trunk/projects/lisp-ecoop/website/templates/news.xml 2007-05-17 12:01:55 UTC (rev 2162) @@ -5,6 +5,13 @@ <h1>News</h1> +<h3>May 17, 2007</h3> + +<ul> +<li>Announced Alexander Repenning's keynote presentation.</li> +<li>Announced prolongation of submission deadline.</li> +</ul> + <h3>March 30, 2007</h3> <ul>

1 0

[bknr-cvs] r2161 - trunk/projects/lisp-ecoop/website/templates
by bknr＠bknr.net 17 May '07

17 May '07

Author: hhubner Date: 2007-05-17 07:28:34 -0400 (Thu, 17 May 2007) New Revision: 2161 Modified: trunk/projects/lisp-ecoop/website/templates/profile.xml Log: Don't use <pre> for description text in profile (this may not be the final word on this). Modified: trunk/projects/lisp-ecoop/website/templates/profile.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/profile.xml 2007-05-04 12:25:42 UTC (rev 2160) +++ trunk/projects/lisp-ecoop/website/templates/profile.xml 2007-05-17 11:28:34 UTC (rev 2161) @@ -36,7 +36,7 @@ </lisp-ecoop:participants-only> <tr> <td width="20%">Text</td> - <td><pre>$(text)</pre></td> + <td>$(text)</td> </tr> <tr><th colspan="2">Submission</th></tr> <tr>

1 0

[bknr-cvs] r2160 - trunk/projects/bos/payment-website/static
by bknr＠bknr.net 04 May '07

04 May '07

Author: hhubner Date: 2007-05-04 08:25:42 -0400 (Fri, 04 May 2007) New Revision: 2160 Modified: trunk/projects/bos/payment-website/static/cms.js Log: Relax YouTube URL scanner. Modified: trunk/projects/bos/payment-website/static/cms.js =================================================================== --- trunk/projects/bos/payment-website/static/cms.js 2007-04-26 12:36:57 UTC (rev 2159) +++ trunk/projects/bos/payment-website/static/cms.js 2007-05-04 12:25:42 UTC (rev 2160) @@ -81,7 +81,7 @@ { var text = input.value; - text = text.replace(/.*src=" (http:\/\/www.youtube.com[^"]+).*/, "$1") + text = text.replace(/.*src=" *(http:\/\/www.youtube.com[^"]+).*/, "$1") input.value = text; if ((input.value != "") && !input.value.match(/^http:\/\/www.youtube.com\/v\/\S+/)) { alert("Invalid YouTube URL: " + input.value);

1 0

[bknr-cvs] r2159 - trunk/projects/bos/payment-website/images
by bknr＠bknr.net 26 Apr '07

26 Apr '07

Author: hhubner Date: 2007-04-26 08:36:57 -0400 (Thu, 26 Apr 2007) New Revision: 2159 Modified: trunk/projects/bos/payment-website/images/bos-logo.gif Log: corrected logo Modified: trunk/projects/bos/payment-website/images/bos-logo.gif =================================================================== (Binary files differ)

1 0