nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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>
This commit is contained in:
ng0 2016-12-26 14:55:31 +00:00 committed by Ludovic Courtès
parent 0f391063d9
commit da62a4a19e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/mc.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 ng0 <ng0@libertad.pw>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -53,7 +54,18 @@
("check" ,check))) ("check" ,check)))
(arguments (arguments
`(#:configure-flags `(#: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") (home-page "http://www.midnight-commander.org")
(synopsis "Graphical file manager") (synopsis "Graphical file manager")
(description (description