mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

better handling of multile styles

Browse source
This commit is contained in:
David Botton 2021-12-24 01:08:45 -05:00
parent 80af6cc5d2
commit a3b9f73fba
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

13
source/clog-element.lisp
View file

@ -126,15 +126,14 @@ must be in DOM, ie placed or auto-placed."))
(:documentation "Set css styles using a list of list of name value pairs."))
(defmethod set-styles ((obj clog-element) style-list)
(jquery-execute obj (format nil "css({~{~A~}})"
(mapcar
(jquery-execute obj (format nil "css({~{~A~^,~}})"
(remove nil (mapcar
(lambda (n)
(if n
(format nil "'~A':'~A',"
(when n
(format nil "'~A':'~A'"
(first n)
(second n))
""))
style-list))))
(second n))))
style-list)))))
;;;;;;;;;;;;;;;
;; attribute ;;