From 00bf07ecccee86da4ced281bd28948c96db284e6 Mon Sep 17 00:00:00 2001
From: Marco Rimoldi <rimarko@libero.it>
Date: Wed, 21 Feb 2024 20:30:35 +0100
Subject: 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
-- 
cgit v1.2.3