diff --git a/source/clog-web.lisp b/source/clog-web.lisp
index e31276d..9f7bffe 100644
--- a/source/clog-web.lisp
+++ b/source/clog-web.lisp
@@ -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."))