[PATCH 2/2] services: desktop: Use libmtp udev rules.

[Chris Marusich]

* 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 <address@hidden>
 ;;; Copyright © 2015 Mark H Weaver <address@hidden>
 ;;; Copyright © 2016 Sou Bunnbu <address@hidden>
+;;; Copyright © 2016 Chris Marusich <address@hidden>
 ;;;
 ;;; 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