(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)))