Browse Source

system: Augment the default set of groups.

* gnu/system/shadow.scm (%base-groups): New variable.
* gnu/system.scm (<operating-system>)[groups]: Use it as the default.
wip-grafts
Ludovic Courtès 8 years ago
parent
commit
773e956d5d
  1. 4
      gnu/system.scm
  2. 23
      gnu/system/shadow.scm

4
gnu/system.scm

@ -92,9 +92,7 @@
(users operating-system-users ; list of user accounts
(default '()))
(groups operating-system-groups ; list of user groups
(default (list (user-group
(name "root")
(id 0)))))
(default %base-groups))
(skeletons operating-system-skeletons ; list of name/monadic value
(default (default-skeletons)))

23
gnu/system/shadow.scm

@ -42,7 +42,8 @@
user-group-id
default-skeletons
skeleton-directory))
skeleton-directory
%base-groups))
;;; Commentary:
;;;
@ -71,6 +72,26 @@
(password user-group-password (default #f))
(id user-group-id (default #f)))
(define %base-groups
;; Default set of groups.
(list (user-group (name "root") (id 0))
(user-group (name "wheel")) ; root-like users
(user-group (name "users")) ; normal users
(user-group (name "nogroup")) ; for daemons etc.
;; The following groups are conventionally used by things like udev to
;; control access to hardware devices.
(user-group (name "tty"))
(user-group (name "dialout"))
(user-group (name "kmem"))
(user-group (name "video"))
(user-group (name "audio"))
(user-group (name "lp"))
(user-group (name "disk"))
(user-group (name "floppy"))
(user-group (name "cdrom"))
(user-group (name "tape"))))
(define (default-skeletons)
"Return the default skeleton files for /etc/skel. These files are copied by
'useradd' in the home directory of newly created user accounts."

Loading…
Cancel
Save