(defwidget revealer-on-hover [revealvar revealvar-name ?class ?duration ?transition]
  (box
    :class "${class} revealer-on-hover"
    :orientation "h"
    :space-evenly false
    (eventbox
;      :onhover "${EWW_CMD} update ${revealvar-name}=true"
      :onscroll "if test '{}' = 'down';then ${EWW_CMD} update ${revealvar-name}=true;else ${EWW_CMD} update ${revealvar-name}=false;fi"
;      :onscroll "/usr/bin/env bash 'if [[]] ${EWW_CMD} update ${revealvar-name}=true'"
      :onhoverlost "${EWW_CMD} update ${revealvar-name}=false"
;      :onhoverlost "${EWW_CMD} update ${revealvar-name}=false"
      (box
        :space-evenly false
        (children :nth 0)
        (revealer
          :reveal revealvar
          :transition {transition ?: "slideright"}
          :duration {duration ?: "500ms"}
          (children :nth 1))))))