From 8bf94ba51559ae4357b6619d61ef13b48e886940 Mon Sep 17 00:00:00 2001
From: Alexandros Theodotou <alex@zrythm.org>
Date: Sat, 4 Apr 2020 22:06:27 +0100
Subject: [PATCH 3/3] gnu: Add zynfusion.
* gnu/packages/music.scm (zynfusion): New variable.
---
gnu/packages/music.scm | 69 ++++++++++++++++++++++++++++++++++++++++++
1 file changed, 69 insertions(+)
@@ -128,6 +128,7 @@
#:use-module (gnu packages rdf)
#:use-module (gnu packages readline)
#:use-module (gnu packages rsync)
+ #:use-module (gnu packages ruby)
#:use-module (gnu packages sdl)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages tcl)
@@ -5383,3 +5384,71 @@ filtered, pitch shifted and ultimately disintegrated. This is an unofficial
port of the Regrader plugin created by Igorski. It is available as an LV2
plugin and a standalone JACK application.")
(license license:expat)))
+
+(define-public zynfusion
+ (package/inherit zynaddsubfx
+ (name "zynfusion")
+ (arguments
+ `(#:configure-flags
+ ;; Enable ZynFusion mode
+ '("-DGuiModule=zest" "-DDemoMode=false")
+ #:phases
+ (modify-phases %standard-phases
+ ;; Move SSE compiler optimization flags from generic target to
+ ;; athlon64 and core2 targets, because otherwise the build would fail
+ ;; on non-Intel machines.
+ (add-after 'unpack 'remove-sse-flags-from-generic-target
+ (lambda _
+ (substitute* "src/CMakeLists.txt"
+ (("-msse -msse2 -mfpmath=sse") "")
+ (("-march=(athlon64|core2)" flag)
+ (string-append flag " -msse -msse2 -mfpmath=sse")))
+ #t))
+ (add-after 'unpack 'patch-paths
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let ((zest (assoc-ref inputs "mruby-zest"))
+ (out (assoc-ref %outputs "out")))
+ ;; Patch zest path so that the ZynFusion UI can be found
+ (substitute* "src/Plugin/ZynAddSubFX/ZynAddSubFX-UI-Zest.cpp"
+ (("\\./libzest\\.so")
+ (string-append zest "/lib/zynfusion/libzest.so")))
+ (substitute* "src/main.cpp"
+ (("\\./zyn-fusion")
+ (string-append zest "/lib/zynfusion/zyn-fusion")))
+ (substitute* "src/main.cpp"
+ (("\\\"zyn-fusion\\\"")
+ (string-append "\"" zest "/lib/zynfusion/zyn-fusion\"")))
+ ;; Patch banks path FIXME banks are still not found
+ (substitute* "src/Misc/Config.cpp"
+ (("cfg.bankRootDirList\\[4\\] =.*$")
+ (string-append "cfg.bankRootDirList[4] = \""
+ out "/share/zynaddsubfx/banks\";\n")))
+ #t)))
+ ;; Rename to avoid clashes with the zynaddsubfx package
+ (add-after 'install 'rename-to-zyn-fusion
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let* ((out (assoc-ref %outputs "out"))
+ (bin (string-append out "/bin"))
+ (share (string-append out "/share")))
+ (rename-file (string-append bin "/zynaddsubfx")
+ (string-append bin "/zynfusion"))
+ (substitute* (find-files (string-append share "/applications")
+ "\\.desktop$")
+ (("Exec=zynaddsubfx")
+ "Exec=zynfusion"))
+ #t))))))
+ (inputs
+ `(("alsa-lib" ,alsa-lib)
+ ("cairo" ,cairo)
+ ("fftw" ,fftw)
+ ("jack" ,jack-1)
+ ("liblo" ,liblo)
+ ("libxpm" ,libxpm)
+ ("mesa" ,mesa)
+ ("minixml" ,minixml)
+ ("mruby-zest" ,mruby-zest)
+ ("ruby" ,ruby)
+ ("zlib" ,zlib)))
+ (description
+ "ZynFusion is an alternative, modern UI for the ZynAddSubFX
+synthesizer.")))
--
2.26.0