02/02: gnu: muse-sequencer: Enable more features.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit fb24a4d5b87fa77a42966938df5e9761c0991876
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Sat Sep 12 14:53:14 2020 +0200

    gnu: muse-sequencer: Enable more features.
    
    * gnu/packages/music.scm (muse-sequencer)[arguments]: Add phase 
"fix-include"
    to patch header file reference; remove obsolete ENABLE_LV2_SUPPLIED
    configuration option; remove ENABLE_RTAUDIO=OFF.
    [inputs]: Add lrdf, pulseaudio, rtaudio, and rubberband.
---
 gnu/packages/music.scm | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index c62611f..95e010b 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -4175,9 +4175,7 @@ sample library.")
     (arguments
      `(#:tests? #f ; there is no test target
        #:configure-flags
-       (list "-DENABLE_LV2_SUPPLIED=OFF"
-             "-DENABLE_RTAUDIO=OFF"    ; FIXME: not packaged
-             "-DENABLE_INSTPATCH=OFF"  ; FIXME: not packaged
+       (list "-DENABLE_INSTPATCH=OFF"  ; FIXME: not packaged
              "-DENABLE_VST_NATIVE=OFF"
              (string-append "-DCMAKE_EXE_LINKER_FLAGS="
                             "-Wl,-rpath="
@@ -4190,7 +4188,12 @@ sample library.")
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'chdir
-           (lambda _ (chdir "muse3") #t)))))
+           (lambda _ (chdir "muse3") #t))
+         (add-after 'chdir 'fix-include
+           (lambda _
+             (substitute* "muse/driver/rtaudio.h"
+               (("rtaudio/RtAudio.h") "RtAudio.h"))
+             #t)))))
     (inputs
      `(("alsa-lib" ,alsa-lib)
        ("lash" ,lash)
@@ -4203,10 +4206,14 @@ sample library.")
        ("sord" ,sord)
        ("libsndfile" ,libsndfile)
        ("libsamplerate" ,libsamplerate)
+       ("lrdf" ,lrdf)
        ("fluidsynth" ,fluidsynth)
        ("pcre" ,pcre)
+       ("pulseaudio" ,pulseaudio) ; required by rtaudio
        ("qtbase" ,qtbase)
-       ("qtsvg" ,qtsvg)))
+       ("qtsvg" ,qtsvg)
+       ("rtaudio" ,rtaudio)
+       ("rubberband" ,rubberband)))
     (native-inputs
      `(("pkg-config" ,pkg-config)
        ("qttools" ,qttools)))