From c0ad6255abf69ef89509698607ddd73a733f55fb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 3 May 2020 00:11:16 +0200
Subject: Allow btn to take nothing, and default to <button>.

---
 module/output/html.scm | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/module/output/html.scm b/module/output/html.scm
index 0da52b0b..360151de 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -107,17 +107,15 @@
               allow-other-keys:
               rest: args)
   (when (and onclick href)
-    (error "Only give onclick or href."))
-
-  (when (not (or onclick href))
-    (error "One of onclick or href has to be given"))
+    (error "Only give one of onclick, href and submit."))
 
   (let ((body #f))
-    `(,(cond [onclick 'button]
-             [href 'a])
+    `(,(cond [href 'a]
+             [else 'button])
       (@ (class ,(string-join (cons "btn" class) " "))
-         ,(cond [onclick `(onclick ,onclick)]
-                [href `(href ,href)])
+         ,@(cond [onclick `((onclick ,onclick))]
+                 [href `((href ,href))]
+                 [else '()])
          ,@(let loop ((rem args))
              (cond
               [(null? rem) '()]
-- 
cgit v1.2.3