diff options
author | Timo Wilken | 2024-06-05 11:10:22 +0200 |
---|---|---|
committer | Timo Wilken | 2024-06-05 13:03:34 +0200 |
commit | 4d80b10bd70d44fe6bad225dabb9884ea7cb8d61 (patch) | |
tree | ff1b1641802e4021897a80b2876670d2c3774c4c /tw/services/desktop.scm | |
parent | 4f38e374d1cbf11fae0e49a3dfedfe2115e83c9b (diff) |
Reduce bluetooth-related complexity
All machines now support Bluetooth, so remove the special flag for it.
Diffstat (limited to 'tw/services/desktop.scm')
-rw-r--r-- | tw/services/desktop.scm | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/tw/services/desktop.scm b/tw/services/desktop.scm index 28f91e46..74dec352 100644 --- a/tw/services/desktop.scm +++ b/tw/services/desktop.scm @@ -98,8 +98,6 @@ NVIDIA driver?") (desktop-background (file-like (file-append tw-background "/share/backgrounds/tw/blobs.png")) "An image that will be set as the desktop background.") - (bluetooth? (boolean #f) "Whether the device has Bluetooth hardware. If -true, configure the user interface to use it.") (battery-name maybe-string "The device name of the system's battery, if any. See @code{/sys/class/power_supply}.") (ac-adapter-name maybe-string "The device name of the system's mains power @@ -293,7 +291,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 thermal-zone monitors) + (nvidia-driver? desktop-background battery-name ac-adapter-name thermal-zone monitors) `(,(shepherd-service (documentation "NetworkManager applet; provides a GUI for network connections.") (provision '(nm-applet)) @@ -303,6 +301,13 @@ show_border=1 (stop #~(make-kill-destructor))) ,(shepherd-service + (documentation "Blueman applet; provides a GUI for connection to bluetooth devices.") + (provision '(blueman-applet)) + (start #~(make-forkexec-constructor + (list #$(file-append blueman "/bin/blueman-applet")))) + (stop #~(make-kill-destructor))) + + ,(shepherd-service (documentation "Dunst notification daemon; displays desktop notifications.") (provision '(dunst)) (requirement '(x11-display)) @@ -379,15 +384,6 @@ show_border=1 (system* #$(file-append hsetroot "/bin/hsetroot") "-cover" (replace-home #$desktop-background))))) - ,@(if bluetooth? - (list (shepherd-service - (documentation "Blueman applet; provides a GUI for connection to bluetooth devices.") - (provision '(blueman-applet)) - (start #~(make-forkexec-constructor - (list #$(file-append blueman "/bin/blueman-applet")))) - (stop #~(make-kill-destructor)))) - '()) - ,@(map (compose (cut polybar-service <> battery-name ac-adapter-name thermal-zone) home-monitor-configuration-name) monitors)))) |