From 93605cf634470c0b5034fd294f6e484e9762eca3 Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Wed, 27 Feb 2008 22:34:01 +0100
Subject: more atom fixen

---
 tekuti/page.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tekuti/page.scm b/tekuti/page.scm
index ab4871a..34c86c8 100644
--- a/tekuti/page.scm
+++ b/tekuti/page.scm
@@ -418,9 +418,11 @@
                            `(entry
                              (author (name ,*name*) (uri ,(relurl "")))
                              (title (@ (type "text")) ,(assq-ref post 'title))
-                             (id ,(assq-ref post 'key))
+                             (id ,(relurl (url:decode (assq-ref post 'key)))) ;hack
                              (published ,(timestamp->atom-date
                                           (assq-ref post 'timestamp)))
+                             (updated ,(timestamp->atom-date
+                                        (assq-ref post 'timestamp)))
                              (content (@ (type "xhtml"))
                                       (div (@ (xmlns "http://www.w3.org/1999/xhtml"))
                                            ,(post-sxml-content post)))))
-- 
cgit v1.2.3-54-g00ecf