18 lines
290 B
Plaintext
18 lines
290 B
Plaintext
|
(deflisten swaync
|
||
|
|
:initial "{}"
|
||
|
|
|
||
|
|
"swaync-client -swb"
|
||
|
|
)
|
||
|
|
|
||
|
|
(defwidget notifications []
|
||
|
|
|
||
|
|
(button
|
||
|
|
:class "notifications"
|
||
|
|
:onclick "swaync-client -t -sw"
|
||
|
|
:onrightclick "swaync-client -d -sw"
|
||
|
|
|
||
|
|
(label
|
||
|
|
:text "${swaync.text}"
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|