@@ 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))))))