From 9f355ffc1ebb67f2fd4d2962f712590be23290f5 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Thu, 1 Aug 2024 21:20:15 +0200 Subject: config(aisaka): add a new user --- systems/aisaka.scm | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'systems') diff --git a/systems/aisaka.scm b/systems/aisaka.scm index 5b1efa8..be3b4cf 100644 --- a/systems/aisaka.scm +++ b/systems/aisaka.scm @@ -23,7 +23,12 @@ ;; uid1000-account ;; uid1000-home-environment ;; uid1000-name - #:use-module (users id1000)) + #:use-module (users id1000) + + ;; uid1001-account + ;; uid1001-home-environment + ;; uid1001-name + #:use-module (users id1001)) ;; string (define host-name* @@ -33,13 +38,16 @@ (define users* (let* ((system-groups (list "wheel")) + (supplementary-groups hardware-groups) (supplementary-groups* (append hardware-groups system-groups))) - (list (uid1000-account supplementary-groups*)))) + (list (uid1000-account supplementary-groups*) + (uid1001-account supplementary-groups)))) ;; record operating-system (define-public operating-system* - (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*)))) + (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*)) + (,uid1001-name ,(uid1001-home-environment host-name*)))) (guix-home (service guix-home-service-type home-environments)) -- cgit v1.2.3