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

Check data carefully.

Browse source
This commit is contained in:
Jingtao Xu 2024-01-16 10:28:47 +08:00
parent f5420f9f24
commit d284e7571b
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
source/clog-element.lisp
View file

@ -137,9 +137,12 @@ after attachment is changed to one unique to this session."))
(:documentation "Set css style."))
(defmethod (setf style) (value (obj clog-element) style-name)
(jquery-execute obj (format nil "css('~A','~A')"
style-name (escape-string value)))
value)
;; Make sure value is a string
(let ((value (escape-string (if (stringp value)
value
(princ-to-string value)))))
(jquery-execute obj (format nil "css('~A','~A')" style-name value))
value))
(defgeneric set-styles (clog-element style-list)
(:documentation "Set css styles using a list of lists of name value pairs."))