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))))