retrozinndev
11 lines
323 B
Plaintext
11 lines
323 B
Plaintext
|
|
;(deflisten volume_out :initial '{ "volume": "100%" }'
|
|
;`sh -c "source './scripts/volume.sh'; get_json_loop"`)
|
|
|
|
(defwidget audio []
|
|
(eventbox
|
|
:onscroll `[[ {} == "up" ]]; sh -c "source './scripts/volume.sh'; increase_vol" || sh -c "source './scripts/volume.sh'; decrease_vol"`
|
|
(button " ")
|
|
)
|
|
)
|