On 21/11/2024 12:37, Ignas Lapėnas wrote:

> It might be a stupid question, but I'm still somewhat new on Guix...
> Do you use guix system? Or are you using guix on a foreign distro?
> Also if you're using guix system, can you send me your system
> configuration. I could try to reproduce the issue on my machine on the
> weekend and see
> if my bluetooth is discovered.

It's a Guix system.  I've appended config.scm below.

> Another question what bluetooth dongle are you using?

0a12:0001 Cambridge Silicon Radio, Ltd Bluetooth Dongle (HCI mode)

(it was working well until about 10 days ago)

Here's my config.scm:

;; This is an operating system configuration generated
;; by the graphical installer.
;;
;; Once installation is complete, you can learn and modify
;; this file to tweak the system configuration, and pass it
;; to the 'guix system reconfigure' command to effect your
;; changes.


;; Indicate which modules to import to access the variables
;; used in this configuration.
(use-modules (gnu))
(use-service-modules cups desktop networking ssh xorg)

(operating-system
   (locale "en_GB.utf8")
   (timezone "Europe/London")
   (keyboard-layout (keyboard-layout "gb" "extd"))
   (host-name "verderer")

   ;; Custom groups
   (groups (cons* (user-group (name "docker"))
		 (user-group (name "dan"))
		 (user-group (name "girton"))
		 (user-group (name "pcs"))
		 (user-group (name "mirp"))
		 (user-group (name "cpom"))
		 (user-group (name "bpi"))
		 (user-group (name "itg"))
		 (user-group (name "mmm"))
		 (user-group (name "midas"))
		 %base-groups))

   ;; The list of user accounts ('root' is implicit).
   (users (cons* (user-account
                   (name "dan")
                   (comment "Daniel Christopher Hatton")
                   (group "dan")
                   (home-directory "/home/dan")
                   (supplementary-groups '("users" "wheel" "netdev" 
"audio" "video" "docker" "girton" "pcs" "mirp" "cpom" "bpi" "itg" "mmm" 
"midas")))
                 %base-user-accounts))

   ;; Packages installed system-wide.  Users can also install packages
   ;; under their own account: use 'guix search KEYWORD' to search
   ;; for packages and 'guix install PACKAGE' to install a package.
   (packages (append (list (specification->package "perl"))
                     %base-packages))

   ;; Below is the list of system services.  To search for available
   ;; services, run 'guix system search KEYWORD' in a terminal.
   (services
    (append (list (service gnome-desktop-service-type)

                  ;; To configure OpenSSH, pass an 'openssh-configuration'
                  ;; record as a second argument to 'service' below.
		 (bluetooth-service #:auto-enable? #t)
                  (service openssh-service-type)
                  (service cups-service-type)
		 (service pulseaudio-service-type)
                  (set-xorg-configuration
                   (xorg-configuration (keyboard-layout keyboard-layout))))

            ;; This is the default list of services we
            ;; are appending to.
            %desktop-services))
   (bootloader (bootloader-configuration
                 (bootloader grub-bootloader)
                 (targets (list "/dev/sda"))
                 (keyboard-layout keyboard-layout)))
   (mapped-devices (list (mapped-device
                           (source (uuid
                                    "55c736e6-1434-4f41-8821-0015bc2f2295"))
                           (target "cryptroot")
                           (type luks-device-mapping))))

   ;; The list of file systems that get "mounted".  The unique
   ;; file system identifiers there ("UUIDs") can be obtained
   ;; by running 'blkid' in a terminal.
   (file-systems (cons* (file-system
                          (mount-point "/boot/efi")
                          (device (uuid "8A5B-8552"
                                        'fat32))
                          (type "vfat"))
                        (file-system
                          (mount-point "/")
                          (device "/dev/mapper/cryptroot")
                          (type "ext4")
                          (dependencies mapped-devices)) 
%base-file-systems)))