diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-08-01 21:20:15 +0200 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-08-17 16:54:51 +0200 |
| commit | 9f355ffc1ebb67f2fd4d2962f712590be23290f5 (patch) | |
| tree | 97ad1b656946bbdf9fd4979ce58ec234234373a1 /systems | |
| parent | f891f201ac5487f2a90c0cd906d71cae9fe73c08 (diff) | |
config(aisaka): add a new user
Diffstat (limited to 'systems')
| -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)) |