dan
/
haunt
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

builder: atom: Provide a full URL for the "self" link. 

* haunt/builder/atom.scm (atom-feed): Use SITE's domain to generate a
full URL for the "self" link.
This commit is contained in:
Ludovic Courtès 2016-10-30 23:42:22 +01:00 committed by David Thompson
parent a539914301
commit ba6c6b16e2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
haunt/builder/atom.scm
View File

@ -79,7 +79,8 @@ MAX-ENTRIES: The maximum number of posts to render in the feed"
(title ,(site-title site)) (title ,(site-title site))
(subtitle ,subtitle) (subtitle ,subtitle)
(updated ,(date->string* (current-date))) (updated ,(date->string* (current-date)))
(link (@ (href ,(string-append "/" file-name)) (link (@ (href ,(string-append (site-domain site)
"/" file-name))
(rel "self"))) (rel "self")))
(link (@ (href ,(site-domain site)))) (link (@ (href ,(site-domain site))))
,@(map (cut post->atom-entry site <> ,@(map (cut post->atom-entry site <>