From cb39a79c2f3791e33c20fb8ca8931cccf9171f85 Mon Sep 17 00:00:00 2001
From: Jakub Czajka <jakub@ekhem.eu.org>
Date: Sat, 24 Dec 2022 10:08:53 +0100
Subject: [PATCH] [system] Enable bluetooth.

This commit install bluez as the bluetooth daemon.
---
 conf/system/bluetooth.scm | 27 +++++++++++++++++++++++++++
 system.scm                |  5 ++++-
 2 files changed, 31 insertions(+), 1 deletion(-)
 create mode 100644 conf/system/bluetooth.scm

diff --git a/conf/system/bluetooth.scm b/conf/system/bluetooth.scm
new file mode 100644
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 4766d54..e732449 100644
--- 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)))
-- 
2.39.5