aliens/tekuti
1
0
Fork 0
Code Activity

more atom fixen

Browse source
This commit is contained in:
Andy Wingo 2008-02-27 22:34:01 +01:00
parent bf21a8a3c0
commit 93605cf634
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tekuti/page.scm
View file

@ -418,9 +418,11 @@
`(entry `(entry
(author (name ,*name*) (uri ,(relurl ""))) (author (name ,*name*) (uri ,(relurl "")))
(title (@ (type "text")) ,(assq-ref post 'title)) (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 (published ,(timestamp->atom-date
(assq-ref post 'timestamp))) (assq-ref post 'timestamp)))
(updated ,(timestamp->atom-date
(assq-ref post 'timestamp)))
(content (@ (type "xhtml")) (content (@ (type "xhtml"))
(div (@ (xmlns "http://www.w3.org/1999/xhtml")) (div (@ (xmlns "http://www.w3.org/1999/xhtml"))
,(post-sxml-content post))))) ,(post-sxml-content post)))))