iens

commit b89e7071eddef1602d2f5edfe410a470e823f488
parent f9501847ff00925bfd14123607d88b81b24722a1
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sun,  6 Sep 2026 17:40:36 +0000

Button elements rather than input in page navigation
Diffstat:
M
src/cgi.scm
 | 
10
++++++----

1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -718,10 +718,13 @@ END-OF-CSS
                      (loop b (car rest) (cdr rest)))))))
     (if (and np (or (> (cdr np) 1) (> (length items) (car np))))
       (let* ((n-part (if (= (car np) default-n) "" (conc "n=" (car np) "&")))
+             (p-btn (lambda (cl p)
+                      `(button (@ (type "submit") (class ,cl)
+                                   (name "p") (value ,p))
+                        ,(conc "Page " p))))
              (nav `(form (@ (method "GET"))
                     ,@(if (> (cdr np) 1)
-                             `((input (@ (type "submit") (class lsub)
-                                         (name "p") (value ,(sub1 (cdr np))))))
+                             (list (p-btn "lsub" (sub1 (cdr np))))
                              '())
                     (div (@ (class "form-body"))
                       ,@(if (= (car np) default-n)
@@ -731,8 +734,7 @@ END-OF-CSS
                       (p (@ (style "text-align: center"))
                         ,(conc "Page " (cdr np))))
                     ,@(if (> (length items) (car np))
-                             `((input (@ (type "submit") (class rsub)
-                                         (name "p") (value ,(add1 (cdr np))))))
+                             (list (p-btn "rsub" (add1 (cdr np))))
                              '()))))
         (append (list nav) items (list nav)))
       items)))