mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-21 08:35:58 +02:00
gnu: system: Add home-directory-permissions field to <user-account>.
* gnu/system/accounts.scm (<user-account>)[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 <dev@jpoiret.xyz>
This commit is contained in:
committed by
Josselin Poiret
parent
6c447ababf
commit
e9a5eebc78
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user