David Utz
22 lines
644 B
Plaintext
22 lines
644 B
Plaintext
(defwindow example
|
|
:monitor 0
|
|
:geometry (geometry :x "0%"
|
|
:y "20px"
|
|
:width "90%"
|
|
:height "30px"
|
|
:anchor "top center")
|
|
:stacking "fg"
|
|
:reserve (struts :distance "40px" :side "top")
|
|
:windowtype "dock"
|
|
:wm-ignore false
|
|
(greeter :text "Say hello!"
|
|
:name "David"))
|
|
|
|
(defwidget greeter [?text name]
|
|
(box :orientation "horizontal"
|
|
:halign "center"
|
|
text
|
|
(button :onclick "notify-send 'Greetings' 'Hello, ${name}'"
|
|
"Greet")))
|
|
|