civodul pushed a commit to branch master
in repository guix.
commit 8240d1acf4f204ef0980839ee1e8921119b4d4aa
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Thu Jun 13 11:32:16 2024 +0200
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
---
gnu/packages/audio.scm | 63 +++++++++++++++++++++++++++++++++++++++++++++++
gnu/packages/music.scm | 66 +++-----------------------------------------------
2 files changed, 66 insertions(+), 63 deletions(-)
diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index f5c8dbd151..1cfaa213b8 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -4012,6 +4012,43 @@ stretching and pitch scaling of audio. This package
contains the library.")
;; containing gpl2.
(license license:gpl2)))
+(define-public stargate-sbsms
+ ;; Stargate's fork of sbsms.
+ (let ((commit "90fab3440063dc9b6c1c2a8f74c2d92bd0e423f9")
+ (revision "0"))
+ (package/inherit libsbsms
+ (name "stargate-sbsms")
+ (version (git-version "0" revision commit))
+ (home-page "https://github.com/stargatedaw/stargate-sbsms";)
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference (url home-page) (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))
+ (properties '((hidden? . #t))))))
+
(define-public libkeyfinder
(package
(name "libkeyfinder")
@@ -4205,6 +4242,32 @@ application developers writing sound processing tools
that require tempo/pitch
control functionality, or just for playing around with the sound effects.")
(license license:lgpl2.1+)))
+(define-public stargate-soundtouch
+ ;; Stargate's fork of soundtouch.
+ (let ((commit "464f474c0be5d7e0970909dd30593012e4621468")
+ (revision "0"))
+ (package/inherit soundtouch
+ (name "stargate-soundtouch")
+ (version (git-version "0" revision commit))
+ (home-page "https://github.com/stargatedaw/stargate-soundtouch";)
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference (url home-page) (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")))))))
+ (properties '((hidden? . #t))))))
+
(define-public sox
(package
(name "sox")
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
