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

[bknr-cvs] r1866 - branches/xml-class-rework/projects/lisp-ecoop/website/templates
by bknr＠bknr.net 20 Feb '06

20 Feb '06

Author: hhubner Date: 2006-02-20 13:42:23 -0600 (Mon, 20 Feb 2006) New Revision: 1866 Added: branches/xml-class-rework/projects/lisp-ecoop/website/templates/registration.xml Removed: branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml Log: Rename home -> registration. Deleted: branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-02-20 05:47:13 UTC (rev 1865) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-02-20 19:42:23 UTC (rev 1866) @@ -1,48 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<?xml-stylesheet type="text/xsl" href="lisp-ecoop.xsl" ?> -<lisp-ecoop:page name="home" - xmlns:lisp-ecoop="http://lisp-ecoop06.bknr.net"> - -<p>Welcome to the Website of the 3rd European Lisp -Workshop. Please see the <a href="cfp">Call for Participation</a> for a -description of the goals of the workshop.</p> - -<h1>News</h1> - -<h3>February 20, 2006</h3> - -<ul> -<li>Launched the workshop website.</li> -</ul> - -<h1>Information for Attendees</h1> - -<p>Registration of workshop participants has to be done in three -<b>mandatory</b> steps:</p> - -<ol> <li><b>Contact the organizers of the workshop</b> (in order to -ensure that the participant limit has not been exceeded).</li> -<li>Advance registration to the workshop is handled through the -primary contact person of the workshop, Pascal Costanza (<a -href="mailto:pc@p-cos.net">pc(a)p-cos.net</a>). Please contact him by -regular email with your submission or input to the workshop in order -to receive your login to the workshop website. Include your preferred -login name for the workshop website with your application.</li> -<li>Register on the <a href="http://2006.ecoop.org">ECOOP 2006 web -site</a> either as a -<i>worskhop-only attendee</i> or as a <i>regular attendee</i>. The -latter includes access to workshops and to the main conference.</li> -</ol> - - - -</lisp-ecoop:page> Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml 2006-02-20 05:47:13 UTC (rev 1865) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml 2006-02-20 19:42:23 UTC (rev 1866) @@ -1,7 +1,7 @@ <?xml version="1.0" encoding="UTF-8"?> <menu name="main"> - <item url="home" title="Home" /> <item url="cfp" title="Call for Participation" /> + <item url="registration" title="Registration" /> <!-- <item url="submissions" title="Submissions" /> <item url="people" title="People" /> Copied: branches/xml-class-rework/projects/lisp-ecoop/website/templates/registration.xml (from rev 1848, branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml)

1 0

[bknr-cvs] r1865 - branches/xml-class-rework/projects/lisp-ecoop/website/templates
by bknr＠bknr.net 20 Feb '06

20 Feb '06

Author: hhubner Date: 2006-02-19 23:47:13 -0600 (Sun, 19 Feb 2006) New Revision: 1865 Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/cfp.xml Log: Change web address for Christophe Rhodes Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/cfp.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/cfp.xml 2006-02-19 19:05:05 UTC (rev 1864) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/cfp.xml 2006-02-20 05:47:13 UTC (rev 1865) @@ -142,7 +142,7 @@ Vrije Universiteit Brussel, Belgium</li> <li>Arthur Lemmens, Independent Consultant, Amsterdam, The Netherlands</li> -<li>Christophe Rhodes, <a href="http://www.goldsmiths.ac.uk/departments/computing/staff/CR.html">http://www.goldsmiths.ac.uk/departments/computing/staff/CR.html</a>, Goldsmiths Colloge, University of London, United Kingdom</li> +<li>Christophe Rhodes, <a href="http://www.doc.gold.ac.uk/~mas01cr/">http://www.doc.gold.ac.uk/~mas01cr/</a>, Goldsmiths Colloge, University of London, United Kingdom</li> </ul> </lisp-ecoop:page> \ No newline at end of file

1 0

