From 93789f0d0703a9bff2989e02e047cb0e478362e9 Mon Sep 17 00:00:00 2001
From: Aleix Conchillo Flaque <aleix@member.fsf.org>
Date: Wed, 22 Dec 2010 16:18:29 +0100
Subject: [PATCH] add head link tag for atom feed

---
 tekuti/template.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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"))