me
/
guix
Archived
1
0
Fork 0

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
master
Ludovic Courtès 2024-06-13 11:32:16 +02:00
parent c96b51323f
commit 8240d1acf4
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 66 additions and 63 deletions

View File

@ -4012,6 +4012,43 @@ stretching and pitch scaling of audio. This package contains the library.")
;; containing gpl2. ;; containing gpl2.
(license license: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 (define-public libkeyfinder
(package (package
(name "libkeyfinder") (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.") control functionality, or just for playing around with the sound effects.")
(license license:lgpl2.1+))) (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 (define-public sox
(package (package
(name "sox") (name "sox")

View File

@ -5292,69 +5292,9 @@ can receive input from a MIDI keyboard.")
python-yq python-yq
rubberband rubberband
valgrind valgrind
;; Stargate's fork of sbsms.
(let ((commit "90fab3440063dc9b6c1c2a8f74c2d92bd0e423f9") stargate-sbsms
(revision "0")) stargate-soundtouch))
(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")))))
(home-page "https://github.com/stargatedaw/stargate") (home-page "https://github.com/stargatedaw/stargate")
(synopsis "Digital audio workstation") (synopsis "Digital audio workstation")
(description (description