add bluetooth service

- update bart default shell to zsh
- move channels to codeberg

.gitignore

@@ -0,0 +1,2 @@
+*.bak
+current

channels.scm

@@ -9,7 +9,7 @@
               "2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5"))))
       (channel
         (name 'guix)
-        (url "https://git.savannah.gnu.org/git/guix.git")
+        (url "https://codeberg.org/guix/guix.git")
         (branch "master")
         (introduction
           (make-channel-introduction

system.scm

@@ -11,6 +11,7 @@
 ;; used in this configuration.
 (use-modules (gnu) (nongnu packages linux))
 (use-service-modules cups desktop networking ssh xorg)
+(use-package-modules shells)
 
 (operating-system
   (kernel linux)
@@ -28,6 +29,7 @@
                   (comment "Bart")
                   (group "users")
                   (home-directory "/home/bartronx7")
+                  (shell #~(string-append #$zsh "/bin/zsh"))
                   (supplementary-groups '("wheel" "netdev" "audio" "video")))
                 (user-account
                   (name "kate")
@@ -46,7 +48,8 @@
                           (specification->package "st")
                           (specification->package "firefox")
                           (specification->package "libreoffice")
-                          (specification->package "git") %base-packages))
+                          (specification->package "git")
+                          (specification->package "zsh")) %base-packages))
 
   ;; Below is the list of system services.  To search for available
   ;; services, run 'guix system search KEYWORD' in a terminal.
@@ -55,6 +58,10 @@
 
                  ;; To configure OpenSSH, pass an 'openssh-configuration'
                  ;; record as a second argument to 'service' below.
+                 (service bluetooth-service-type 
+                   (bluetooth-configuration
+                     (fast-connectable? #t)
+                     (auto-enable? #t)))
                  (service openssh-service-type)
                  (service tor-service-type)
                  (service cups-service-type