aliens/tekuti
1
0
Fork 0
Code Activity

add head link tag for atom feed

Browse source
This commit is contained in:
Aleix Conchillo Flaque 2010-12-22 16:18:29 +01:00 committed by Andy Wingo
parent bf90b687e0
commit 93789f0d07
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tekuti/template.scm
View file

@ -27,6 +27,7 @@
(define-module (tekuti template) (define-module (tekuti template)
#:use-module (web uri) #:use-module (web uri)
#:use-module (tekuti config) #:use-module (tekuti config)
#:use-module (tekuti page-helpers)
#:export (templatize)) #:export (templatize))
(define* (templatize #:key (define* (templatize #:key
@ -56,7 +57,11 @@
(link (@ (rel "stylesheet") (link (@ (rel "stylesheet")
(type "text/css") (type "text/css")
(media "screen") (media "screen")
(href ,*css-file*)))) (href ,*css-file*)))
(link (@ (rel "alternate")
(type "application/rss+xml")
(title ,*title*)
(href ,(relurl `("feed" "atom"))))))
(body (body
(div (@ (id "rap")) (div (@ (id "rap"))
(h1 (@ (id "header")) (h1 (@ (id "header"))