From d168fbd448d26574e8934a0915e822257ede9898 Mon Sep 17 00:00:00 2001 From: Rutherther Date: Sun, 1 Sep 2024 17:25:29 +0200 Subject: [PATCH] feat: add blueman to profile --- home/modules/ruther/home/services/wayland.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/home/modules/ruther/home/services/wayland.scm b/home/modules/ruther/home/services/wayland.scm index 4b0ff54..8fd3cdd 100644 --- a/home/modules/ruther/home/services/wayland.scm +++ b/home/modules/ruther/home/services/wayland.scm @@ -152,6 +152,9 @@ This should be called from a wayland compositor like this: `herd start wayland-d (define-configuration/no-serialization home-blueman-applet-configuration (blueman (file-like blueman) "Blueman package to use, with blueman-applet binary.") + (blueman-in-profile? (boolean #t) "Whether to add blueman to profile. +This is required for the applet to work properly, +ie. to get manager running when applet is clicked on.") (extra-arguments (list-of-strings '()) "Extra arguments to blueman-applet daemon command.")) (define (home-blueman-applet-shepherd-service config) @@ -167,6 +170,11 @@ This should be called from a wayland compositor like this: `herd start wayland-d '#$(home-blueman-applet-configuration-extra-arguments config)))) (stop #~(make-kill-destructor))))) +(define (home-blueman-applet-profile config) + (if (home-blueman-applet-configuration-blueman-in-profile? config) + (list blueman) + '())) + (define-public home-blueman-applet-service-type (service-type (name 'home-blueman-applet) @@ -175,6 +183,8 @@ This should be called from a wayland compositor like this: `herd start wayland-d (extensions (list (service-extension home-shepherd-service-type home-blueman-applet-shepherd-service) + (service-extension home-profile-service-type + home-blueman-applet-profile) (service-extension home-wayland-display-service-type (const #f)))))) -- 2.48.1