From e9a5eebc785cb843034b38c5c5a6dd10904bdf2a Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 14 Jan 2023 10:53:16 -0500 Subject: gnu: system: Add home-directory-permissions field to . * gnu/system/accounts.scm ()[home-directory-permissions]: New field. (user-account-home-directory-permissions): New accessor. * gnu/build/activation.scm (activate-users+groups): Use home directory permission bits from the user account object. * doc/guix.texi (User Accounts): Document new field. Signed-off-by: Josselin Poiret --- gnu/system/accounts.scm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'gnu/system/accounts.scm') diff --git a/gnu/system/accounts.scm b/gnu/system/accounts.scm index e37b733c6d..15b2afe266 100644 --- a/gnu/system/accounts.scm +++ b/gnu/system/accounts.scm @@ -29,6 +29,7 @@ user-account-supplementary-groups user-account-comment user-account-home-directory + user-account-home-directory-permissions user-account-create-home-directory? user-account-shell user-account-system? @@ -70,6 +71,8 @@ (comment user-account-comment (default "")) (home-directory user-account-home-directory (thunked) (default (default-home-directory this-record))) + (home-directory-permissions user-account-home-directory-permissions + (default #o700)) (create-home-directory? user-account-create-home-directory? ;Boolean (default #t)) (shell user-account-shell ; gexp -- cgit 1.4.1