From 99d03989b537cb63fa0662b4313605945265270d Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sat, 25 Aug 2012 21:39:42 +0200
Subject: Return sidebar-ul, still needed. Oops

---
 tekuti/page-helpers.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm
index b2ad60f..194c3ef 100644
--- a/tekuti/page-helpers.scm
+++ b/tekuti/page-helpers.scm
@@ -192,6 +192,10 @@
             ,(show-post post #f))
           '())))
 
+(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