* gnu/services/desktop.scm (%modified-base-services): New variable.
(%desktop-services): Use it.
---
gnu/services/desktop.scm | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 7555780ad..72f35950b 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -3,6 +3,7 @@
;;; Copyright © 2015 Andy Wingo <wi...@igalia.com>
;;; Copyright © 2015 Mark H Weaver <m...@netris.org>
;;; Copyright © 2016 Sou Bunnbu <iyzs...@gmail.com>
+;;; Copyright © 2016 Chris Marusich <cmmarus...@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -40,6 +41,7 @@
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages suckless)
#:use-module (gnu packages linux)
+ #:use-module (gnu packages libusb)
#:use-module (guix records)
#:use-module (guix packages)
#:use-module (guix store)
@@ -745,6 +747,16 @@ with the administrator's password."
;;; The default set of desktop services.
;;;
+(define %modified-base-services
+ (modify-services %base-services
+ ;; Add the rules from libmtp.
+ (udev-service-type config =>
+ (udev-configuration
+ (inherit config)
+ (rules
+ (cons* libmtp
+ (udev-configuration-rules config)))))))
+
(define %desktop-services
;; List of services typically useful for a "desktop" use case.
(cons* (slim-service)
@@ -766,6 +778,6 @@ with the administrator's password."
(ntp-service)
- %base-services))
+ %modified-base-services))
;;; desktop.scm ends here
--
2.11.0
