diff options
-rw-r--r-- | apps/blog/templates/components.scm | 2 | ||||
-rw-r--r-- | 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)))) |