From 69920bf89d9a978f91cc1a3406df548671230130 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Tue, 27 Aug 2024 23:08:19 +0200 Subject: refactor user-account --- users/id1000.scm | 14 ++++++++++---- users/id1001.scm | 3 +-- 2 files changed, 11 insertions(+), 6 deletions(-) (limited to 'users') 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"))) -- cgit v1.2.3