config/guix/system/desktop-bababa: Add nix, docker and libvirt services.

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

@@ -7,7 +7,18 @@
   #:use-module (gnu bootloader)
   #:use-module (gnu bootloader grub)
   #:use-module (gnu packages linux)
-  #:use-module (gnu system file-systems))
+  #:use-module (gnu packages package-management) ; For `nix'.
+  #:use-module (gnu services)
+  #:use-module (gnu services nix)
+  #:use-module (gnu services docker)    ; REVIEW: Needs 'modprobe overlay'?
+  #:use-module (gnu system file-systems)
+  ;; For libvirt
+  #:use-module (gnu services virtualization))
+
+(define %bababa/services
+  (cons*
+   (service nix-service-type)
+   %ambrevar/services))
 
 (operating-system
   (inherit default-operating-system)
@@ -35,4 +46,25 @@
                          (device "none")
                          (type "tmpfs")
                          (check? #f))
-                       %base-file-systems)))
+                       %base-file-systems))
+
+  (users (cons* (user-account
+                 (name "ambrevar")
+                 (group "users")
+                 (supplementary-groups '("wheel" "netdev" ; netdev is needed for networking.
+                                         "kvm"            ; TODO: Needed for QEMU / Libvirt?
+                                         "lp"
+                                         "video"))
+                 ;; TODO: Can we default to name?
+                 (home-directory "/home/ambrevar"))
+                %base-user-accounts))
+
+  (packages (cons* nix
+                   (operating-system-packages default-operating-system)))
+
+  (services (cons*
+             (service libvirt-service-type
+                      (libvirt-configuration
+                       (unix-sock-group "kvm")))
+             (service docker-service-type)
+             %bababa/services)))