diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-28 22:28:00 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-28 22:57:07 +0200 |
| commit | 43c1c44a1194579cd9e0149e41886762d9efc9dc (patch) | |
| tree | 2ceb5ee626c83cb65b6ca60c2a1fe7d9d7eb81ea | |
| parent | ed5a5d38cfd436c5893ccf1580012d3cbfbe0a70 (diff) | |
| download | guix-43c1c44a1194579cd9e0149e41886762d9efc9dc.tar guix-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.scm | 4 |
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" |