aliens/tekuti
1
0
Fork 0
Code Activity

add link to subscribe thingie

Browse source
This commit is contained in:
Andy Wingo 2008-02-28 00:46:20 +01:00
parent 384132878a
commit eae227142c
1 changed files with 4 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
tekuti/page.scm
View file

@ -217,15 +217,10 @@
(define (main-sidebar request index) (define (main-sidebar request index)
(sidebar-ul (sidebar-ul
`((li (h2 "orbit") `((li (h2 (a (@ (href ,(relurl "feed/atom")))
(ul (img (@ (href ,(relurl "wp-content/feed-icon-14x14.png"))
,@(map (lambda (pair) (alt "subscribe to this feed")))
`(li (a (@ (href ,(car pair))) ,(cdr pair)))) " subscribe")))
'(("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 "tags " (li (h2 "tags "
(a (@ (href ,(string-append *public-url-base* "tags/"))) (a (@ (href ,(string-append *public-url-base* "tags/")))
">>")) ">>"))