From 43c1c44a1194579cd9e0149e41886762d9efc9dc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 28 Apr 2019 22:28:00 +0200
Subject: [PATCH] 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.
---
gnu/installer/user.scm | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/gnu/installer/user.scm b/gnu/installer/user.scm
index 29fab6414e1..4e701e64ce3 100644
--- a/gnu/installer/user.scm
+++ b/gnu/installer/user.scm
@@ -23,6 +23,7 @@ (define-module (gnu installer user)
user
make-user
user-name
+ user-real-name
user-group
user-home-directory
user-password
@@ -33,6 +34,8 @@ (define-record-type* <user>
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 (users->configuration users)
(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"
--
GitLab