21 lines
587 B
Common Lisp
21 lines
587 B
Common Lisp
(include "bar/music.yuck")
|
|
(include "bar/hyprworkspaces.yuck")
|
|
(include "bar/system.yuck")
|
|
|
|
(defwidget bar []
|
|
(box :class "bar" :orientation "h" :spacing 40
|
|
(workspaces)
|
|
(music_compact)
|
|
(system)))
|
|
|
|
(defwindow bar
|
|
:monitor 0
|
|
:geometry (geometry :x "0%"
|
|
:y "0%"
|
|
:width "100%"
|
|
:height "40px"
|
|
:anchor "top center")
|
|
:stacking "fg"
|
|
:exclusive true
|
|
(bar))
|