diff options
Diffstat (limited to 'tekuti/page.scm')
-rw-r--r-- | tekuti/page.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tekuti/page.scm b/tekuti/page.scm index a6c4758..0974935 100644 --- a/tekuti/page.scm +++ b/tekuti/page.scm @@ -271,7 +271,11 @@ (rcons* request 'title "comment posted" 'body `((p "Comment, posted, thanks.") - (p "Back to the post: " (post-link post))))))))) + ;; fixme: show the post directly; or a redirect? + (p "Back to the post: " + ,(rellink (string-append "archives/" (url:decode slug)) + post))))))))) + (else (page-not-found request index))))) |