~ruther/guix-local

da62a4a19ea398e950aefcdd64ae25a475505e8f — nikita 9 years ago 0f39106
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>
1 files changed, 13 insertions(+), 1 deletions(-)

M gnu/packages/mc.scm
M gnu/packages/mc.scm => gnu/packages/mc.scm +13 -1
@@ 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