aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorng0 <ng0@libertad.pw>2016-12-26 14:55:31 +0000
committerLudovic Courtès <ludo@gnu.org>2016-12-31 01:44:04 +0100
commitda62a4a19ea398e950aefcdd64ae25a475505e8f (patch)
tree3a7d8788a4de383f16a3e1864c236c55eee07f64
parent0f391063d9a96fb99d11c2ddbddd040527746bc4 (diff)
downloadguix-da62a4a19ea398e950aefcdd64ae25a475505e8f.tar
guix-da62a4a19ea398e950aefcdd64ae25a475505e8f.tar.gz
gnu: mc: Partially fix absolute file paths.
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. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
-rw-r--r--gnu/packages/mc.scm14
1 files changed, 13 insertions, 1 deletions
diff --git a/gnu/packages/mc.scm b/gnu/packages/mc.scm
index 43dab8ff41..3cdc542157 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 <bavier@member.fsf.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2016 ng0 <ng0@libertad.pw>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -53,7 +54,18 @@
("check" ,check)))
(arguments
`(#:configure-flags
- '("--with-screen=ncurses" "--enable-aspell")))
+ '("--with-screen=ncurses" "--enable-aspell")
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'patch-source-shebangs 'fix-absolutism
+ (lambda _
+ ;; Modify files that contain absolute file names.
+ (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"))
+ #t)))))
(home-page "http://www.midnight-commander.org")
(synopsis "Graphical file manager")
(description