02/04: gnu: qmmp: Add missing inputs.

[guix-commits]

z572 pushed a commit to branch master
in repository guix.

commit 53623ce862fb9cb02b1a6028d37c2e240eb05093
Author: Timotej Lazar <timotej.lazar@araneo.si>
AuthorDate: Sat Apr 20 15:12:31 2024 +0200

    gnu: qmmp: Add missing inputs.
    
    * gnu/packages/music.scm (qmmp): Add inputs to support unpacking skins.
    [inputs]: Add tar and unzip.
    [arguments]: Add phase to set absolute paths to these programs.
    
    Change-Id: I79a6530ad27b474ecc64e5b7de36e0370595bc69
    Signed-off-by: Zheng Junjie <zhengjunjie@iscas.ac.cn>
---
 gnu/packages/music.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 86b46bfdfe..df3ff38b4a 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -615,7 +615,15 @@ you create custom user interfaces for your MIDI hardware.")
     (build-system qt-build-system)
     (arguments
      (list #:qtbase qtbase
-           #:tests? #f)) ; there are no tests
+           #:tests? #f ; there are no tests
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'set-paths
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (substitute* "src/plugins/Ui/skinned/skinreader.cpp"
+                     (("\"(tar|unzip)\"" _ name)
+                      (let ((file (string-append "/bin/" name)))
+                        (string-append "\"" (search-input-file inputs file) 
"\"")))))))))
     (inputs
      ;; Missing optional inputs:
      ;; libsidplay2 ; input plugin
@@ -645,6 +653,8 @@ you create custom user interfaces for your MIDI hardware.")
            qttools
            soxr
            taglib
+           tar ; for loading skins
+           unzip ; for loading skins
            wavpack
            wildmidi))
     (native-inputs