[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] gnu: mc: Partially fix absolute file paths.
From: |
ng0 |
Subject: |
[PATCH] gnu: mc: Partially fix absolute file paths. |
Date: |
Mon, 26 Dec 2016 14:55:31 +0000 |
Partially fixes <http://bugs.gnu.org/25273>.
* gnu/packages/mc.scm (mc)[arguments]: Add new phase 'fix-absolutism.
This substitutes absolute file paths with functional file paths.
---
gnu/packages/mc.scm | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/mc.scm b/gnu/packages/mc.scm
index 43dab8ff4..ad954bdfd 100644
--- a/gnu/packages/mc.scm
+++ b/gnu/packages/mc.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Eric Bavier <address@hidden>
;;; Copyright © 2016 Efraim Flashner <address@hidden>
+;;; Copyright © 2016 ng0 <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -53,7 +54,17 @@
("check" ,check)))
(arguments
`(#:configure-flags
- '("--with-screen=ncurses" "--enable-aspell")))
+ '("--with-screen=ncurses" "--enable-aspell")
+ #:phases
+ (modify-phases %standard-phases
+ ;; We need to modify certain files which keep absolute paths
+ (add-after 'patch-source-shebangs 'fix-absolutism
+ (lambda _
+ (substitute* "misc/mcedit.menu.in"
+ (("#! /bin/sh") (string-append "#!" (which "sh")))
+ (("/bin/bash") (which "bash")))
+ (substitute* "misc/ext.d/misc.sh.in"
+ (("/bin/cat") "cat")))))))
(home-page "http://www.midnight-commander.org")
(synopsis "Graphical file manager")
(description
--
2.11.0