(defwidget popup-win []
  (box :space-evenly false :orientation "v"
    (box :visible {active-panel == "sys"}
      (sys-win))
    (box :visible {active-panel == "net"}
      (net-win))
    (box :visible {active-panel == "calendar"} :class "sys-win"
      (calendar))))

(defwindow popup
  :monitor 0
  :stacking "overlay"
  :geometry (geometry
    :x "0%" :y "0%"
    :anchor "bottom right"
    :width "320px" :height "0px")
  (window (popup-win)))