Changeset 23471 in project for gazette/src/feed.atom

Timestamp:

04/11/11 00:19:47 (10 years ago)

Author:

Moritz Heidkamp

Message:

gazette: switch feed to use `pages->atom-doc' (only available in trunk at the moment!)

File:

• gazette/src/feed.atom (modified) (1 diff)

gazette/src/feed.atom

@@ -3 +3 @@
  (date . "2010-08-29")
  (tag . "tag:gazette.call-cc.org,~A:~A")
- (base-uri . "http://gazette.call-cc.org"))
+ (entries-type . xhtml)
+ (base-uri . "http://gazette.call-cc.org")
+ (icon . "/icon.png")
+ (logo . "/logo.png"))
 
-(let* ((entries (all-issues))
-       (seconds->rfc3339-string (lambda (s)
-                                  (rfc3339->string (seconds->rfc3339 s))))
-       (seconds->YYYY-MM-DD (lambda (s)
-                              (time->string (seconds->utc-time s) "%Y-%m-%d"))))
-
-  (make-atom-doc
-   (make-feed
-    title: (make-title ($ 'title))
-    subtitle: (make-subtitle ($ 'subtitle))
-    icon: (make-icon (conc ($ 'base-uri) "/icon.png"))
-    logo: (make-logo (conc ($ 'base-uri) "/logo.png"))
-    updated: (seconds->rfc3339-string
-              (fold (lambda (p c)
-                      (let ((p ($ 'date p)))
-                        (if (and c (> c p)) c p)))
-                    #f
-                    entries))
-    id: (format ($ 'tag) ($ 'date) "/")
-    links: (list (make-link uri: (conc ($ 'base-uri) (page-path)) relation: "self" type: 'atom))
-    entries: (map (lambda (p)
-                    (make-entry title: (make-title ($ 'title p))
-                                published: (seconds->rfc3339-string ($ 'date p))
-                                updated: (seconds->rfc3339-string (page-updated p))
-                                id: (format ($ 'tag) (seconds->YYYY-MM-DD ($ 'date p)) (page-path p))
-                                links: (list (make-link uri: (conc ($ 'base-uri) (page-path p)) type: 'xhtml))
-                                authors: (map (lambda (author)
-                                                (make-author name: author))
-                                              ($ 'authors p))
-                                content: (make-content (read-page p) type: 'html)))
-                  entries))))
+(pages->atom-doc (all-issues)
+                 page-date->rfc3339-string: 
+                 (lambda (s)
+                   (rfc3339->string (seconds->rfc3339 s))))