27 lines
827 B
Common Lisp
27 lines
827 B
Common Lisp
;; -*-lisp-*- Include modules
|
|
(include "./modules/workspaces.yuck")
|
|
(include "./modules/clock.yuck")
|
|
(include "./modules/system.yuck")
|
|
(include "./modules/network.yuck")
|
|
(include "./modules/volume.yuck")
|
|
(include "./modules/aggietime.yuck")
|
|
(include "./modules/timer.yuck")
|
|
(include "./modules/mpris.yuck")
|
|
|
|
(defvar power--state "normal")
|
|
|
|
(include "./windows.yuck")
|
|
|
|
(defwindow builtinbar
|
|
:monitor 0
|
|
:geometry (geometry :width "100%"
|
|
:height "36px"
|
|
:anchor "top center")
|
|
:exclusive true
|
|
:focusable false
|
|
:stacking "fg"
|
|
(centerbox :orientation "h" :class "bar root ${power--state == 'critical' ? 'reservepower' : ''}"
|
|
(rocinante-builtinbar--left)
|
|
(rocinante-builtinbar--center)
|
|
(rocinante-builtinbar--right)))
|