diff options
Diffstat (limited to 'haunt')
| -rw-r--r-- | haunt/jakob/builder/blog.scm | 18 |
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) |