From e11c75d3d9f06b5e3fc413dd2c1eedf0da97692f Mon Sep 17 00:00:00 2001 From: "Jakob L. Kreuze" Date: Mon, 27 Jul 2020 16:49:18 -0400 Subject: [blog] Add a link to commentpara.de at the bottom of ∀ posts. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- haunt/jakob/builder/blog.scm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) 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) -- cgit v1.3