01/02: gnu: portmidi: Create "libporttime.so" symlink.

[Nicolas Goaziou]

ngz pushed a commit to branch master
in repository guix.

commit a374d9c9b00a7248a366bf8ad747e9cd6dbb51eb
Author: Nicolas Goaziou <address@hidden>
Date:   Mon Apr 2 23:20:07 2018 +0200

    gnu: portmidi: Create "libporttime.so" symlink.
    
    * gnu/packages/music.scm (portmidi): Add an `add-portime' phase.
---
 gnu/packages/music.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 9949e8e..ae35678 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -1768,7 +1768,19 @@ projects.")
        #:build-type "Release"           ; needed to have PMALSA set
        #:configure-flags
        (list "-DPORTMIDI_ENABLE_JAVA=Off"
-             "-DPORTMIDI_ENABLE_TEST=Off"))) ; tests fail linking
+             "-DPORTMIDI_ENABLE_TEST=Off") ; tests fail linking
+       #:phases
+       (modify-phases %standard-phases
+         ;; Some packages, e.g., MuseScore, expect "libporttime.so" instead of
+         ;; "libportmidi.so".  Distributions get away with it by creating an
+         ;; appropriate symlink.
+         (add-after 'install 'add-porttime
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (lib (string-append out "/lib")))
+               (with-directory-excursion lib
+                 (symlink "libportmidi.so" "libporttime.so")))
+             #t)))))
     (inputs
      `(("alsa-lib" ,alsa-lib)))
     (native-inputs