aboutsummaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-02-19 21:08:28 +0100
committerLudovic Courtès <ludo@gnu.org>2014-02-19 21:08:28 +0100
commit8b198abecde8c846eaa464ac1b41cbc18556b5e8 (patch)
tree738bd9834c4ac6e7717ab793a0e62efdfc18d701 /gnu/services
parentdb4fdc04cc05495788ee54ae25baf8cd056917dc (diff)
downloadguix-8b198abecde8c846eaa464ac1b41cbc18556b5e8.tar
guix-8b198abecde8c846eaa464ac1b41cbc18556b5e8.tar.gz
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'.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/base.scm17
1 files changed, 16 insertions, 1 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 3d684a5bec..d6c1707c6a 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -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