gnu: stargate: Move libsbsms and soundtouch forks to audio.scm.

This avoids generating new packages at run time and makes them visible
to ‘fold-packages’.

* gnu/packages/audio.scm (stargate-sbsms, stargate-soundtouch): New
variables, taken from…
* gnu/packages/music.scm (stargate)[inputs]: … here.  Use them.

Change-Id: I2344d82756b3b7295c505fbdb36886b74abe5d5d

1 files changed, 3 insertions, 63 deletions

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 4ea5dff5a8..06c6211026 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -5292,69 +5292,9 @@ can receive input from a MIDI keyboard.")
            python-yq
            rubberband
            valgrind
-           ;; Stargate's fork of sbsms.
-           (let ((commit "90fab3440063dc9b6c1c2a8f74c2d92bd0e423f9")
-                 (revision "0"))
-             (package/inherit libsbsms
-               (name "stargate-sbsms")
-               (version (git-version "0" revision commit))
-               (source
-                (origin
-                  (method git-fetch)
-                  (uri
-                   (git-reference
-                     (url "https://github.com/stargatedaw/stargate-sbsms")
-                     (commit commit)))
-                  (sha256
-                   (base32
-                    "11srnzgpavcj6n70zjdm7488jzrprk71mg9dgr1sa6vwp575hf2m"))))
-               (arguments
-                (substitute-keyword-arguments (package-arguments libsbsms)
-                  ((#:phases phases)
-                   #~(modify-phases #$phases
-                       (delete 'fix-ar-lib-path)
-                       (add-before 'build 'change-directory
-                         (lambda _
-                           (chdir "cli")))
-                       (replace 'configure
-                         (lambda _
-                           (setenv "DESTDIR" #$output)
-                           (setenv "PREFIX" "/")))
-                       (add-after 'install 'rename-sbsms
-                            (lambda _
-                              (with-directory-excursion (string-append #$output
-                                                                       "/bin")
-                                (rename-file "sbsms" "stargate-sbsms"))))
-                       (delete 'check)))))
-               (native-inputs
-                (list libsndfile))
-               (home-page "https://stargatedaw/stargate-sbsms")))
-           ;; Stargate's fork of soundtouch.
-           (let ((commit "464f474c0be5d7e0970909dd30593012e4621468")
-                 (revision "0"))
-             (package/inherit soundtouch
-               (name "stargate-soundtouch")
-               (version (git-version "0" revision commit))
-               (source
-                (origin
-                  (method git-fetch)
-                  (uri
-                   (git-reference
-                     (url "https://github.com/stargatedaw/stargate-soundtouch")
-                     (commit commit)))
-                  (sha256
-                   (base32
-                    "1aw2j1f10p8n4s197b1nd3g1rjvwbrrszc9gwsbwk01c6nb3nr9v"))))
-               (arguments
-                (list #:phases
-                      #~(modify-phases %standard-phases
-                          (add-after 'install 'rename-soundstretch
-                            (lambda _
-                              (with-directory-excursion (string-append #$output
-                                                                       "/bin")
-                                (rename-file "soundstretch"
-                                             "stargate-soundstretch")))))))
-               (home-page "https://stargatedaw/stargate-soundtouch")))))
+
+           stargate-sbsms
+           stargate-soundtouch))
     (home-page "https://github.com/stargatedaw/stargate")
     (synopsis "Digital audio workstation")
     (description