From de3de823fcf95285ea96d3bd7415e3ca393cb2bd Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Fri, 26 Jul 2024 16:25:25 +0200 Subject: feat!(system): implement default supplementary groups --- systems/mcdowell.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'systems') 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* -- cgit v1.2.3