(defvar reveal_tray false)
(defwidget tray []
  (revealer-on-hover
    :revealvar reveal_tray
    :revealvar-name "reveal_tray"
    {reveal_tray ? "" : ""}
    (tray_children)))

(defwidget tray_children []
  (box :orientation "h"
       :space-evenly false
       :halign "center"
    (systray
      :orientation "h"
      :class "reveal_children"
      :space-evenly true
      :spacing 0
      :icon-size 20
      :prepend-new true)))