diff options
| -rw-r--r-- | tekuti/page.scm | 13 |
1 files 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/"))) ">>")) |