diff options
Diffstat (limited to 'haunt/jakob/dynamic/capabilities/comment-form.scm')
| -rw-r--r-- | haunt/jakob/dynamic/capabilities/comment-form.scm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/haunt/jakob/dynamic/capabilities/comment-form.scm b/haunt/jakob/dynamic/capabilities/comment-form.scm index 23d669d..83c9e1a 100644 --- a/haunt/jakob/dynamic/capabilities/comment-form.scm +++ b/haunt/jakob/dynamic/capabilities/comment-form.scm @@ -31,10 +31,6 @@ #:use-module (web uri) #:export (render-static-comment-form render-dynamic-comment-form - - render-comment-form-success - render-comment-form-failure - get-comment-form)) (define (render-commenter-info-field) @@ -102,11 +98,6 @@ ,(script "dynamic-comment-form.js") ,(script "proof-of-work.js"))) -(define (render-comment-form-success slug) - `((div (h1 "Success!") - (meta (@ (http-equiv "refresh") - (content "1; url=https://jakob.space")))))) - (define (get-comment-form request body) "API endpoint handler for querying for the comments on a particular post @@ -115,7 +106,7 @@ This is a wrapper around `get-comments-by-slug'." (let* ((path-encoded (uri-path (request-uri request))) (path (split-and-decode-uri-path path-encoded)) (slug (last path)) - (form (render-staticcomment-form slug #f captcha-id captcha-image))) + (form (render-static-comment-form slug #f captcha-id captcha-image))) (values '((content-type . (text/html))) (sxml->html-string (theme #:content form #:title "Comment prompt")))))) |