mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-09 12:20:27 -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.")) (:documentation "Set css styles using a list of list of name value pairs."))
(defmethod set-styles ((obj clog-element) style-list) (defmethod set-styles ((obj clog-element) style-list)
(jquery-execute obj (format nil "css({~{~A~}})" (jquery-execute obj (format nil "css({~{~A~^,~}})"
(mapcar (remove nil (mapcar
(lambda (n) (lambda (n)
(if n (when n
(format nil "'~A':'~A'," (format nil "'~A':'~A'"
(first n) (first n)
(second n)) (second n))))
"")) style-list)))))
style-list))))
;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;
;; attribute ;; ;; attribute ;;