206 lines
4.4 KiB
Common Lisp
206 lines
4.4 KiB
Common Lisp
;;;; -*-lisp-*- ;;;;
|
|
;; Top-Level Module Definitions ;;
|
|
;;;; ;;;;
|
|
|
|
|
|
;;; ;;;
|
|
;; Bars for Rocinante ;;
|
|
;;; ;;;
|
|
|
|
(defwidget rocinante-builtinbar--left []
|
|
(box :orientation "h"
|
|
:halign "start"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "leftbox"
|
|
(sway-workspaces :group "builtin")
|
|
(sway-workspace :group "builtin")))
|
|
|
|
(defwidget rocinante-builtinbar--center []
|
|
(box :orientation "h"
|
|
:halign "center"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "centerbox"
|
|
(system-name)))
|
|
|
|
(defwidget rocinante-builtinbar--right []
|
|
(box :orientation "h"
|
|
:halign "end"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "rightbox"
|
|
(vpn-network)
|
|
(network)
|
|
(system-battery :battery "BAT1")
|
|
(audio)
|
|
(clock)))
|
|
|
|
(defwidget rocinante-externalbar--left []
|
|
(box :orientation "h"
|
|
:halign "start"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "leftbox"
|
|
(system-name)))
|
|
|
|
(defwidget rocinante-externalbar--center []
|
|
(box :orientation "h"
|
|
:halign "center"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "centerbox"))
|
|
|
|
(defwidget rocinante-externalbar--right []
|
|
(box :orientation "h"
|
|
:halign "end"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "rightbox"
|
|
(vpn-network)
|
|
(network)
|
|
(system-battery :battery "BAT1")
|
|
(audio)
|
|
(clock)))
|
|
|
|
;;; ;;;
|
|
;; Bars for S.S.V. Normandy ;;
|
|
;;; ;;;
|
|
|
|
(defwidget normandy-leftbar--left []
|
|
(box :orientation "h"
|
|
:halign "start"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "leftbox"
|
|
(system-name)))
|
|
|
|
(defwidget normandy-leftbar--right []
|
|
(box :orientation "h"
|
|
:halign "end"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "rightbox"
|
|
(sway-workspace :group "left")
|
|
(sway-workspaces :group "left")))
|
|
|
|
(defwidget normandy-rightbar--left []
|
|
(box :orientation "h"
|
|
:halign "start"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "leftbox"
|
|
(sway-workspaces :group "right")
|
|
(sway-workspace :group "right")))
|
|
|
|
(defwidget normandy-rightbar--right []
|
|
(box :orientation "h"
|
|
:halign "end"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "rightbox"
|
|
(system-name)))
|
|
|
|
(defwidget normandy-sidebar []
|
|
(box :orientation "v"
|
|
:valign "start"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "root side"
|
|
(sideclock)
|
|
(network-sidebar-details)
|
|
(system-gauges)))
|
|
|
|
|
|
;;; ;;;
|
|
;; Bars for Tycho Station ;;
|
|
;;; ;;;
|
|
|
|
(defwidget tycho-leftbar--left []
|
|
(box :orientation "h"
|
|
:halign "start"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "leftbox"
|
|
(clock)
|
|
))
|
|
|
|
(defwidget tycho-leftbar--center []
|
|
(box :orientation "h"
|
|
:halign "end"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "centerbox"
|
|
(system-name)
|
|
))
|
|
|
|
(defwidget tycho-leftbar--right []
|
|
(box :orientation "h"
|
|
:halign "end"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "rightbox"
|
|
(sway-workspace :group "left")
|
|
(sway-workspaces :group "left")))
|
|
|
|
(defwidget tycho-centerbar--left []
|
|
(box :orientation "h"
|
|
:halign "start"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "leftbox"
|
|
(sway-workspaces :group "center")
|
|
(sway-workspace :group "center")))
|
|
|
|
(defwidget tycho-centerbar--center []
|
|
(box :orientation "h"
|
|
:halign "end"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "centerbox"
|
|
(system-name)
|
|
))
|
|
|
|
(defwidget tycho-centerbar--right []
|
|
(box :orientation "h"
|
|
:halign "end"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "rightbox"
|
|
(aggietime-shift)
|
|
(vpn-network)
|
|
(network)
|
|
(mpris2)
|
|
(system-memory)
|
|
(system-cpu-avg)
|
|
(clock)))
|
|
|
|
(defwidget tycho-rightbar--left []
|
|
(box :orientation "h"
|
|
:halign "start"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "leftbox"
|
|
(sway-workspaces :group "right")
|
|
(sway-workspace :group "right")))
|
|
|
|
(defwidget tycho-rightbar--center []
|
|
(box :orientation "h"
|
|
:halign "end"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "centerbox"
|
|
(system-name)
|
|
))
|
|
|
|
(defwidget tycho-rightbar--right []
|
|
(box :orientation "h"
|
|
:halign "end"
|
|
:space-evenly false
|
|
:spacing 20
|
|
:class "rightbox"
|
|
(clock)
|
|
))
|
|
|
|
|