diff options
author | Aleix Conchillo Flaque | 2010-12-22 16:18:29 +0100 |
---|---|---|
committer | Andy Wingo | 2011-02-18 23:22:46 +0100 |
commit | 93789f0d0703a9bff2989e02e047cb0e478362e9 (patch) | |
tree | fe299c4925653641b5f5d5ef6b6901b0bec51304 | |
parent | bf90b687e087bb13fd8a0eb0be3bf82bdaabdcb8 (diff) | |
download | tekuti-93789f0d0703a9bff2989e02e047cb0e478362e9.tar.gz tekuti-93789f0d0703a9bff2989e02e047cb0e478362e9.zip |
add head link tag for atom feed
-rw-r--r-- | tekuti/template.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tekuti/template.scm b/tekuti/template.scm index 759f08e..fef35a7 100644 --- a/tekuti/template.scm +++ b/tekuti/template.scm @@ -27,6 +27,7 @@ (define-module (tekuti template) #:use-module (web uri) #:use-module (tekuti config) + #:use-module (tekuti page-helpers) #:export (templatize)) (define* (templatize #:key @@ -56,7 +57,11 @@ (link (@ (rel "stylesheet") (type "text/css") (media "screen") - (href ,*css-file*)))) + (href ,*css-file*))) + (link (@ (rel "alternate") + (type "application/rss+xml") + (title ,*title*) + (href ,(relurl `("feed" "atom")))))) (body (div (@ (id "rap")) (h1 (@ (id "header")) |