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