88 lines
2.4 KiB
Common Lisp
88 lines
2.4 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 desktop-leftbar [group]
|
|
:geometry (geometry :width "100%"
|
|
:height "36px"
|
|
:anchor "top center")
|
|
:exclusive true
|
|
:focusable false
|
|
:stacking "fg"
|
|
(centerbox :orientation "h"
|
|
:class "bar root"
|
|
(hostname-leftalign)
|
|
''
|
|
(ws-group-rightalign :workspace-group {group})))
|
|
|
|
(defwindow desktop-mainbar [group]
|
|
:geometry (geometry :width "100%"
|
|
:height "36px"
|
|
:anchor "top center")
|
|
:exclusive true
|
|
:focusable false
|
|
:stacking "fg"
|
|
(centerbox :orientation "h"
|
|
:class "bar root"
|
|
(ws-group-leftalign :workspace-group {group})
|
|
(hostname-centeralign)
|
|
(desktop-details-rightalign)))
|
|
|
|
(defwindow desktop-rightbar [group]
|
|
:geometry (geometry :width "100%"
|
|
:height "36px"
|
|
:anchor "top center")
|
|
:exclusive true
|
|
:focusable false
|
|
:stacking "fg"
|
|
(centerbox :orientation "h"
|
|
:class "bar root"
|
|
(ws-group-leftalign :workspace-group {group})
|
|
''
|
|
(hostname-rightalign)))
|
|
|
|
(defwindow sidebar [group side]
|
|
:geometry (geometry :width "200px"
|
|
:height "100%"
|
|
:anchor "${side} center")
|
|
:exclusive true
|
|
:focusable false
|
|
:stacking "fg"
|
|
(sidebar :orientation {side}))
|
|
|
|
|
|
(defwindow laptopbar [group battery]
|
|
:geometry (geometry :width "100%"
|
|
:height "36px"
|
|
:anchor "top center")
|
|
:exclusive true
|
|
:focusable false
|
|
:stacking "fg"
|
|
(centerbox :orientation "h"
|
|
:class "bar root"
|
|
(hostname-and-workspace-leftalign :workspace-group {group})
|
|
""
|
|
(laptop-details-rightalign :battery {battery} )))
|
|
|
|
(defwindow laptopsidebar [group battery side]
|
|
:geometry (geometry :width "35px"
|
|
:height "100%"
|
|
:anchor "${side} center")
|
|
:exclusive true
|
|
:focusable false
|
|
:stacking "fg"
|
|
(small-sidebar :orientation {side}
|
|
:battery {battery}
|
|
:workspace-group {group}))
|
|
|