config/guix/system/desktop-bababa-emtec: Add user to 'docker' group.

.config/guix/system/default.scm

@@ -136,6 +136,18 @@ StrictNodes 1")
 (define-public %ambrevar/firmware
   %base-firmware)
 
+(define-public %ambrevar/user
+  (user-account
+   (name "ambrevar")
+   (group "users")
+   (supplementary-groups '("wheel" "netdev" ; netdev is needed for networking.
+                           "kvm"            ; For QEMU (and maybe libvirt)
+                           ;; "plugdev"     ; TODO: Needed for nitrokey?
+                           "lp"         ; TODO: Needed for bluetooth?
+                           "video"))
+   ;; TODO: Can we default to name?
+   (home-directory "/home/ambrevar")))
+
 (define-public %ambrevar/default-os
   (operating-system
     (host-name "ambrevar-system")
@@ -160,16 +172,7 @@ StrictNodes 1")
                      (type "ext4"))
                    %base-file-systems))
 
-    (users (cons* (user-account
-                   (name "ambrevar")
-                   (group "users")
-                   (supplementary-groups '("wheel" "netdev" ; netdev is needed for networking.
-                                           "kvm"            ; For QEMU (and maybe libvirt)
-                                           ;; "plugdev"     ; TODO: Needed for nitrokey?
-                                           "lp"             ; TODO: Needed for bluetooth?
-                                           "video"))
-                   ;; TODO: Can we default to name?
-                   (home-directory "/home/ambrevar"))
+    (users (cons* %ambrevar/user
                   %base-user-accounts))
 
     (packages %ambrevar/packages)

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

@@ -1,6 +1,7 @@
 ;; With Eshell:
 ;; *sudo -E guix system -L ~/.config/guix/system reconfigure ~/.config/guix/system/desktop-bababa-emtec.scm
 (define-module (desktop-bababa-emtec)
+  #:use-module (default)
   #:use-module (desktop-bababa)
   #:use-module (gnu)
   #:use-module (gnu system)
@@ -33,4 +34,12 @@
              ;; TODO: Might need 9.6 for Iroha.
              (postgresql-service #:extension-packages (list postgis))
              (service docker-service-type)
-             %bababa/services)))
+             %bababa/services))
+  (users (cons* (user-account
+                 (name (user-account-name %ambrevar/user))
+                 (group (user-account-group %ambrevar/user))
+                 (supplementary-groups
+                  (cons* "docker"
+                         (user-account-supplementary-groups %ambrevar/user)))
+                 (home-directory (user-account-home-directory %ambrevar/user)))
+                  %base-user-accounts)))