From ba6c6b16e2b5aecc152f7a7df787e597d10e29da Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 30 Oct 2016 23:42:22 +0100 Subject: 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. --- haunt/builder/atom.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 <> -- cgit v1.2.3