* [bug#49366] [PATCH] services: bluetooth: Add 'extra-config' field.
@ 2021-07-03 20:50 Brice Waegeneire
2021-07-07 14:35 ` Mathieu Othacehe
0 siblings, 1 reply; 2+ messages in thread
From: Brice Waegeneire @ 2021-07-03 20:50 UTC (permalink / raw)
To: 49366
* 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(-)
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
^ permalink raw reply related [flat|nested] 2+ messages in thread
* [bug#49366] [PATCH] services: bluetooth: Add 'extra-config' field.
2021-07-03 20:50 [bug#49366] [PATCH] services: bluetooth: Add 'extra-config' field Brice Waegeneire
@ 2021-07-07 14:35 ` Mathieu Othacehe
0 siblings, 0 replies; 2+ messages in thread
From: Mathieu Othacehe @ 2021-07-07 14:35 UTC (permalink / raw)
To: Brice Waegeneire; +Cc: 49366
Hello Brice,
> * gnu/services/desktop.scm (bluetooth-configuration): Add 'extra-config'
> field.
> (bluetooth-configuration-file): Use it.
I guess you have a specific use case in mind, adding a short
documentation about the <bluetooth-configuration> and the new
extra-config field could be nice here.
Otherwise it seems fine to me.
Thanks,
Mathieu
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2021-07-07 14:36 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-07-03 20:50 [bug#49366] [PATCH] services: bluetooth: Add 'extra-config' field Brice Waegeneire
2021-07-07 14:35 ` Mathieu Othacehe
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).