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/id1000.scm | |
parent | 40a3b0bca1ff868d8207117b4ae2e88cdd8be57f (diff) |
refactor user-account
Diffstat (limited to 'users/id1000.scm')
-rw-r--r-- | users/id1000.scm | 14 |
1 files changed, 10 insertions, 4 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"))) |