diff options
| -rw-r--r-- | haunt/builder/atom.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/haunt/builder/atom.scm b/haunt/builder/atom.scm index cc35b78..9a015b2 100644 --- a/haunt/builder/atom.scm +++ b/haunt/builder/atom.scm @@ -197,10 +197,12 @@ the blog's prefix and post prefix." (id ,uri) (subtitle ,subtitle) (updated ,(date->string* (current-date))) - (link (@ (href ,(string-append (site-domain site) - "/" file-name)) - (rel "self"))) - (link (@ (href ,(site-domain site)))) + (link (@ (href ,uri) (rel "self"))) + (link (@ (href + ,(uri->string + (build-uri + (site-scheme site) + #:host (site-domain site)))))) ,@(map (cut post->atom-entry site <> #:blog-prefix blog-prefix) (take-up-to max-entries (filter posts)))) |