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 /users | |
| parent | 40a3b0bca1ff868d8207117b4ae2e88cdd8be57f (diff) | |
refactor user-account
Diffstat (limited to 'users')
| -rw-r--r-- | users/id1000.scm | 14 | ||||
| -rw-r--r-- | users/id1001.scm | 3 |
2 files changed, 11 insertions, 6 deletions
diff --git a/users/id1000.scm b/users/id1000.scm index ba414b5..d92b05e 100644 --- a/users/id1000.scm +++ b/users/id1000.scm @@ -31,16 +31,22 @@ ;; %suweren-home-services #:use-module (suweren home)) +;; (list string) +(define groups + (list ;; "audio" + ;; "netdev" + ;; "video" + "wheel")) + ;; string (define-public uid1000-name "marek") -;; (string) -> -;; record user-account -(define-public (uid1000-account supplementary-groups*) +;; record* user-account +(define-public uid1000-account (user-account (name uid1000-name) (group "users") - (supplementary-groups supplementary-groups*) + (supplementary-groups groups) (uid 1000) (comment "Marek Paśnikowski") (home-directory "/home/marek"))) diff --git a/users/id1001.scm b/users/id1001.scm index 2c065c4..26a76f6 100644 --- a/users/id1001.scm +++ b/users/id1001.scm @@ -21,10 +21,9 @@ ;; (string) -> ;; record user-account -(define-public (uid1001-account supplementary-groups*) +(define-public uid1001-account (user-account (name uid1001-name) (group "users") - (supplementary-groups supplementary-groups*) (uid 1001) (comment "Liliana Ruszuk") (home-directory "/home/lilia"))) |