108 lines
2.7 KiB
Common Lisp
108 lines
2.7 KiB
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 leftbar
|
|
:monitor 1
|
|
:geometry (geometry :width "100%"
|
|
:height "36px"
|
|
:anchor "top center")
|
|
:exclusive true
|
|
:focusable false
|
|
:stacking "fg"
|
|
(centerbox :orientation "h"
|
|
:class "bar root"
|
|
(tycho-leftbar--left)
|
|
(tycho-leftbar--center)
|
|
(tycho-leftbar--right)))
|
|
|
|
(defwindow centerbar
|
|
:monitor 0
|
|
:geometry (geometry :width "100%"
|
|
:height "26px"
|
|
:anchor "top center")
|
|
:exclusive true
|
|
:focusable false
|
|
:stacking "fg"
|
|
(centerbox :orientation "h"
|
|
:class "bar root"
|
|
(tycho-centerbar--left)
|
|
(tycho-centerbar--center)
|
|
(tycho-centerbar--right)))
|
|
|
|
(defwindow rightbar
|
|
:monitor 2
|
|
:geometry (geometry :width "100%"
|
|
:height "36px"
|
|
:anchor "top center")
|
|
:exclusive true
|
|
:focusable false
|
|
:stacking "fg"
|
|
(centerbox :orientation "h"
|
|
:class "bar root"
|
|
(tycho-rightbar--left)
|
|
(tycho-rightbar--center)
|
|
(tycho-rightbar--right)))
|
|
|
|
(defwindow sidebar
|
|
:monitor 1
|
|
:geometry (geometry :width "200px"
|
|
:height "100%"
|
|
:anchor "left center")
|
|
:exclusive true
|
|
:focusable false
|
|
:stacking "fg"
|
|
(tycho-sidebar))
|
|
|
|
|
|
|
|
(defwindow network-status
|
|
:monitor 0
|
|
:geometry (geometry :width "200px"
|
|
:height "0px"
|
|
:x "300px"
|
|
:y "0px"
|
|
:anchor "top right")
|
|
:exclusive false
|
|
:focusable false
|
|
:stacking "overlay"
|
|
(box :orientation "v"
|
|
:class "bar root bg outline"
|
|
:visible {network--show-details}
|
|
(network-detail)))
|
|
|
|
|
|
(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)))
|
|
|
|
|
|
(defwindow polkit
|
|
:geometry (geometry
|
|
:anchor "center")
|
|
:focusable true
|
|
:exclusive false
|
|
:stacking "overlay"
|
|
(box :orientation "v"
|
|
:class "bar root bg outline"
|
|
"testing"))
|