diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-08-27 23:08:19 +0200 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-08-28 09:37:23 +0200 |
| commit | 69920bf89d9a978f91cc1a3406df548671230130 (patch) | |
| tree | 53f494076bf5a35a4e61b64bccc7e43d31cc4c17 /systems | |
| parent | 40a3b0bca1ff868d8207117b4ae2e88cdd8be57f (diff) | |
refactor user-account
Diffstat (limited to 'systems')
| -rw-r--r-- | systems/aisaka.scm | 9 | ||||
| -rw-r--r-- | systems/akashi.scm | 7 | ||||
| -rw-r--r-- | systems/ayase.scm | 7 | ||||
| -rw-r--r-- | systems/mcdowell.scm | 6 |
4 files changed, 6 insertions, 23 deletions
diff --git a/systems/aisaka.scm b/systems/aisaka.scm index be3b4cf..b5db185 100644 --- a/systems/aisaka.scm +++ b/systems/aisaka.scm @@ -36,13 +36,8 @@ ;; (record user-account) (define users* - (let* ((system-groups (list "wheel")) - - (supplementary-groups hardware-groups) - (supplementary-groups* (append hardware-groups - system-groups))) - (list (uid1000-account supplementary-groups*) - (uid1001-account supplementary-groups)))) + (list uid1000-account + uid1001-account)) ;; record operating-system (define-public operating-system* diff --git a/systems/akashi.scm b/systems/akashi.scm index cacbe5a..57debb5 100644 --- a/systems/akashi.scm +++ b/systems/akashi.scm @@ -11,7 +11,6 @@ ;; bootloader-configuration* ;; file-systems* ;; firmware* - ;; hardware-groups ;; initrd* ;; kernel* ;; swap-devices* @@ -31,11 +30,7 @@ ;; (record* user-account) (define users* - (let* ((system-groups (list "wheel")) - - (supplementary-groups* (append hardware-groups - system-groups))) - (list (uid1000-account supplementary-groups*)))) + (list uid1000-account)) ;; record* operating-system (define-public operating-system* diff --git a/systems/ayase.scm b/systems/ayase.scm index acb822b..58b39f7 100644 --- a/systems/ayase.scm +++ b/systems/ayase.scm @@ -45,12 +45,9 @@ (define host-name* "ayase") -;; (record user-account) +;; (list record* user-account) (define users* - (let* ((system-groups (list "wheel")) - - (supplementary-groups* (append system-groups))) - (list (uid1000-account supplementary-groups*)))) + (list uid1000-account)) ;; record operating-system (define-public operating-system* diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm index a51d627..ecf4407 100644 --- a/systems/mcdowell.scm +++ b/systems/mcdowell.scm @@ -21,11 +21,7 @@ ;; (record user-account) (define users* - (let* ((system-groups (list "wheel")) - - (supplementary-groups* (append hardware-groups - system-groups))) - (list (uid1000-account supplementary-groups*)))) + (list uid1000-account)) ;; record operating-system (define-public operating-system* |