Change dotfiles structure, and add guix-channels declaration.

1 files changed, 33 insertions, 22 deletions

diff --git a/guix/jd/desktops/base.scm b/guix/jd/desktops/base.scm
index c613c26..079d57e 100644
--- a/guix/jd/desktops/base.scm
+++ b/guix/jd/desktops/base.scm
@@ -18,7 +18,7 @@
   #:use-module (nongnu system linux-initrd))
 
 (use-package-modules wm gnome networking virtualization
-                     lisp lisp-xyz cups fonts gnupg)
+                     lisp lisp-xyz cups fonts gnupg android)
 
 (use-service-modules cups desktop networking ssh xorg
                      docker virtualization pm sound dbus
@@ -68,6 +68,7 @@
                            "audio"    ;; control audio devices
                            "video"    ;; access to webcam
                            "dialout"  ;; access to /dev/ttyUSBX devices
+                           "adbusers"
                            ))))
 
 (define-public %jd-base-user-accounts
@@ -147,7 +148,7 @@
                  (map (lambda (tty)
                         (cons tty (file-append
                                    font-terminus
-                                   "/share/consolefonts/ter-112n")))
+                                   "/share/consolefonts/ter-122n.psf.gz")))
                       '("tty1" "tty2" "tty3" "tty4" "tty5" "tty6")))
 
    (service screen-locker-service-type
@@ -167,6 +168,7 @@
             (bluetooth-configuration
              (auto-enable? #t)))
 
+   (service containerd-service-type)
    (service docker-service-type)
    (service libvirt-service-type
             (libvirt-configuration
@@ -188,29 +190,38 @@
    (service nix-service-type)
    
    polkit-network-manager-service
+
+   (udev-rules-service 'android android-udev-rules
+                       #:groups '("adbusers"))
+
+   (udev-rules-service 'microbit (udev-rule
+                                  "69-microbit.rules"
+                                  (string-append "ACTION!=\"add|change\", GOTO=\"microbit_rules_end\""
+                                                 "SUBSYSTEM==\"usb\", ATTR{idVendor}==\"0d28\", ATTR{idProduct}==\"0204\", TAG+=\"uaccess\""
+                                                 "LABEL=\"microbit_rules_end\"")))
    
    ;; %desktop-services
    (modify-services %desktop-services
-                    (guix-service-type config => (guix-configuration
-                                                  (inherit config)
-                                                  (substitute-urls
-                                                   (append (list "https://substitutes.nonguix.org")
-                                                           %default-substitute-urls))
-                                                  (authorized-keys
-                                                   (append (list (plain-file "non-guix.pub"
-                                                                             "(public-key (ecc (curve Ed25519) (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)))"))
-                                                           %default-authorized-guix-keys))))
-                    (delete network-manager-service-type)
-                    ;; (delete mingetty-service-type)
-                    (delete console-font-service-type)
-
-                    (delete pulseaudio-service-type)
-                    (delete alsa-service-type)
-                    (delete (if (string-prefix? "x86_64"
-                                                (or (%current-target-system)
-                                                    (%current-system)))
-                                gdm-service-type
-                                sddm-service-type)))))
+     (guix-service-type config => (guix-configuration
+                                   (inherit config)
+                                   (substitute-urls
+                                    (append (list "https://substitutes.nonguix.org")
+                                            %default-substitute-urls))
+                                   (authorized-keys
+                                    (append (list (plain-file "non-guix.pub"
+                                                              "(public-key (ecc (curve Ed25519) (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)))"))
+                                            %default-authorized-guix-keys))))
+     (delete network-manager-service-type)
+     ;; (delete mingetty-service-type)
+     (delete console-font-service-type)
+
+     (delete pulseaudio-service-type)
+     (delete alsa-service-type)
+     (delete (if (string-prefix? "x86_64"
+                                 (or (%current-target-system)
+                                     (%current-system)))
+                 gdm-service-type
+                 sddm-service-type)))))
 
 ;; Odin is a base for my operating systems
 (define-public odin-free