config/guix/system: Name operating systems.

.config/guix/system/default.scm

@@ -90,14 +90,14 @@ StrictNodes 1")
          ;; exfat-utils        ; TODO: Needed for macOS drives?  Does not seem to work.
          fuse-exfat
          emacs-exwm
-         vhba-module
+         vhba-module        ; For CDEmu.
          %base-packages))
 
 (define-public %ambrevar/firmware
   (append ;; (list vhba-module) ; TODO: Useless?
    %base-firmware))
 
-(define-public default-operating-system
+(define-public %ambrevar/default-os
   (operating-system
     (host-name "ambrevar-system")
     (timezone "Europe/Paris")

.config/guix/system/desktop-bababa-emtec.scm

@@ -0,0 +1,15 @@
+;; With Eshell:
+;; *sudo -E guix system -L ~/.config/guix/system reconfigure ~/.config/guix/system/desktop-bababa-emtec.scm
+(define-module (desktop-bababa)
+  #:use-module (default)
+  #:use-module (gnu)
+  #:use-module (gnu system)
+  #:use-module (gnu services))
+
+(operating-system
+  (inherit %bababa/os)
+  (services (cons*
+             ;; TODO: Might need 9.6 for Iroha.
+             (postgresql-service)
+             (service docker-service-type)
+             (operating-system-services %bababa/os))))

.config/guix/system/desktop-bababa.scm

@@ -9,8 +9,6 @@
 
 (use-service-modules
  nix
- docker                                 ; REVIEW: Needs 'modprobe overlay'?
- databases                              ; PostgreSQL
  ;; libvirt:
  virtualization)
 
@@ -26,8 +24,9 @@
    (service nix-service-type)
    %ambrevar/services))
 
-(operating-system
-  (inherit default-operating-system)
+(define-public %bababa/os
+  (operating-system
+    (inherit %ambrevar/default-os)
     (host-name "bababa")
 
     (bootloader (bootloader-configuration
@@ -63,7 +62,6 @@
                (service libvirt-service-type
                         (libvirt-configuration
                          (unix-sock-group "kvm")))
-             ;; TODO: Might need 9.6 for Iroha.
-             (postgresql-service)
-             (service docker-service-type)
-             %bababa/services)))
+               %bababa/services))))
+
+%bababa/os

.config/guix/system/laptop-mimimi.scm

@@ -123,7 +123,7 @@ EndSection")
                           (extra-config (list %mimimi/xorg-touchpad)))))))))
 
 (operating-system
-  (inherit default-operating-system)
+  (inherit %ambrevar/default-os)
   (host-name "mimimi")
 
   (kernel linux)