diff options
Diffstat (limited to 'tw/services/desktop.scm')
| -rw-r--r-- | tw/services/desktop.scm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/tw/services/desktop.scm b/tw/services/desktop.scm index 53385761..1aa2bb2d 100644 --- a/tw/services/desktop.scm +++ b/tw/services/desktop.scm @@ -103,6 +103,11 @@ true, configure the user interface to use it.") See @code{/sys/class/power_supply}.") (ac-adapter-name maybe-string "The device name of the system's mains power supply, if any. See @code{/sys/class/power_supply}.") + ;; The default mirrors the previously hard-coded value from polybar.ini, for + ;; compatibility. It is probably not a great default; "0" might be better. + (thermal-zone (string "1") "The number of the thermal sensor used to show +the system temperature. Run @code{grep '^' /sys/class/thermal/thermal_zone*/type} +to list zones and their types.") (monitors list-of-monitors "List of monitor declarations to apply.")) (define polybar-wrapper @@ -124,7 +129,7 @@ supply, if any. See @code{/sys/class/power_supply}.") (when monitor-connected? (execl #$(file-append polybar "/bin/polybar") "polybar")))))) -(define (polybar-service monitor battery-name ac-adapter-name) +(define (polybar-service monitor battery-name ac-adapter-name thermal-zone) (shepherd-service (documentation (string-append "Polybar desktop bar for monitor " monitor ".")) (provision (list (symbol-append 'polybar- (string->symbol monitor)))) @@ -135,6 +140,7 @@ supply, if any. See @code{/sys/class/power_supply}.") (cons* #$(string-append "POLYBAR_MONITOR=" monitor) #$(string-append "POLYBAR_BATTERY=" (maybe-value battery-name "")) #$(string-append "POLYBAR_AC_ADAPTER=" (maybe-value ac-adapter-name "")) + #$(string-append "POLYBAR_THERMAL_ZONE=" thermal-zone) (default-environment-variables)))) (stop #~(make-kill-destructor)))) @@ -329,7 +335,7 @@ show_border=1 (define (home-shepherd-services config) "Run various daemons in my user profile." (match-record config <home-desktop-configuration> - (nvidia-driver? bluetooth? desktop-background battery-name ac-adapter-name monitors) + (nvidia-driver? bluetooth? desktop-background battery-name ac-adapter-name thermal-zone monitors) `(,(shepherd-service (documentation "NetworkManager applet; provides a GUI for network connections.") (provision '(nm-applet)) @@ -424,7 +430,7 @@ show_border=1 (stop #~(make-kill-destructor)))) '()) - ,@(map (compose (cut polybar-service <> battery-name ac-adapter-name) + ,@(map (compose (cut polybar-service <> battery-name ac-adapter-name thermal-zone) home-monitor-configuration-name) monitors)))) |