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

event drop down now shows if events exist or not

Browse source
This commit is contained in:
David Botton 2022-07-12 23:48:12 -04:00
parent a9e778c965
commit 4e539c7303
4 changed files with 113 additions and 79 deletions
Download patch file Download diff file Expand all files Collapse all files

9
source/clog-element.lisp
View file

@ -170,6 +170,15 @@ after attachment is changed to one unique to this session."))
attribute-name (escape-string value)))
value)
(defgeneric has-attribute (clog-element attribute-name)
(:documentation "Returns t if ATTRIBUTE-NAME exists on CLOG-ELEMENT"))
(defmethod has-attribute ((obj clog-element) attribute-name)
(when (equal (jquery-query obj (format nil "attr('~A')!==undefined"
attribute-name))
"true")
t))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Placement - clog-element
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;