mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-26 19:11:46 +02:00
gnu: Define '%base-services'.
* gnu/services/base.scm (%base-services): New variable. * gnu/system.scm (<operating-system>)[services]: Change the default value to %BASE-SERVICES. * doc/guix.texi (Using the Configuration System): Change '%standard-services' to '%base-services'.
This commit is contained in:
+16
-1
@@ -32,7 +32,8 @@
|
||||
mingetty-service
|
||||
nscd-service
|
||||
syslog-service
|
||||
guix-service))
|
||||
guix-service
|
||||
%base-services))
|
||||
|
||||
;;; Commentary:
|
||||
;;;
|
||||
@@ -173,4 +174,18 @@ BUILD-ACCOUNTS user accounts available under BUILD-USER-GID."
|
||||
(members (map user-account-name
|
||||
user-accounts)))))))))
|
||||
|
||||
(define %base-services
|
||||
;; Convenience variable holding the basic services.
|
||||
(let ((motd (text-file "motd" "
|
||||
This is the GNU operating system, welcome!\n\n")))
|
||||
(list (mingetty-service "tty1" #:motd motd)
|
||||
(mingetty-service "tty2" #:motd motd)
|
||||
(mingetty-service "tty3" #:motd motd)
|
||||
(mingetty-service "tty4" #:motd motd)
|
||||
(mingetty-service "tty5" #:motd motd)
|
||||
(mingetty-service "tty6" #:motd motd)
|
||||
(syslog-service)
|
||||
(guix-service)
|
||||
(nscd-service))))
|
||||
|
||||
;;; base.scm ends here
|
||||
|
||||
Reference in New Issue
Block a user