mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
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.
This commit is contained in:
parent
ed5a5d38cf
commit
43c1c44a11
1 changed files with 4 additions and 0 deletions
|
@ -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"
|
||||
|
|
Loading…
Reference in a new issue