From 5366157a75957579bd4ff6c1aed22ba695febef8 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Mon, 10 Sep 2012 11:03:49 +0200
Subject: Remove sidebar-ul

---
 tekuti/page-helpers.scm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm
index 2f99117..66a7b42 100644
--- a/tekuti/page-helpers.scm
+++ b/tekuti/page-helpers.scm
@@ -42,7 +42,7 @@
             relurl rellink
             post-url
             post-editing-form
-            sidebar-ul top-tags tag-cloud
+            top-tags tag-cloud
             main-sidebar post-sidebar related-tag-cloud
             post-link admin-post-url admin-post-link
             show-post with-authentication
@@ -219,10 +219,6 @@
                             (value "delete") (class "btn btn-primary")))))
             '())))
 
-(define (sidebar-ul body)
-  `(div (@ (id "menu"))
-        (ul ,@body)))
-
 (define (admin-post-url post)
   (relurl `("admin" "posts" ,(post-key post))))
 
-- 
cgit v1.2.3-54-g00ecf