aboutsummaryrefslogtreecommitdiff
path: root/gnu/services/desktop.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-05-08 15:58:59 +0200
committerLudovic Courtès <ludo@gnu.org>2015-05-08 16:35:32 +0200
commit4467be213a93bab8f38ad5e4214dc947b8ca0bd1 (patch)
treec6d7c59e21226d8ef7b80811ee74708847714033 /gnu/services/desktop.scm
parenta0dac7a01f766e75dc73200a889f31c3920a2d98 (diff)
downloadguix-4467be213a93bab8f38ad5e4214dc947b8ca0bd1.tar
guix-4467be213a93bab8f38ad5e4214dc947b8ca0bd1.tar.gz
services: Add '%desktop-services'.
* gnu/services/desktop.scm (%desktop-services): New variable. * doc/guix.texi (Desktop Services): Document it.
Diffstat (limited to 'gnu/services/desktop.scm')
-rw-r--r--gnu/services/desktop.scm32
1 files changed, 31 insertions, 1 deletions
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 5945f7af18..910dc1f9e0 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -19,17 +19,25 @@
(define-module (gnu services desktop)
#:use-module (gnu services)
+ #:use-module (gnu services base)
+ #:use-module (gnu services avahi)
+ #:use-module (gnu services xorg)
+ #:use-module (gnu services networking)
+ #:use-module (gnu services ssh)
#:use-module (gnu system shadow)
#:use-module (gnu packages glib)
#:use-module (gnu packages admin)
#:use-module (gnu packages gnome)
+ #:use-module (gnu packages avahi)
+ #:use-module (gnu packages wicd)
#:use-module (guix monads)
#:use-module (guix store)
#:use-module (guix gexp)
#:use-module (ice-9 match)
#:export (dbus-service
upower-service
- colord-service))
+ colord-service
+ %desktop-services))
;;; Commentary:
;;;
@@ -267,4 +275,26 @@ site} for more information."
(shell
#~(string-append #$shadow "/sbin/nologin")))))))))
+(define %desktop-services
+ ;; List of services typically useful for a "desktop" use case.
+ (cons* (slim-service)
+
+ (avahi-service)
+ (wicd-service)
+ (upower-service)
+ (colord-service)
+ (dbus-service (list avahi wicd upower colord))
+
+ (ntp-service)
+ (lsh-service)
+
+ (map (lambda (mservice)
+ ;; Provide an nscd ready to use nss-mdns.
+ (mlet %store-monad ((service mservice))
+ (if (memq 'nscd (service-provision service))
+ (nscd-service (nscd-configuration)
+ #:name-services (list nss-mdns))
+ mservice)))
+ %base-services)))
+
;;; desktop.scm ends here