diff --git a/prv/modules/templates.scm b/prv/modules/templates.scm index 9a644ce..4b83d3b 100755 --- a/prv/modules/templates.scm +++ b/prv/modules/templates.scm @@ -575,20 +575,22 @@ (br (@ (style "clear:both")))))) (define (thread-tpl style style-menu admin board board-html board-uri board-title password posts) - (master-tpl admin (format #f "/~a/ - ~a - ~a" board-html board-title website-title) - style style-menu (or (assoc-ref (assoc-ref boards board) 'theme) default-style) - "threadbg" - (format #f "

/~a/ - ~a

" board-html board-title) - ;; This form covers all thread and post boxes and is used for submitting actions such as post deletion - `((form (@ (enctype "multipart/form-data") (action "/mod-posts") (method "post")) - ,@(mod-bar-tpl admin) - "[" (a (@ (href "/board/" ,board-uri)) "Return") "]" - ,posts - "[" (a (@ (href "/board/" ,board-uri)) "Return") "]" - (br) - (span "Delete Post: " (input (@ (type "submit") (name "delete-button") (value "Delete"))))) + (let ((nav-links `("[" (a (@ (href "/board/" ,board-uri)) "Return") "] [" + (a (@ (href "/catalog/" ,board-uri)) "Catalog") "]"))) + (master-tpl admin (format #f "/~a/ - ~a - ~a" board-html board-title website-title) + style style-menu (or (assoc-ref (assoc-ref boards board) 'theme) default-style) + "threadbg" + (format #f "

/~a/ - ~a

" board-html board-title) + ;; This form covers all thread and post boxes and is used for submitting actions such as post deletion + `((form (@ (enctype "multipart/form-data") (action "/mod-posts") (method "post")) + ,@(mod-bar-tpl admin) + ,@nav-links + ,posts + ,@nav-links + (br) + (span "Delete Post: " (input (@ (type "submit") (name "delete-button") (value "Delete"))))) - ,(post-form-tpl password)))) + ,(post-form-tpl password))))) (define (catalog-thread-tpl mode board board-html board-uri threadnum postcount subject name date image iname thumb size comment old sticky replies) `(div (@ (border 1) (class (string-append (or (assoc-ref (assoc-ref boards board) 'theme) default-style) " threadwrapper")))