[blog] Add a link to commentpara.de at the bottom of ∀ posts.

1 files changed, 18 insertions, 0 deletions

diff --git a/haunt/jakob/builder/blog.scm b/haunt/jakob/builder/blog.scm
index 13ef492..f6c64c1 100644
--- a/haunt/jakob/builder/blog.scm
+++ b/haunt/jakob/builder/blog.scm
@@ -29,6 +29,7 @@
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-19)
   #:use-module (srfi srfi-26)
+  #:use-module (web uri)
   #:export (post-uri
             blog))
 
@@ -45,6 +46,20 @@
 ;;; Rendering.
 ;;;
 
+(define (build-anonymous-comment-url post)
+  (let* ((target (format #f "http://jakob.space~a" (post-uri post)))
+         (params `(("dontask" . "1")
+                   ("me"      . "https://commentpara.de")
+                   ("reply"   . ,target)))
+         (query (string-join (map (lambda (pair)
+                                    (string-concatenate
+                                     (list (uri-encode (car pair))
+                                           "="
+                                           (uri-encode (cdr pair)))))
+                                  params)
+                             "&")))
+    (format #f "https://quill.p3k.io/?~a" query)))
+
 (define (render-article post)
   "Return the SHTML for POST's contents."
   #<(main
@@ -77,6 +92,9 @@
               " to this? Let me know the URL:")
        (input (@ (name "source") (type "url")))
        (input (@ (value "Send Webmention") (type "submit"))))
+      (p "Alternatively, you can send an "
+         ,(hyperlink (build-anonymous-comment-url post) "anonymous comment")
+         ".")
       ,(script "webmention.js"))))
 
 (define (render-preview post)