[system] Enable bluetooth.

This commit install bluez as the bluetooth daemon.

diff --git a/conf/system/bluetooth.scm b/conf/system/bluetooth.scm
new file mode 100644 (file)
index 0000000..1a637ab
--- /dev/null
+++ b/conf/system/bluetooth.scm
@@ -0,0 +1,27 @@
+;; Copyright (c) 2022 Jakub Czajka <jakub@ehkem.eu.org>
+;; License: GPL-3.0 or later.
+;;
+;; bluetooth.scm - service for the bluetooth daemon.
+
+(define-module (conf system bluetooth)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu services)
+  #:use-module (gnu services desktop)
+  #:export (bluez-service
+           bluez-service-type))
+
+(define (install-bluez config)
+  (list bluez))
+
+(define bluez-service-type
+  (service-type
+   (inherit bluetooth-service-type)
+   (name 'bluez)
+   (extensions
+    (append
+     (list (service-extension profile-service-type
+                             install-bluez))
+     (service-type-extensions bluetooth-service-type)))))
+
+(define bluez-service
+  (service bluez-service-type))

diff --git a/system.scm b/system.scm
index 4766d54681c01c4ca4ae3f44730b20b6814e0df3..e732449b5f2d7a2d7edd468357e0224bbe09293b 100644 (file)
--- a/system.scm
+++ b/system.scm
@@ -3,7 +3,8 @@
 ;;
 ;; system.scm - system configuration for GNU Guix.
 
-(use-modules (conf system dns)
+(use-modules (conf system bluetooth)
+             (conf system dns)
              (conf system volume)
              (gnu)
              (gnu system nss))
@@ -62,6 +63,7 @@
   (append
    (list gnu-make
         nss-certs
+        bluez
         volume)
    %base-packages))
  (timezone "Europe/Warsaw")
@@ -70,5 +72,6 @@
  (services
   (append
    (list (service gnome-desktop-service-type)
+        bluez-service
         dnscrypt-proxy-service)
    %desktop-services)))