[scheme] Initial comments API

1 files changed, 31 insertions, 0 deletions

diff --git a/haunt/jakob/builder/blog.scm b/haunt/jakob/builder/blog.scm
index 8f02a80..2e54998 100644
--- a/haunt/jakob/builder/blog.scm
+++ b/haunt/jakob/builder/blog.scm
@@ -80,6 +80,37 @@
             "."))
      (article ,(post-sxml post))
      (section
+      (@ (id "comments"))
+      (h2 "Comments for this Page")
+      (ul (@ (id "comment-container")))
+      (form
+       (@ (action "https://jakob.space/api/comment")
+          (method "post"))
+       (label (@ (for "name")) "Name:")
+       (br)
+       (input (@ (name "name") (id "name") (type "text")))
+       (br)
+       (label (@ (for "email")) "Email (optional; only used for Gravatar):")
+       (br)
+       (input (@ (name "email") (id "email") (type "text")))
+       (br)
+       (label (@ (for "url")) "Homepage (optional):")
+       (br)
+       (input (@ (name "url") (id "url") (type "text")))
+       (br)
+       (label (@ (for "comment")) "Comment (Markdown supported):")
+       (br)
+       (textarea (@ (name "comment") (id "comment") (rows "4") (cols "50") (maxlength "1024")))
+       (br)
+       (label (@ (for "captcha")) "Captcha: Please integrate the following definite integral.")
+       (br)
+       (img (@ (id "captcha") (alt "captcha-image")))
+       (br)
+       (input (@ (name "captcha") (id "captcha") (type "text")))
+       (br)
+       (input (@ (value "Submit") (type "submit"))))
+      ,(script "local.js"))
+     (section
       (@ (id "webmention"))
       (h2 ,(hyperlink "https://indieweb.org/Webmention" "Webmentions")
           " for this Page")