diff options
Diffstat (limited to 'haunt/jakob/dynamic/capabilities/comments.scm')
| -rw-r--r-- | haunt/jakob/dynamic/capabilities/comments.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/haunt/jakob/dynamic/capabilities/comments.scm b/haunt/jakob/dynamic/capabilities/comments.scm index 54e1846..d3cb812 100644 --- a/haunt/jakob/dynamic/capabilities/comments.scm +++ b/haunt/jakob/dynamic/capabilities/comments.scm @@ -15,9 +15,12 @@ ;;; <http://www.gnu.org/licenses/>. (define-module (jakob dynamic capabilities comments) + #:use-module (haunt html) #:use-module (ice-9 match) #:use-module (jakob dynamic captcha) + #:use-module (jakob dynamic capabilities comment-form) #:use-module (jakob dynamic util) + #:use-module (jakob theme) #:use-module (json) #:use-module (squee) #:use-module (web request) @@ -103,8 +106,11 @@ This is a wrapper around `get-comments-by-slug'." (assoc-value form-data "email") (assoc-value form-data "url") (assoc-value form-data "comment"))) - (values '((content-type . (application/json))) - (scm->json-string `((success . #t))))) + (values '((content-type . (text/html))) + (sxml->html-string + (theme + #:content (render-comment-form-success (assoc-value form-data "slug")) + #:title "Success!")))) (let ((form-data (decode-form body))) (if (valid-comment? form-data) (insert-comment form-data) |