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
@ -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"
|
||||
|
Loading…
Reference in New Issue
Block a user