summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court├Ęs <ludo@gnu.org>2016-10-30 23:42:22 +0100
committerDavid Thompson <dthompson2@worcester.edu>2016-11-01 08:55:16 -0400
commitba6c6b16e2b5aecc152f7a7df787e597d10e29da (patch)
treeefc63c9d7f86c007c48de237180d0ade9d741f21
parenta5399143011d6b8f8b571e164afeded994e44c91 (diff)
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.
-rw-r--r--haunt/builder/atom.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/haunt/builder/atom.scm b/haunt/builder/atom.scm
index 9abe33d..39c331a 100644
--- a/haunt/builder/atom.scm
+++ b/haunt/builder/atom.scm
@@ -79,7 +79,8 @@ MAX-ENTRIES: The maximum number of posts to render in the feed"
(title ,(site-title site))
(subtitle ,subtitle)
(updated ,(date->string* (current-date)))
- (link (@ (href ,(string-append "/" file-name))
+ (link (@ (href ,(string-append (site-domain site)
+ "/" file-name))
(rel "self")))
(link (@ (href ,(site-domain site))))
,@(map (cut post->atom-entry site <>