01/02: services: enlightenment: Load ddcutil udev rules.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit ff092b94540e56c32db0487ee19ad3f788a295f0
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Thu Dec 29 09:15:42 2022 +0200

    services: enlightenment: Load ddcutil udev rules.
    
    * gnu/services/desktop.scm (enlightenment-desktop-service-type): Extend
    the enlightenment-desktop-service-type with the udev rules from the
    ddcutil input in the udev-service-type.
---
 gnu/services/desktop.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 9fd77642a1..fe1f0fd20a 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -5,7 +5,7 @@
 ;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
 ;;; Copyright © 2017, 2020, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;; Copyright © 2017 Nikita <nikita@n0.is>
-;;; Copyright © 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2018, 2020, 2022 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2017, 2019 Christopher Baines <mail@cbaines.net>
 ;;; Copyright © 2019 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
@@ -760,7 +760,7 @@ site} for more information."
                                                
(bluetooth-configuration-enable-adv-mon-interleave-scan
                                                 config))
                                           1 0))
-   
+
    "\n[GATT]"
    "\nCache = " (symbol->string (bluetooth-configuration-cache config))
    "\nKeySize = " (number->string (bluetooth-configuration-key-size config))
@@ -1541,6 +1541,11 @@ rules."
                                       (package-direct-input-selector
                                        "efl")
                                       enlightenment-package))
+          (service-extension udev-service-type
+                             (compose list
+                                      (package-direct-input-selector
+                                        "ddcutil")
+                                      enlightenment-package))
           (service-extension setuid-program-service-type
                              enlightenment-setuid-programs)
           (service-extension profile-service-type