(defwidget revealer-on-press [revealvar revealvar-name ?class ?duration ?transition ?visible]
  (box
    :class "${class} revealer-on-press ${revealvar ? 'revealer_opened' : 'revealer_closed'}"
    :visible {visible ?: true}
;    :width {revealvar ? 300 : 100}
    :space-evenly false
    (box
      :orientation "vertical"
      :space-evenly false
      (eventbox
        :onclick '${EWW_CMD} update ${revealvar-name}=${revealvar ? "false" : "true"}'
        (children :nth 0))
        (revealer
        :reveal revealvar
        :transition {transition ?: "slidedown"}
        :duration {duration ?: "500ms"}
        (children :nth 1)))))