[bug#56140] [Patches] Add and update music packages

[Sughosha via Guix-patches via <guix-patches@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 28 bytes --]

Fixed mistakes and improved.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-gnu-sorcer-Update-to-1.1.3-6.cc7f6f5.patch --]
[-- Type: text/x-patch; name=0001-gnu-sorcer-Update-to-1.1.3-6.cc7f6f5.patch, Size: 3590 bytes --]

From d096d031893b8c1bfcf2450cbbbb76f8d73d16e4 Mon Sep 17 00:00:00 2001
From: Sughosha <sughosha@proton.me>
Date: Fri, 1 Jul 2022 17:53:18 +0200
Subject: [PATCH 1/4] gnu: sorcer: Update to 1.1.3-6.cc7f6f5.

* gnu/packages/music.scm (sorcer): Update to 1.1.3-6.cc7f6f5.

  This update fixes the building of the package.
---
 gnu/packages/music.scm | 65 ++++++++++++++++++------------------------
 1 file changed, 28 insertions(+), 37 deletions(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index e0522e40f5..4e5c8bd081 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -5056,44 +5056,35 @@ (define-public patchmatrix
     (license license:artistic2.0)))
 
 (define-public sorcer
-  (package
-    (name "sorcer")
-    (version "1.1.3")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append "https://github.com/openAVproductions/"
-                                  "openAV-Sorcer/archive/release-"
-                                  version ".tar.gz"))
-              (file-name (string-append name "-" version ".tar.gz"))
-              (sha256
-               (base32
-                "07iyqj28wm0xc4arrq893bm12xjpz65db7ynrlmf6w8krg8wjmd0"))))
-    (build-system cmake-build-system)
-    (arguments
-     `(#:tests? #f                      ; no tests included
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'remove-architecture-specific-flags
-           (lambda _
-             (substitute* "CMakeLists.txt"
-               (("-msse2 -mfpmath=sse") ""))
-             #t))
-         (add-after 'unpack 'build-faust-sources
-           (lambda* (#:key inputs #:allow-other-keys)
-             (with-directory-excursion "faust"
-               (delete-file "main.cpp")
-               (invoke "faust" "-i"
-                       "-a" "lv2synth.cpp"
-                       "-o" "main.cpp" "main.dsp")))))))
-    (inputs
-     (list boost lv2 ntk))
-    (native-inputs
-     (list faust pkg-config))
-    (home-page "http://openavproductions.com/sorcer/")
-    (synopsis "Wavetable LV2 plugin synth")
-    (description "Sorcer is a wavetable LV2 plugin synthesizer, targeted at
+  (let ((revision "6") (commit "cc7f6f58af3188a8620b90fdad6e8ca5d026f543"))
+    (package
+      (name "sorcer")
+      (version (git-version "1.1.3" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url
+                       "https://github.com/openAVproductions/openAV-Sorcer")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "0ryaglp2pzln2bm0pwc5p9lb2nk0x4wmrs4c4cp6d2m2hhk82yk7"))))
+      (build-system cmake-build-system)
+      (arguments
+       `(#:tests? #f
+         #:phases (modify-phases %standard-phases
+                    (add-after 'unpack 'remove-architecture-specific-flags
+                      (lambda _
+                        (substitute* "CMakeLists.txt"
+                          (("-msse2 -mfpmath=sse") "")) #t))))) ;no tests included
+      (inputs (list boost lv2 ntk))
+      (native-inputs (list faust pkg-config))
+      (home-page "http://openavproductions.com/sorcer/")
+      (synopsis "Wavetable LV2 plugin synth")
+      (description "Sorcer is a wavetable LV2 plugin synthesizer, targeted at
 the electronic or dubstep genre.")
-    (license license:gpl3+)))
+      (license license:gpl3+))))
 
 (define-public sonivox-eas
   (package
-- 
2.36.1


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: 0002-gnu-Add-fabla.patch --]
[-- Type: text/x-patch; name=0002-gnu-Add-fabla.patch, Size: 1799 bytes --]

From 89d254e0655754f72ef41660f063e8aafe9ac0ad Mon Sep 17 00:00:00 2001
From: Sughosha <sughosha@proton.me>
Date: Fri, 1 Jul 2022 17:53:59 +0200
Subject: [PATCH 2/4] gnu: Add fabla.

* gnu/packages/music.scm (fabla): New variable.
---
 gnu/packages/music.scm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 4e5c8bd081..1b87675a4a 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -5055,6 +5055,33 @@ (define-public patchmatrix
 OSC connections.")
     (license license:artistic2.0)))
 
