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