[bknr-cvs] r1864 - branches/xml-class-rework/projects/lisp-ecoop/website/templates
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 13:05:05 -0600 (Sun, 19 Feb 2006) New Revision: 1864 Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/toplevel.xml Log: yet another absolute path fixed Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/toplevel.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/toplevel.xml 2006-02-19 18:59:00 UTC (rev 1863) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/toplevel.xml 2006-02-19 19:05:05 UTC (rev 1864) @@ -19,7 +19,7 @@ <div id="subtitle">Co-located with <a href="http://2006.ecoop.org/" target="_new">ECOOP 2006</a><br />July 3-4 - Nantes - France</div> <div id="logo"> <a href="http://bknr.net/" target="_new"> - <img width="57" height="20" alt="BKNR Logo" src="/image/bknr-logo/thumbnail,,57,20" border="0" /> + <img width="57" height="20" alt="BKNR Logo" src="image/bknr-logo/thumbnail,,57,20" border="0" /> </a> </div> </div>

1 0

[bknr-cvs] r1863 - in branches/xml-class-rework/projects/lisp-ecoop: src website/templates
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:59:00 -0600 (Sun, 19 Feb 2006) New Revision: 1863 Modified: branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp branches/xml-class-rework/projects/lisp-ecoop/website/templates/toplevel.xml Log: realitivize paths Modified: branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp 2006-02-19 18:53:22 UTC (rev 1862) +++ branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp 2006-02-19 18:59:00 UTC (rev 1863) @@ -33,7 +33,7 @@ ("logout" . "/logout")) :authorizer (make-instance 'bknr-authorizer) - :style-sheet-urls '("/static/styles.css") - :javascript-urls '("/static/javascript.js")) + :style-sheet-urls '("static/styles.css") + :javascript-urls '("static/javascript.js")) (start :port port :listeners listeners)) Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/toplevel.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/toplevel.xml 2006-02-19 18:53:22 UTC (rev 1862) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/toplevel.xml 2006-02-19 18:59:00 UTC (rev 1863) @@ -9,8 +9,8 @@ > <head> <title>LISP-ECOOP06 - $(title)</title> - <link rel="stylesheet" type="text/css" href="/static/styles.css" /> - <script src="/static/javascript.js" language="javascript" type="text/javascript"> </script> + <link rel="stylesheet" type="text/css" href="static/styles.css" /> + <script src="static/javascript.js" language="javascript" type="text/javascript"> </script> </head> <body>

1 0

[bknr-cvs] r1862 - branches/xml-class-rework/bknr/src/web
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:53:22 -0600 (Sun, 19 Feb 2006) New Revision: 1862 Modified: branches/xml-class-rework/bknr/src/web/templates.lisp Log: (...) Modified: branches/xml-class-rework/bknr/src/web/templates.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:51:45 UTC (rev 1861) +++ branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:53:22 UTC (rev 1862) @@ -14,7 +14,7 @@ (eval-when (:load-toplevel :execute) (let ((env-catalog (assoc :xmlcatalog ext:*environment-list*))) (when env-catalog - (pushnew *template-dtd-catalog* (cdr env-catalog) :test #'equal)))) + (pushnew (cdr env-catalog) *template-dtd-catalog* :test #'equal)))) ;; user-error is supposed to be raised when an error is provoced by ;; the user (i.e. by supplying invalid form data).

1 0

[bknr-cvs] r1861 - branches/xml-class-rework/bknr/src/web
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:51:45 -0600 (Sun, 19 Feb 2006) New Revision: 1861 Modified: branches/xml-class-rework/bknr/src/web/templates.lisp Log: Boy, _this_ is hard on a Sunday evening. Modified: branches/xml-class-rework/bknr/src/web/templates.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:50:29 UTC (rev 1860) +++ branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:51:45 UTC (rev 1861) @@ -14,7 +14,7 @@ (eval-when (:load-toplevel :execute) (let ((env-catalog (assoc :xmlcatalog ext:*environment-list*))) (when env-catalog - (pushnew *template-dtd-catalog* env-catalog :test #'equal)))) + (pushnew *template-dtd-catalog* (cdr env-catalog) :test #'equal)))) ;; user-error is supposed to be raised when an error is provoced by ;; the user (i.e. by supplying invalid form data).

1 0

[bknr-cvs] r1860 - branches/xml-class-rework/bknr/src/web
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:50:29 -0600 (Sun, 19 Feb 2006) New Revision: 1860 Modified: branches/xml-class-rework/bknr/src/web/templates.lisp Log: fix typo Modified: branches/xml-class-rework/bknr/src/web/templates.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:49:24 UTC (rev 1859) +++ branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:50:29 UTC (rev 1860) @@ -12,7 +12,7 @@ "/usr/local/share/xml/catalog.ports")) (eval-when (:load-toplevel :execute) - (let ((env-catalog (assoc :xmlcatalog exto:*environment-list*))) + (let ((env-catalog (assoc :xmlcatalog ext:*environment-list*))) (when env-catalog (pushnew *template-dtd-catalog* env-catalog :test #'equal))))

1 0

[bknr-cvs] r1859 - branches/xml-class-rework/bknr/src/web
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:49:24 -0600 (Sun, 19 Feb 2006) New Revision: 1859 Modified: branches/xml-class-rework/bknr/src/web/templates.lisp Log: change addition of environmental catalog Modified: branches/xml-class-rework/bknr/src/web/templates.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:44:08 UTC (rev 1858) +++ branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:49:24 UTC (rev 1859) @@ -9,10 +9,13 @@ (defvar *template-dtd-catalog* `(;; libxml standard "/etc/xml/catalog" ;; FreeBSD - "/usr/local/share/xml/catalog.ports" - ;; Find from environment - ,@(cdr (assoc :xmlcatalog ext:*environment-list*)))) + "/usr/local/share/xml/catalog.ports")) +(eval-when (:load-toplevel :execute) + (let ((env-catalog (assoc :xmlcatalog exto:*environment-list*))) + (when env-catalog + (pushnew *template-dtd-catalog* env-catalog :test #'equal)))) + ;; user-error is supposed to be raised when an error is provoced by ;; the user (i.e. by supplying invalid form data).

1 0

[bknr-cvs] r1858 - branches/xml-class-rework/bknr/src/web
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:44:08 -0600 (Sun, 19 Feb 2006) New Revision: 1858 Modified: branches/xml-class-rework/bknr/src/web/menu.lisp Log: Revert previous change in order to allow the site to run from a non-root url Modified: branches/xml-class-rework/bknr/src/web/menu.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/menu.lisp 2006-02-19 18:40:53 UTC (rev 1857) +++ branches/xml-class-rework/bknr/src/web/menu.lisp 2006-02-19 18:44:08 UTC (rev 1858) @@ -50,7 +50,6 @@ (dolist (item (menu-items menu)) (let ((item-is-active (in-subtree (puri:uri-path (net.aserve:request-uri *req*)) (item-url item)))) (with-slots (url title active-image inactive-image) item - (setf url (format nil "/~A" url)) ; XXX Fixme only absolute URLs are possible ATM (cond ((and active-image inactive-image) (if item-is-active

1 0

[bknr-cvs] r1857 - branches/xml-class-rework/projects/lisp-ecoop/src
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:40:53 -0600 (Sun, 19 Feb 2006) New Revision: 1857 Modified: branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp Log: fix up redirection to relative path. Modified: branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp 2006-02-19 18:28:46 UTC (rev 1856) +++ branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp 2006-02-19 18:40:53 UTC (rev 1857) @@ -17,7 +17,7 @@ (make-instance 'website :name "LISP ECOOP CMS" :handler-definitions `(("/" redirect-handler - :to "/home") + :to "home") ("/" template-handler :destination ,(namestring (merge-pathnames #p"templates/" *website-directory*)) :command-packages ((:lisp-ecoop . :lisp-ecoop.tags)

1 0