cl-rw

commit be6a342c5a7046b5bd023bf461a9031bd45f2058
parent bad72057667173334b074d56d7e2e7f831ef0582
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun,  6 Sep 2015 14:06:52 +0200

add accesskey arg

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

1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/ui.lisp b/ui.lisp
@@ -228,11 +228,15 @@
 (defun draw (create construct deconstruct)
   (funcall *pool* create construct deconstruct))
 
-(defun link (draw click &key style (enabled t))
+(defun link (draw click &key style (enabled t) accesskey)
   (flet ((%draw ()
            (if (functionp draw) (funcall draw) draw)))
     (if enabled
-        `((:a :href ,(funcall *click-link* click) :style ,style) ,(%draw))
+        `((:a
+           :href ,(funcall *click-link* click)
+           :style ,style
+           :accesskey ,accesskey)
+          ,(%draw))
         `((:span :style "color:gray") ,(%draw)))))
 
 (defun input (set type value enabled editable style size maxlength)