[Gd-chatter] r11178 - trunk/libraries/network/web-framework

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Fri Feb 16 17:01:34 2007
New Revision: 11178

Modified:
   trunk/libraries/network/web-framework/changes.dylan
   trunk/libraries/network/web-framework/library.dylan
Log:
Job: minor
 added some slots


Modified: trunk/libraries/network/web-framework/changes.dylan
==============================================================================
--- trunk/libraries/network/web-framework/changes.dylan	(original)
+++ trunk/libraries/network/web-framework/changes.dylan	Fri Feb 16 17:01:34 2007
@@ -15,7 +15,7 @@
     init-keyword: icon:;
   slot identifier :: <uri>,
     init-keyword: identifier:;
-  slot links :: <list> = #(),
+  slot links :: <string-table> = make(<string-table>),
     init-keyword: links:;
   slot logo :: false-or(<uri>) = #f,
     init-keyword: logo:;
@@ -166,7 +166,7 @@
   slot text :: <text>, init-keyword: text:;
 end;
 
-define class <link> (<object>)
+define open class <link> (<object>)
   slot href :: <uri>,
     required-init-keyword: href:;
   slot rel :: false-or(<uri>) = #f,
@@ -179,6 +179,10 @@
     init-keyword: title:;
   slot length :: false-or(<text>) = #f,
     init-keyword: length:;
+  slot description :: false-or(<text>) = #f,
+    init-keyword: description:;
+  slot categories :: <vector> = #[],
+     init-keyword: categories:;
 end;
     
 define constant <source> = <feed>;
@@ -320,7 +324,7 @@
       id(permanent-link(entry)),
       published(generate-atom(entry.published)),
 //      updated { do(collect(generate-atom(entry.updated))) },
-//      do(do(method(x) collect(generate-atom(x)) end, entry.authors)),
+      do(do(method(x) collect(generate-atom(x)) end, entry.authors)),
 //      do(do(method(x) collect(generate-atom(x)) end, entry.contributors)),
       do(collect(generate-atom(entry.content))),
     } //missing: category, summary

Modified: trunk/libraries/network/web-framework/library.dylan
==============================================================================
--- trunk/libraries/network/web-framework/library.dylan	(original)
+++ trunk/libraries/network/web-framework/library.dylan	Fri Feb 16 17:01:34 2007
@@ -220,7 +220,10 @@
     content, content-setter,
     published, published-setter;
 
-  export <uri>, <link>;
+  export <uri>;
+  
+  export <link>,
+    href, href-setter;
 end;