diff options
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"))) |