diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-10-30 23:42:22 +0100 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2016-11-01 08:55:16 -0400 |
| commit | ba6c6b16e2b5aecc152f7a7df787e597d10e29da (patch) | |
| tree | efc63c9d7f86c007c48de237180d0ade9d741f21 | |
| parent | a5399143011d6b8f8b571e164afeded994e44c91 (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.scm | 3 |
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 <> |