commit 3376fba493097fb9d22b9b85b06434b711607de4
parent 9fc18d34fae0ee758b772ad9ba6d694ae54d2700
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date: Sat, 18 Jul 2026 16:58:33 +0000
Cards with only a left button are corrected
Diffstat:
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -618,6 +618,9 @@ END-OF-CSS
(id ,(post-fragment-id id))
(class ,(conc class "-post"))
(hx-swap "outerHTML") (hx-post ,(conc "xdo-" action)))
+ ,@(if (or llabel rlabel)
+ `((input (@ (type "hidden") (name "id") (value ,id))))
+ '())
,@(if llabel
`((input (@ (type "submit") (name "submit")
(class lsub) (value ,llabel))))
@@ -627,8 +630,7 @@ END-OF-CSS
,@(if (or (null? details) (string=? (car details) ""))
'() `((pre (code ,(car details))))))
,@(if rlabel
- `((input (@ (type "hidden") (name "id") (value ,id)))
- ,@(if (<= -5 mark -1)
+ `(,@(if (<= -5 mark -1)
`((input (@ (type "hidden") (name "from") (value ,mark))))
'())
(input (@ (type "submit") (name "submit")