cl-rw

commit ea715b3e43d05a0ad82f0c9c5dfd99de86a72eb4
parent 14839d3afa0c14d44b264324109fa878453ed88e
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun,  6 Dec 2015 09:17:56 +0100

checkbox selected can be non-function too

Diffstat:
M
ui.lisp
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/ui.lisp b/ui.lisp
@@ -489,7 +489,9 @@ X | X | X"
 (defun checkbox (selected click)
   `((:span :style (:style :font-family :monospace))
     "["
-    ,(link (lambda () (if (funcall selected) "X" "-")) click)
+    ,(link (lambda ()
+             (if (if (functionp selected) (funcall selected) selected) "X" "-"))
+           click)
     "]"))
 
 (defun radio (selected click)