diff options
| -rw-r--r-- | tekuti/page-helpers.scm | 4 |
1 files changed, 4 insertions, 0 deletions
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)))) |