From eae227142ccd58ebe6e9856c02bae1990b19df38 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 28 Feb 2008 00:46:20 +0100 Subject: [PATCH] add link to subscribe thingie --- tekuti/page.scm | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/tekuti/page.scm b/tekuti/page.scm index 7ad46b7..f0f0ceb 100644 --- a/tekuti/page.scm +++ b/tekuti/page.scm @@ -217,15 +217,10 @@ (define (main-sidebar request index) (sidebar-ul - `((li (h2 "orbit") - (ul - ,@(map (lambda (pair) - `(li (a (@ (href ,(car pair))) ,(cdr pair)))) - '(("http://advogato.org/recentlog.html?thresh=3" . "advogato") - ("http://ambient.2y.net/" . "ambient") - ("http://planet.gnome.org/" . "gnome") - ("http://gstreamer.freedesktop.org/planet/" . "gstreamer") - ("http://planet.lisp.org/" . "lisp"))))) + `((li (h2 (a (@ (href ,(relurl "feed/atom"))) + (img (@ (href ,(relurl "wp-content/feed-icon-14x14.png")) + (alt "subscribe to this feed"))) + " subscribe"))) (li (h2 "tags " (a (@ (href ,(string-append *public-url-base* "tags/"))) ">>"))