summary refs log tree commit diff
path: root/gnu/installer
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 /gnu/installer
parented5a5d38cfd436c5893ccf1580012d3cbfbe0a70 (diff)
downloadguix-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.
Diffstat (limited to 'gnu/installer')
-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"