aboutsummaryrefslogtreecommitdiff
path: root/gnu/system
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-08-28 12:53:20 +0200
committerLudovic Courtès <ludo@gnu.org>2016-08-28 15:11:18 +0200
commiteb56ee027b4c6b5682f69fa885d16e55c4495bd8 (patch)
tree0a0a348da697de4e59baa2adb50af6eadc44742f /gnu/system
parent3eb2fca61274eb2ede550146c03c1ee86aa2a4c0 (diff)
downloadguix-eb56ee027b4c6b5682f69fa885d16e55c4495bd8.tar
guix-eb56ee027b4c6b5682f69fa885d16e55c4495bd8.tar.gz
system: Add 'create-home-directory?' field to <user-account>.
* gnu/system/shadow.scm (<user-account>)[create-home-directory?]: New field. (user-account->gexp): Serialize it. * gnu/build/activation.scm (activate-users+groups)[activate-user]: Update 'match-lambda' pattern accordingly. Pass #:create-home? to 'ensure-user'. (add-user, modify-user, ensure-user): Add #:create-home? parameter and honor it. * doc/guix.texi (User Accounts): Document it.
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/shadow.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm
index c3948900eb..6a4063529c 100644
--- a/gnu/system/shadow.scm
+++ b/gnu/system/shadow.scm
@@ -78,6 +78,8 @@
(default '())) ; list of strings
(comment user-account-comment (default ""))
(home-directory user-account-home-directory)
+ (create-home-directory? user-account-create-home-directory? ;Boolean
+ (default #t))
(shell user-account-shell ; gexp
(default #~(string-append #$bash "/bin/bash")))
(system? user-account-system? ; Boolean
@@ -255,6 +257,7 @@ of user '~a' is undeclared")
#$(user-account-supplementary-groups account)
#$(user-account-comment account)
#$(user-account-home-directory account)
+ #$(user-account-create-home-directory? account)
,#$(user-account-shell account) ; this one is a gexp
#$(user-account-password account)
#$(user-account-system? account)))