94 lines
2.6 KiB
Common Lisp
94 lines
2.6 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 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 laptopbar [group battery]
|
|
: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)
|
|
(laptop-details-rightalign :battery {battery} )))
|
|
|