feat!(system): implement default supplementary groups

1 files changed, 8 insertions, 1 deletions

diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm
index 323e2ec..be0408f 100644
--- a/systems/mcdowell.scm
+++ b/systems/mcdowell.scm
@@ -5,6 +5,7 @@
   #:use-module (machines portable-bios)	; bootloader-configuration*
 					; file-systems*
 					; firmware*
+					; hardware-groups
 					; initrd*
 					; kernel*
   #:use-module (suweren system)		; %suweren-operating-system
@@ -19,7 +20,13 @@
 
 ;; (record user-account)
 (define users*
-  (list marekpasnikowski-account))
+  (let* ((system-groups (list "wheel"))
+
+	 (supplementary-groups* (append hardware-groups
+					system-groups))
+
+	 (marekpasnikowski (marekpasnikowski-account supplementary-groups*)))
+    (list marekpasnikowski)))
 
 ;; record operating-system
 (define operating-system*