diff options
| author | ng0 <ng0@libertad.pw> | 2016-12-26 14:55:31 +0000 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-12-31 01:44:04 +0100 |
| commit | da62a4a19ea398e950aefcdd64ae25a475505e8f (patch) | |
| tree | 3a7d8788a4de383f16a3e1864c236c55eee07f64 | |
| parent | 0f391063d9a96fb99d11c2ddbddd040527746bc4 (diff) | |
| download | 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.scm | 14 |
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 |