feat: add exmaple widget
This commit is contained in:
@@ -0,0 +1,21 @@
|
|||||||
|
(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")))
|
||||||
|
|
||||||
Reference in New Issue
Block a user