+(define-public fabla
+  (let ((revision "17") (commit "10acf03046d980f96ed192d5acb9deb812f5c639"))
+    (package
+      (name "fabla")
+      (version (git-version "1.3.2" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/openAVproductions/openAV-Fabla")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "0ybbzb86j1n5dfhzc6aa3cibkwi6q3x0c18b1w3anyibanmr1wmc"))))
+      (build-system cmake-build-system)
+      (arguments
+       `(#:tests? #f))
+      (native-inputs (list pkg-config lv2 mesa))
+      (inputs (list ntk cairomm libsndfile))
+      (home-page "http://openavproductions.com/fabla/")
+      (synopsis "Sampler LV2 plugin")
+      (description
+       "Fabla is an LV2 drum sampler plugin instrument.  It is ideal for
+loading up your favorite sampled sounds and bashing away on a MIDI
+controller.")
+      (license license:gpl3))))
+
 (define-public sorcer
   (let ((revision "6") (commit "cc7f6f58af3188a8620b90fdad6e8ca5d026f543"))
     (package
-- 
2.36.1


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #4: 0003-gnu-Add-luppp.patch --]
[-- Type: text/x-patch; name=0003-gnu-Add-luppp.patch, Size: 1959 bytes --]

From 9ce850f5b65a6e49352f63c11443bc7090647e85 Mon Sep 17 00:00:00 2001
From: Sughosha <sughosha@proton.me>
Date: Fri, 1 Jul 2022 17:54:41 +0200
Subject: [PATCH 3/4] gnu: Add luppp.

* gnu/packages/music.scm (luppp): New variable.
---
 gnu/packages/music.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 1b87675a4a..320a87f2c5 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -5055,6 +5055,36 @@ (define-public patchmatrix
 OSC connections.")
     (license license:artistic2.0)))
 
+(define-public luppp
+  (let ((revision "29") (commit "23da1497f80dbace48b7807afd3570c57a4d5994"))
+    (package
+      (name "luppp")
+      (version (git-version "1.2.1" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/openAVproductions/openAV-Luppp")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "1rjl7fwnqq1gxa3haw1z0p1mld23i194sc43m03h9isagkwxrx9d"))))
+      (build-system meson-build-system)
+      (native-inputs (list pkg-config cmake-minimal))
+      (inputs (list cairo
+                    ntk
+                    liblo
+                    jack-1
+                    libsndfile
+                    libsamplerate))
+      (home-page "http://openavproductions.com/luppp/")
+      (synopsis "Live performance tool")
+      (description
+       "Luppp is a music creation tool, intended for live use.  The focus is on
+real time processing and a fast and intuitive workflow.  With extensive MIDI
+mapping support, you can get looping just how you like!")
+      (license license:gpl3))))
+
 (define-public fabla
   (let ((revision "17") (commit "10acf03046d980f96ed192d5acb9deb812f5c639"))
     (package
-- 
2.36.1


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #5: 0004-gnu-Add-distrho-ports.patch --]
[-- Type: text/x-patch; name=0004-gnu-Add-distrho-ports.patch, Size: 2425 bytes --]

From 30e44861906ce8fc7c4213948234cf6334641307 Mon Sep 17 00:00:00 2001
From: Sughosha <sughosha@proton.me>
Date: Fri, 1 Jul 2022 17:55:37 +0200
Subject: [PATCH 4/4] gnu: Add distrho-ports.

* gnu/packages/music.scm (distrho-ports): New variable.
---
 gnu/packages/music.scm | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 320a87f2c5..351b5760b3 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -6002,6 +6002,44 @@ (define-public mamba
 ones.")
    (license license:bsd-0)))
 
+(define-public distrho-ports
+  (let ((revision "611") (commit "d500be0794bba5dfa734806d8b0b1e6894ec04be"))
+    (package
+      (name "distrho-ports")
+      (version (git-version "0" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/DISTRHO/DISTRHO-Ports")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "0a0i5ajqww8zpgrgpr1n4r2418l2sakvdz9y7pjwnx8168kmlmpl"))))
+      (build-system meson-build-system)
+      (native-inputs (list pkg-config cmake-minimal))
+      (inputs (list fftwf
+                    alsa-lib
+                    freetype
+                    libx11
+                    libxrender
+                    libxext
+                    libxcursor
+                    mesa))
+      (home-page "https://github.com/DISTRHO/DISTRHO-Ports")
+      (synopsis "Linux audio plugins and LV2 ports")
+      (description
+       "This package contains GNU/Linux and LV2 ports of the following plugins:
+The Function, The Pilgrim, Dexed, dRowAudio plugins (Distortion, Distortion
+Shaper, Flanger, Reverb, Tremolo), DrumSynth, EasySSP, EQinox, HiReSam,
+JuceOPL, KlangFalter, LUFS Meter, LUFS Meter (Multichannel), Luftikus, Obxd,
+PitchedDelay, ReFine, StereoSourceSeperation, Swanky Amp, TAL plugins (Dub-3,
+Filter, Filter-2, Noize Mak3r, Reverb, Reverb-II, Reverb-III, Vocoder-II),
+Temper, Vex, Vitalium and Wolpertinger")
+      ;; This package consists of several plugins.
+      ;; Different copyrights and licenses apply to different plugins.
+      (license (list license:gpl2 license:lgpl3)))))
+
 (define-public dpf-plugins
   (package
     (name "dpf-plugins")
-- 
2.36.1