(address . guix-patches@gnu.org)
* gnu/services/desktop.scm (bluetooth-configuration): Add 'extra-config'
field.
(bluetooth-configuration-file): Use it.
---
gnu/services/desktop.scm | 14 +++++++++-----
1 file changed, 9 insertions(+), 5 deletions(-)
Toggle diff (30 lines)
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index cd800fcc2b..7109d5d476 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -400,14 +400,18 @@ site} for more information."
bluetooth-configuration make-bluetooth-configuration
bluetooth-configuration?
(bluez bluetooth-configuration-bluez (default bluez))
- (auto-enable? bluetooth-configuration-auto-enable? (default #f)))
+ (auto-enable? bluetooth-configuration-auto-enable? (default #f))
+ (extra-config bluetooth-configuration-extra-config ;list of strings
+ (default '())))
(define (bluetooth-configuration-file config)
"Return a configuration file for the systemd bluetooth service, as a string."
- (string-append
- "[Policy]\n"
- "AutoEnable=" (bool (bluetooth-configuration-auto-enable?
- config))))
+ (string-concatenate
+ (cons*
+ "[Policy]\n"
+ "AutoEnable=" (bool (bluetooth-configuration-auto-enable?
+ config)) "\n"
+ (bluetooth-configuration-extra-config config))))
(define (bluetooth-directory config)
(computed-file "etc-bluetooth"
--
2.31.1