[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: enlightenment: Patch more hardcoded paths.
From: |
Efraim Flashner |
Subject: |
01/01: gnu: enlightenment: Patch more hardcoded paths. |
Date: |
Mon, 19 Jun 2017 02:51:34 -0400 (EDT) |
efraim pushed a commit to branch master
in repository guix.
commit 7e60206dff66339b540fb3a0e1e6d2b4eec4994f
Author: Efraim Flashner <address@hidden>
Date: Mon Jun 19 09:48:06 2017 +0300
gnu: enlightenment: Patch more hardcoded paths.
* gnu/packages/enlightenment.scm (enlightenment)[arguments]: Patch
hardcoded paths to mount, umount, eject, halt, reboot.
[native-inputs]: Add util-linux.
---
gnu/packages/enlightenment.scm | 17 +++++++++++++----
1 file changed, 13 insertions(+), 4 deletions(-)
diff --git a/gnu/packages/enlightenment.scm b/gnu/packages/enlightenment.scm
index a56dac4..50da8c8 100644
--- a/gnu/packages/enlightenment.scm
+++ b/gnu/packages/enlightenment.scm
@@ -230,19 +230,28 @@ Libraries with some extra bells and whistles.")
`(#:configure-flags '("--enable-mount-eeze")
#:phases
(modify-phases %standard-phases
- (add-before 'configure 'fix-keyboard
- (lambda _
- (let ((xkeyboard (assoc-ref %build-inputs "xkeyboard-config")))
+ (add-before 'configure 'set-system-actions
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((xkeyboard (assoc-ref inputs "xkeyboard-config"))
+ (utils (assoc-ref inputs "util-linux")))
;; We need to patch the path to 'base.lst' to be able
;; to switch the keyboard layout in E.
(substitute* "src/modules/xkbswitch/e_mod_parse.c"
(("/usr/share/X11/xkb/rules/xorg.lst")
(string-append xkeyboard
"/share/X11/xkb/rules/base.lst")))
+ (substitute* "configure"
+ (("/bin/mount") (string-append utils "/bin/mount"))
+ (("/bin/umount") (string-append utils "/bin/umount"))
+ (("/usr/bin/eject") (string-append utils "/bin/eject"))
+ ; TODO: Replace suspend and hibernate also.
+ (("/sbin/shutdown -h now")
"/run/current-system/profile/sbin/halt")
+ (("/sbin/shutdown -r now")
"/run/current-system/profile/sbin/reboot"))
#t))))))
(native-inputs
`(("gettext" ,gettext-minimal)
- ("pkg-config" ,pkg-config)))
+ ("pkg-config" ,pkg-config)
+ ("util-linux" ,util-linux)))
(inputs
`(("alsa-lib" ,alsa-lib)
("dbus" ,dbus)