diff options
Diffstat (limited to 'jakob/builder/blog.scm')
| -rw-r--r-- | jakob/builder/blog.scm | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/jakob/builder/blog.scm b/jakob/builder/blog.scm index bb5567c..00b7ddc 100644 --- a/jakob/builder/blog.scm +++ b/jakob/builder/blog.scm @@ -102,7 +102,6 @@ ,(first-paragraph post) (p ,(hyperlink (or crosspost-uri local-uri) "read more →"))))) -;; TODO: Should dynamically pull comments. (define (comments-section post) `(section (@ (class "comments-section") (aria-labelledby "comments-heading")) @@ -110,17 +109,11 @@ (fetch-webmentions (post-identifier post))) (div (@ (class "comment-form-module")) (h4 (@ (class "module-title")) - "Leave a Comment") - (form (@ (class "comment-form")) - (div (@ (class "form-row")) - (input (@ (type "text") (placeholder "Name") (required "") (aria-label "Name"))) - (input (@ (type "text") (placeholder "Subject (Optional)") (aria-label "Subject")))) - (div (@ (class "form-row")) - (input (@ (type "url") (placeholder "Website (https://...)") (aria-label "Website URL")))) - (textarea (@ (placeholder "Write your comment here...") - (rows "4") - (required "") - (aria-label "Comment body"))))))) + "Leave a Comment") + (noscript + (p (@ (style "font-size: 10px; color: #666; text-align: center; padding: 10px;")) + "Click " ,(hyperlink (build-comment-url post) "here") " to write a comment on this post.")) + ,(render-dynamic-comment-form (post-slug post))))) ;;; @@ -154,8 +147,8 @@ #:scripts (if (not (eof-object? scripts)) scripts '()) #:content `(,(render-article post) ,(comments-section post) - ,(script "section-folds.js") - ,(script "comment-reaction.js"))) + ,(script "comment-reaction.js") + ,(script "section-folds.js"))) sxml->html)) |