From 0df690cb4b5d7b8040be6a87d832e652d79b68a8 Mon Sep 17 00:00:00 2001 From: Andreas Widen Date: Sun, 26 Nov 2023 16:40:12 +0100 Subject: blog: Fix link in sidebar tag and atom feed. Signed-off-by: Andreas Widen --- apps/blog/templates/components.scm | 2 +- apps/blog/templates/feed.scm | 5 ++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/apps/blog/templates/components.scm b/apps/blog/templates/components.scm index 6c49f94..79bd5bd 100644 --- a/apps/blog/templates/components.scm +++ b/apps/blog/templates/components.scm @@ -73,6 +73,6 @@ (lambda (tag) `(li (@ (class "bar-item")) (a (@ (class "bar-link") - (href ,(hfweb-url (url-path-join (tag-url-path tag) "")))) + (href ,(hfweb-url (url-path-join (tag-url-path tag))))) ,tag))) (sort tags tag-first?))))) diff --git a/apps/blog/templates/feed.scm b/apps/blog/templates/feed.scm index bfa1cc4..b11f026 100644 --- a/apps/blog/templates/feed.scm +++ b/apps/blog/templates/feed.scm @@ -36,7 +36,7 @@ ,@(map (lambda (post) `(entry - (id ,(url-path-join domain (post-url-path post) "")) + (id ,(url-path-join domain (post-url-path post))) (title ,(post-ref post 'title)) (author (name ,(post-ref post 'author))) (published ,(date->string (post-date post) "~4")) @@ -44,8 +44,7 @@ ;(rights (@ (type "text")) ,(post-copyright post)) (link (@ (rel "alternate") (href ,(url-path-join domain - (post-url-path post) - "")))) + (post-url-path post))))) ,@(map (lambda (tag) `(category (@ (term ,tag)))) -- cgit v1.2.3-54-g00ecf