[bknr-cvs] r1869 - in branches/xml-class-rework/projects/lisp-ecoop: src website/templates

[bknr at bknr.net]

Author: hhubner
Date: 2006-02-20 13:51:53 -0600 (Mon, 20 Feb 2006)
New Revision: 1869

Added:
   branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml
Removed:
   branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml
Modified:
   branches/xml-class-rework/projects/lisp-ecoop/src/participant.lisp
   branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp
   branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml
Log:
home -> news.


Modified: branches/xml-class-rework/projects/lisp-ecoop/src/participant.lisp
===================================================================
--- branches/xml-class-rework/projects/lisp-ecoop/src/participant.lisp	2006-02-20 19:46:12 UTC (rev 1868)
+++ branches/xml-class-rework/projects/lisp-ecoop/src/participant.lisp	2006-02-20 19:51:53 UTC (rev 1869)
@@ -43,15 +43,17 @@
      (:princ-safe (submission-title submission))))))
 
 (define-lisp-ecoop-class participant (user)
-  ((url :update :documentation "Personal Website URL" :initform nil)
-   (picture :update :documentation "Photo of the participant")
-   (submissions :update :documentation "Submitted documents" :initform nil)
-   (affiliation :update :documentation "Organization to which the person belongs" :initform nil)
+  ((login :read :attribute t)
+   (url :update :documentation "Personal Website URL" :initform nil :attribute t)
+   (picture :update :documentation "Photo of the participant" :element t)
+   (submissions :update :documentation "Submitted documents" :initform nil :element t)
+   (affiliation :update :documentation "Organization to which the person belongs" :initform nil :attribute t)
    (interests :update :documentation "Interests (as keyword list)"
 	      :index-type hash-list-index
 	      :index-reader participants-with-interests
-	      :index-keys all-interest-keywords)
-   (text :update :documentation "Self descriptionary text"))
+	      :index-keys all-interest-keywords
+              :attribute t)
+   (text :update :documentation "Self descriptionary text" :element t))
   (:default-initargs :picture nil :submission nil :interests nil :text ""))
 
 (defmethod initialize-persistent-instance :after ((participant participant))

Modified: branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp
===================================================================
--- branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp	2006-02-20 19:46:12 UTC (rev 1868)
+++ branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp	2006-02-20 19:51:53 UTC (rev 1869)
@@ -17,7 +17,7 @@
   (make-instance 'website
 		 :name "LISP ECOOP CMS"
 		 :handler-definitions `(("/" redirect-handler
-					 :to "home")
+					 :to "news")
 					("/" template-handler
 					 :destination ,(namestring (merge-pathnames #p"templates/" *website-directory*))
 					 :command-packages ((:lisp-ecoop . :lisp-ecoop.tags)

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 19:46:12 UTC (rev 1868)
+++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml	2006-02-20 19:51:53 UTC (rev 1869)
@@ -1,31 +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">
-
-<h1>Home</h1>
-
-<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>
-
-<!--
-<div align="center">
-  <p>
-    <a href="http://www.alu.org" target="_new">
-      <img src="/image/alu-logo" alt="" height="63" width="95" align="middle" target="_new" border="0" />
-    </a>
-  </p>
-  <p>Supported by ALU</p>
-</div>
--->
-
-</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 19:46:12 UTC (rev 1868)
+++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml	2006-02-20 19:51:53 UTC (rev 1869)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <menu name="main">
-  <item url="home" title="Home" />
+  <item url="news" title="News" />
   <item url="cfp" title="Call for Participation" />
   <item url="registration" title="Registration" />
   <!--

Copied: branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml (from rev 1867, 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 19:44:52 UTC (rev 1867)
+++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml	2006-02-20 19:51:53 UTC (rev 1869)
@@ -0,0 +1,29 @@
+<?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">
+
+<h1>News</h1>
+
+<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>
+
+<h3>February 20, 2006</h3>
+
+<ul>
+<li>Launched the workshop website.</li>
+</ul>
+
+<!--
+<div align="center">
+  <p>
+    <a href="http://www.alu.org" target="_new">
+      <img src="/image/alu-logo" alt="" height="63" width="95" align="middle" target="_new" border="0" />
+    </a>
+  </p>
+  <p>Supported by ALU</p>
+</div>
+-->
+
+</lisp-ecoop:page>