summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-04-28 22:28:00 +0200
committerLudovic Courtès <ludo@gnu.org>2019-04-28 22:57:07 +0200
commit43c1c44a1194579cd9e0149e41886762d9efc9dc (patch)
tree2ceb5ee626c83cb65b6ca60c2a1fe7d9d7eb81ea
parented5a5d38cfd436c5893ccf1580012d3cbfbe0a70 (diff)
downloadpatches-43c1c44a1194579cd9e0149e41886762d9efc9dc.tar
patches-43c1c44a1194579cd9e0149e41886762d9efc9dc.tar.gz
installer: User can have a "real name".
* gnu/installer/user.scm (<user>)[real-name]: New field. (users->configuration)[use->sexp]: Turn it into a 'comment' field.
-rw-r--r--gnu/installer/user.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/gnu/installer/user.scm b/gnu/installer/user.scm
index 29fab6414e..4e701e64ce 100644
--- a/gnu/installer/user.scm
+++ b/gnu/installer/user.scm
@@ -23,6 +23,7 @@
user
make-user
user-name
+ user-real-name
user-group
user-home-directory
user-password
@@ -33,6 +34,8 @@
user make-user
user?
(name user-name)
+ (real-name user-real-name
+ (default ""))
(group user-group
(default "users"))
(password user-password)
@@ -43,6 +46,7 @@
(define (user->sexp user)
`(user-account
(name ,(user-name user))
+ (comment ,(user-real-name user))
(group ,(user-group user))
(home-directory ,(user-home-directory user))
(supplementary-groups '("wheel" "netdev"