futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: imv: Record the absolute file name of 'imv-x11' and 'imv-wayland'.

Browse Source 
* gnu/packages/image-viewers.scm (imv)[arguments]: Add
'record-absolute-file-names' phase.
This commit is contained in:
Ludovic Courtès 2020-01-17 14:21:33 +01:00
parent cd819b45e9
commit 51c8777095
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/image-viewers.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
;;; Copyright © 2015, 2016 Alex Kost <alezost@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
@ -548,7 +548,17 @@ displayed in a terminal.")
(arguments
'(#:phases
(modify-phases %standard-phases
(delete 'configure))
(delete 'configure)
(add-after 'install 'record-absolute-file-names
(lambda* (#:key outputs #:allow-other-keys)
;; 'imv' is a script that execs 'imv-x11' or 'imv-wayland'.
;; Record their absolute file name.
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(substitute* (string-append bin "/imv")
(("imv-")
(string-append bin "/imv-")))
#t))))
#:make-flags
(list "CC=gcc"
(string-append "PREFIX=" (assoc-ref %outputs "out"))