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

Added additonal form element properties and datalists

Browse source
This commit is contained in:
David Botton 2021-01-12 20:47:18 -05:00
parent efd75a84a2
commit 70c2e8fc87
8 changed files with 693 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

8
clog-element.lisp
View file

@ -115,6 +115,12 @@ an existing element with HTML-ID. The HTML-ID must be unique."))
(defmethod attribute ((obj clog-element) attribute-name)
(jquery-query obj (format nil "attr('~A')" attribute-name)))
(defgeneric remove-attribute (clog-element attribute-name)
(:documentation "Get/Setf html tag attribute. (eg. src on img tag)"))
(defmethod remove-attribute ((obj clog-element) attribute-name)
(jquery-execute obj (format nil "removeAttr('~A')" attribute-name)))
(defgeneric set-attribute (clog-element attribute-name value)
(:documentation "Set html tag attribute."))
@ -296,7 +302,7 @@ setting display (None)."))
(defmethod set-hiddenp ((obj clog-element) value)
(if value
(setf (property obj "hidden") t)
(jquery-execute obj "removeAttr('hidden')")))
(remove-attribute obj "hidden")))
(defsetf hiddenp set-hiddenp)
;;;;;;;;;;;;;;