summaryrefslogtreecommitdiff
path: root/jakob/utils/comments.scm
diff options
context:
space:
mode:
authorJakob L. Kreuze <zerodaysfordays@sdf.org>2024-08-11 11:21:23 -0400
committerJakob L. Kreuze <zerodaysfordays@sdf.org>2024-08-11 11:21:23 -0400
commite46b4582f24d570533e3deac2a207ee0da8ccc7d (patch)
treeab988a5c1d94b335777d9c240692afce7b2e5463 /jakob/utils/comments.scm
parentdb825942fb062e4e57d19e031b983f1e2fd687c6 (diff)
[dynamic] Fix the "reply" button on comments
Diffstat (limited to 'jakob/utils/comments.scm')
-rw-r--r--jakob/utils/comments.scm11
1 files changed, 9 insertions, 2 deletions
diff --git a/jakob/utils/comments.scm b/jakob/utils/comments.scm
index 4ec3718..966d2dc 100644
--- a/jakob/utils/comments.scm
+++ b/jakob/utils/comments.scm
@@ -148,10 +148,17 @@ The I2P logo belongs to The I2P Project, and is licensed under the CC BY 4.0")
`(li ,(format #f "~a (~a)" emote count))))
(comment-reactions comment)))
,(when (internal-comment? comment)
- `(p (a (@ (class "comment-reply-button")
+ `(p (@ (class "comment-additional-actions")
+ (hidden #t))
+ (a (@ (class "comment-reply-button")
(href "#webmention-form")
(data-reply-to-id ,(internal-comment-id comment)))
- "reply")))
+ "reply")
+ " - "
+ (a (@ (class "comment-react-button")
+ (href "#webmention-form")
+ (data-reply-to-id ,(internal-comment-id comment)))
+ "react")))
,(when (and (internal-comment? comment)
(positive? (length (internal-comment-replies comment))))
`(ul (@ (class "webmention-container"))