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

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 51c8777095ee8863943432cc71a63b6fa6c5b8c0
Author: Ludovic Courtès <address@hidden>
AuthorDate: Fri Jan 17 14:21:33 2020 +0100

    gnu: imv: Record the absolute file name of 'imv-x11' and 'imv-wayland'.
    
    * gnu/packages/image-viewers.scm (imv)[arguments]: Add
    'record-absolute-file-names' phase.
---
 gnu/packages/image-viewers.scm | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/image-viewers.scm b/gnu/packages/image-viewers.scm
index 9397322..935cecd 100644
--- a/gnu/packages/image-viewers.scm
+++ b/gnu/packages/image-viewers.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2017, 2018, 2019 Ludovic Courtès <address@hidden>
+;;; Copyright © 2013, 2017, 2018, 2019, 2020 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2014 Ian Denhardt <address@hidden>
 ;;; Copyright © 2015, 2016 Alex Kost <address@hidden>
 ;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <address@hidden>
@@ -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"))