config/guix/system/usb-install-media: Use nonfree linux, remove GDM.

.config/guix/system/usb-install-media.scm

@@ -1,12 +1,32 @@
 ;; With Eshell:
 ;; guix system -L ~/.config/guix/system disk-image ~/.config/guix/system/usb-install-media.scm
 
+;; TODO: Make Guix-like installer with nonfree kernel.
+
 (define-module (usb-install-media)
+  #:use-module (srfi srfi-1)
   #:use-module (default)
+  #:use-module (nongnu packages linux)
   #:use-module (gnu))
 
+(use-service-modules
+ desktop                                ; To remove bluetooth.
+ ;; To remove GDM:
+ xorg)
+
 (use-package-modules bootloaders)
 
+(define-public %usb/services
+  (cons*
+   (remove
+    (lambda (service)
+      (member (service-kind service)
+              (list bluetooth-service
+                    cups-pk-helper-service-type
+                    geoclue-service
+                    gdm-service-type)))
+    %ambrevar/services)))
+
 (operating-system
   (inherit %ambrevar/default-os)
   ;; For some reason USB media can only be booted with GRUB set to "bios" mode.
@@ -16,6 +36,7 @@
   (bootloader (bootloader-configuration
                (bootloader grub-bootloader)
                (target "/dev/sda")))
+  (kernel linux)
   (file-systems (cons* (file-system
                          (device (file-system-label "guix"))
                          (mount-point "/")
@@ -25,4 +46,5 @@
                          (mount-point "/tmp")
                          (type "tmpfs")
                          (check? #f))
-                       %base-file-systems)))
+                       %base-file-systems))
+  (services %usb/services))