(defwindow example
  :monitor 0
  :geometry (geometry :x "0%"
                      :y "80px"
                      :width "20%"
                      :height "60px"
                      :anchor "top center")
  :stacking "fg"
  :windowtype "dialog"
  :wm-ignore true
  volslider)

(deflisten volume
  :initial "getvol"
  'tail -F /tmp/vol')

;; (defwidget volslider []
;;   (box :orientation "horizontal"
;;        :halign "center"
;;        volume
;;        (scale :value volume
;;               :min 0
;;               :max 100)))