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

compositor

Browse source
This commit is contained in:
David Botton 2021-03-02 23:02:41 -05:00
parent 7613db7abc
commit e4651e8d9e
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
source/clog-web.lisp
View file

@ -44,6 +44,7 @@
(clog-web-compositor class)
(create-web-compositor generic-function)
(web-padding-class-type type)
(composite-on-hover generic-function)
(composite-top-middle generic-function)
(composite-top-left generic-function)
(composite-top-right generic-function)
@ -248,6 +249,12 @@ then the visiblep propetery will be set to nil on creation."))
:padding-32 :padding-48 :padding-64 :padding-top-64 :padding-top-48
:padding-top-48 :padding-top-32))
(defgeneric composite-on-hover (clog-element)
(:documentation "Composite CLOG-ELEMENT on on-hover."))
(defmethod composite-on-hover ((obj clog-element))
(add-class obj "w3-display-hover"))
(defgeneric composite-top-middle (clog-element &key padding-class)
(:documentation "Composite CLOG-ELEMENT on top-middle."))