cl-rw

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

add rel attribute to link

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

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