08/08: gnu: frescobaldi: Make it display icons with qtsvg-5.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit 00bf07ecccee86da4ced281bd28948c96db284e6
Author: Marco Rimoldi <rimarko@libero.it>
AuthorDate: Wed Feb 21 20:30:35 2024 +0100

    gnu: frescobaldi: Make it display icons with qtsvg-5.
    
    * gnu/packages/music.scm (frescobaldi)
    [origin]<uri>: Updated to avoid automatic redirect.
    [arguments]<phases>: Add 'wrap-executable to export QT_PLUGIN_PATH.
    [inputs]: Add qtsvg-5, bash-minimal.
    
    Change-Id: I55b3c56d41bd60e4ba4c938109ff41631e211ad2
    Signed-off-by: Christopher Baines <mail@cbaines.net>
---
 gnu/packages/music.scm | 47 +++++++++++++++++++++++++++--------------------
 1 file changed, 27 insertions(+), 20 deletions(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 7f0467e766..5d8edd9c49 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -3105,32 +3105,39 @@ using a system-independent interface.")
      (origin
        (method url-fetch)
        (uri (string-append
-             "https://github.com/wbsoft/frescobaldi/releases/download/v";
+             "https://github.com/frescobaldi/frescobaldi/releases/download/v";
              version "/frescobaldi-" version ".tar.gz"))
        (sha256
         (base32 "1n60gfnf6x0l1bac088g9adzx0lskbl9knd4y1ynr3y0zcs0kfcz"))))
     (build-system python-build-system)
     (arguments
      (list
-      #:tests? #f                       ;no tests included
-      #:phases
-      #~(modify-phases %standard-phases
-          (add-before 'build 'generate-translations
-            (lambda _
-              (invoke "make" "-C" "i18n")))
-          (add-before 'build 'generate-metadata
-            (lambda _
-              (invoke "make" "-C" "linux"))))))
-    (inputs
-     (list lilypond
-           poppler
-           portmidi-2
-           python-ly
-           python-poppler-qt5
-           python-pyportmidi
-           python-pyqt
-           python-sip
-           qpageview))
+      #:tests? #f ;no tests included
+      #:phases #~(modify-phases %standard-phases
+                   (add-before 'build 'generate-translations
+                     (lambda _
+                       (invoke "make" "-C" "i18n")))
+                   (add-before 'build 'generate-metadata
+                     (lambda _
+                       (invoke "make" "-C" "linux")))
+                   (add-after 'install 'wrap-executable
+                     (lambda _
+                       ;; Ensure that icons are found at runtime.
+                       (wrap-program (string-append #$output
+                                                    "/bin/frescobaldi")
+                         `("QT_PLUGIN_PATH" prefix
+                           ,(list (getenv "QT_PLUGIN_PATH")))))))))
+    (inputs (list bash-minimal
+                  lilypond
+                  poppler
+                  portmidi-2
+                  python-ly
+                  python-poppler-qt5
+                  python-pyportmidi
+                  python-pyqt
+                  python-sip
+                  qpageview
+                  qtsvg-5))
     (home-page "https://www.frescobaldi.org/";)
     (synopsis "LilyPond sheet music text editor")
     (description