(defvar reveal_powermenu false)
(defwidget powermenu []
  (revealer-on-hover
    :revealvar reveal_powermenu
    :revealvar-name "reveal_powermenu"
    (button :onclick 'sp-powermenu'
      "")
    (powermenu_children)))

(defwidget powermenu_children []
  (box :class "reveal_children"
    :orientation "h"
    :space-evenly false
    :halign "center"
    (button :onclick 'sp-powermenu'
      "")
    (button :onclick 'sp-powermenu'
      "")
    (button :onclick 'sp-powermenu'
      "")
    (button :onclick 'sp-powermenu'
      "")))