diff options
| author |  Tom Willemsen | 2012-08-25 21:39:42 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2012-08-25 21:39:42 +0200 |
| commit | 99d03989b537cb63fa0662b4313605945265270d (patch) | |
| tree | 9d4976a0b45e5a48e4c575be7d2b4bb10bbd96c5 | |
| parent | 6030bc2cdc265754d3976011a4d3ad084a11b37e (diff) | |
| download | tekuti-99d03989b537cb63fa0662b4313605945265270d.tar.gz tekuti-99d03989b537cb63fa0662b4313605945265270d.zip | |
Return sidebar-ul, still needed. Oops
| -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)))) |