Skip to content
Snippets Groups Projects
Unverified Commit 43c1c44a authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

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.
parent ed5a5d38
No related branches found
No related tags found
No related merge requests found
...@@ -23,6 +23,7 @@ (define-module (gnu installer user) ...@@ -23,6 +23,7 @@ (define-module (gnu installer user)
user user
make-user make-user
user-name user-name
user-real-name
user-group user-group
user-home-directory user-home-directory
user-password user-password
...@@ -33,6 +34,8 @@ (define-record-type* <user> ...@@ -33,6 +34,8 @@ (define-record-type* <user>
user make-user user make-user
user? user?
(name user-name) (name user-name)
(real-name user-real-name
(default ""))
(group user-group (group user-group
(default "users")) (default "users"))
(password user-password) (password user-password)
...@@ -43,6 +46,7 @@ (define (users->configuration users) ...@@ -43,6 +46,7 @@ (define (users->configuration users)
(define (user->sexp user) (define (user->sexp user)
`(user-account `(user-account
(name ,(user-name user)) (name ,(user-name user))
(comment ,(user-real-name user))
(group ,(user-group user)) (group ,(user-group user))
(home-directory ,(user-home-directory user)) (home-directory ,(user-home-directory user))
(supplementary-groups '("wheel" "netdev" (supplementary-groups '("wheel" "netdev"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment