gnu: enlightenment: Patch dlopen of ddcutil.

* gnu/packages/enlightenment.scm (enlightenment)[inputs]: Add ddcutil.
[arguments]: Adjust custom 'set-system-actions phase to patch dlopen of
libddcutil.
This commit is contained in:
Efraim Flashner 2022-02-08 12:14:11 +02:00
parent 8b8fdeafc2
commit 71438cd422
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -48,6 +48,7 @@ (define-module (gnu packages enlightenment)
#:use-module (gnu packages gnome) #:use-module (gnu packages gnome)
#:use-module (gnu packages gstreamer) #:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages hardware)
#:use-module (gnu packages ibus) #:use-module (gnu packages ibus)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages libunwind) #:use-module (gnu packages libunwind)
@ -313,6 +314,7 @@ (define-public enlightenment
(setxkbmap (assoc-ref inputs "setxkbmap")) (setxkbmap (assoc-ref inputs "setxkbmap"))
(libc (assoc-ref inputs "libc")) (libc (assoc-ref inputs "libc"))
(bc (assoc-ref inputs "bc")) (bc (assoc-ref inputs "bc"))
(ddcutil (assoc-ref inputs "ddcutil"))
(efl (assoc-ref inputs "efl"))) (efl (assoc-ref inputs "efl")))
;; We need to patch the path to 'base.lst' to be able ;; We need to patch the path to 'base.lst' to be able
;; to switch the keyboard layout in E. ;; to switch the keyboard layout in E.
@ -338,6 +340,9 @@ (define-public enlightenment
"/run/current-system/profile/sbin"))) "/run/current-system/profile/sbin")))
(substitute* "src/modules/everything/evry_plug_calc.c" (substitute* "src/modules/everything/evry_plug_calc.c"
(("bc -l") (string-append bc "/bin/bc -l"))) (("bc -l") (string-append bc "/bin/bc -l")))
(substitute* "src/bin/system/e_system_ddc.c"
(("libddcutil\\.so\\.?" libddcutil)
(string-append ddcutil "/lib/" libddcutil)))
(substitute* "data/etc/meson.build" (substitute* "data/etc/meson.build"
(("/bin/mount") "/run/setuid-programs/mount") (("/bin/mount") "/run/setuid-programs/mount")
(("/bin/umount") "/run/setuid-programs/umount") (("/bin/umount") "/run/setuid-programs/umount")
@ -352,6 +357,7 @@ (define-public enlightenment
("bc" ,bc) ("bc" ,bc)
("bluez" ,bluez) ("bluez" ,bluez)
("dbus" ,dbus) ("dbus" ,dbus)
("ddcutil" ,ddcutil)
("freetype" ,freetype) ("freetype" ,freetype)
("libdrm" ,libdrm) ("libdrm" ,libdrm)
("libexif" ,libexif) ("libexif" ,libexif)