diff options
Diffstat (limited to 'systems/aisaka.scm')
-rw-r--r-- | systems/aisaka.scm | 14 |
1 files changed, 11 insertions, 3 deletions
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)) |