diff options
Diffstat (limited to 'tw/services')
| -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)))) |