infra/nonguix
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'SameExpert-master-patch-75402' into 'master'

Browse Source 
nongnu: reaper: Update to 6.80 and realign definition.

See merge request nonguix/nonguix!304
This commit is contained in:
Sughosha 2024-05-21 11:16:17 +00:00
commit f71aaf1e74
1 changed files with 86 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
nongnu/packages/music.scm
View File

@ -1,14 +1,14 @@
;;; SPDX-License-Identifier: GPL-3.0-or-later ;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; Copyright © 2022 Sughosha <sughosha@proton.me> ;;; Copyright © 2022-2023 Sughosha <sughosha@proton.me>
;;; Copyright © 2023 Jonathan Brielmaier <jonathan.brielmaier@web.de> ;;; Copyright © 2023 Jonathan Brielmaier <jonathan.brielmaier@web.de>
(define-module (nongnu packages music) (define-module (nongnu packages music)
#:use-module (gnu packages audio) #:use-module (gnu packages audio)
#:use-module (gnu packages base)
#:use-module (gnu packages cpp) #:use-module (gnu packages cpp)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#:use-module (gnu packages gcc) #:use-module (gnu packages gcc)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages pulseaudio)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
@ -21,7 +21,7 @@
(define-public reaper (define-public reaper
(package (package
(name "reaper") (name "reaper")
(version "6.73") (version "7.02")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -39,25 +39,73 @@
(sha256 (sha256
(base32 (base32
(match (%current-system) (match (%current-system)
("x86_64-linux" "1hd7fbk0px45fxhqa7nqcnij8ls2fhpjp60v840vy2zqs9fkcr52") ("x86_64-linux"
("i686-linux" "11vk32mxyda9xl08pp2ivd1vsahnw6w7d08in4syz6iannfwp19b") "0apnkv28x2vdlh7q26xsrn3b0y06cj4xgwsl1dh4rkkylrcld87k")
("aarch64-linux" "0zpkaiwwxn8yh3s1d22qswshbgaxx5d8iy17hb3w256zgb722yjw") ("i686-linux"
("armhf-linux" "18174b1lgsk73gxhala471ppzbrpa1cs953b5par998yqgh74znk")))))) "00b4hdk0i4gqlk3h5y9s07fhpvklazl2f2mzbr34m41s7avfnmx5")
("aarch64-linux"
"15skc16w3yl0fbs15h39xzf2xk1y5q1919fqrvwinq5r73ig55wh")
("armhf-linux"
"1laaiw4dcmaxzf7g3f0dmlihk53p50xnk8rmj8nw18yf7qhcscbs"))))))
(build-system binary-build-system) (build-system binary-build-system)
(arguments (arguments
(list #:strip-binaries? #f ;allocated section `.dynsym' not in segment (list #:strip-binaries? #f ;allocated section `.dynsym' not in segment
#:patchelf-plan #~`(("REAPER/reaper" ("libc" "gcc" "alsa-lib")) #:patchelf-plan
("REAPER/reamote-server" ("libc" "gcc")) #~(let ((libs (list "libc" "gcc")))
("REAPER/Plugins/reaper_host_x86_64" ("libc" "gcc"))) (list (list "REAPER/reaper"
#:phases #~(modify-phases %standard-phases (append libs
(list "alsa-lib" "jack" "pulseaudio")))
(list "REAPER/Plugins/reaper_host_x86_64"
(append libs
(list "alsa-lib" "jack" "pulseaudio")))
(list "REAPER/Plugins/elastique3.so" libs)
(list "REAPER/Plugins/jsfx.so" libs)
(list "REAPER/Plugins/reaper_cd.so" libs)
(list "REAPER/Plugins/reaper_csurf.so" libs)
(list "REAPER/Plugins/reaper_ddp.so" libs)
(list "REAPER/Plugins/reaper_explorer.so" libs)
(list "REAPER/Plugins/reaper_flac.so" libs)
(list "REAPER/Plugins/reaper_midi.so" libs)
(list "REAPER/Plugins/reaper_mp3dec.so" libs)
(list "REAPER/Plugins/reaper_ogg.so" libs)
(list "REAPER/Plugins/reaper_opus.so" libs)
(list "REAPER/Plugins/reaper_video.so" libs)
(list "REAPER/Plugins/reaper_wave.so" libs)
(list "REAPER/Plugins/reaper_wavpack.so" libs)
(list "REAPER/Plugins/rubberband.so" libs)
(list "REAPER/Plugins/soundtouch.so" libs)
(list "REAPER/Plugins/FX/reacast.vst.so" libs)
(list "REAPER/Plugins/FX/reacomp.vst.so" libs)
(list "REAPER/Plugins/FX/reacontrolmidi.vst.so" libs)
(list "REAPER/Plugins/FX/readelay.vst.so" libs)
(list "REAPER/Plugins/FX/reaeq.vst.so" libs)
(list "REAPER/Plugins/FX/reafir.vst.so" libs)
(list "REAPER/Plugins/FX/reagate.vst.so" libs)
(list "REAPER/Plugins/FX/reainsert.vst.so" libs)
(list "REAPER/Plugins/FX/realimit.vst.so" libs)
(list "REAPER/Plugins/FX/reaninjam.vst.so" libs)
(list "REAPER/Plugins/FX/reapitch.vst.so" libs)
(list "REAPER/Plugins/FX/reasamplomatic.vst.so" libs)
(list "REAPER/Plugins/FX/reastream.vst.so" libs)
(list "REAPER/Plugins/FX/reasurround.vst.so" libs)
(list "REAPER/Plugins/FX/reasurround2.vst.so" libs)
(list "REAPER/Plugins/FX/reasyndr.vst.so" libs)
(list "REAPER/Plugins/FX/reacast.vst.so" libs)
(list "REAPER/Plugins/FX/reasynth.vst.so" libs)
(list "REAPER/Plugins/FX/reatune.vst.so" libs)
(list "REAPER/Plugins/FX/reaverb.vst.so" libs)
(list "REAPER/Plugins/FX/reaverbate.vst.so" libs)
(list "REAPER/Plugins/FX/reavocode.vst.so" libs)
(list "REAPER/Plugins/FX/reavoice.vst.so" libs)
(list "REAPER/Plugins/FX/reaxcomp.vst.so" libs)))
#:phases
#~(modify-phases %standard-phases
(replace 'install (replace 'install
(lambda* (#:key outputs inputs #:allow-other-keys) (lambda* (#:key outputs inputs #:allow-other-keys)
(let* ((target (string-append #$output "/opt")) (let* ((target (string-append #$output "/opt"))
(bin (string-append #$output "/bin")) (bin (string-append #$output "/bin"))
(libexec (string-append #$output "/libexec"))
(data (string-append #$output "/share")) (data (string-append #$output "/share"))
(doc (string-append data "/doc/reaper-" (doc (string-append data "/doc/reaper-" #$version)))
#$version)))
(setenv "HOME" "/tmp") (setenv "HOME" "/tmp")
(setenv "XDG_DATA_HOME" data) (setenv "XDG_DATA_HOME" data)
(invoke "sh" "./install-reaper.sh" "--install" (invoke "sh" "./install-reaper.sh" "--install"
@ -66,33 +114,20 @@
"/REAPER/uninstall-reaper.sh")) "/REAPER/uninstall-reaper.sh"))
(delete-file (string-append target (delete-file (string-append target
"/REAPER/libSwell.so")) "/REAPER/libSwell.so"))
(symlink (search-input-file inputs (symlink (search-input-file inputs "/lib/libSwell.so")
"/lib/libSwell.so") (string-append target "/REAPER/libSwell.so"))
(string-append target
"/REAPER/libSwell.so"))
(mkdir-p bin) (mkdir-p bin)
(symlink (string-append target "/REAPER/reaper") (symlink (string-append target "/REAPER/reaper")
(string-append bin "/reaper")) (string-append bin "/reaper"))
(mkdir-p libexec)
(symlink (string-append target
"/REAPER/Plugins/reaper_host_x86_64")
(string-append libexec
"/reaper_host_x86_64"))
(mkdir-p doc) (mkdir-p doc)
(symlink (string-append target (symlink (string-append target "/REAPER/EULA.txt")
"/REAPER/EULA.txt")
(string-append doc "/LICENSE")))))))) (string-append doc "/LICENSE"))))))))
(native-inputs (native-inputs
(list (list xdg-utils))
which
xdg-utils))
(inputs (inputs
(list (list alsa-lib `(,gcc "lib") jack-1 pulseaudio wdl))
alsa-lib (supported-systems
`(,gcc "lib") (list "x86_64-linux" "i686-linux" "aarch64-linux" "armhf-linux"))
wdl))
(supported-systems '("x86_64-linux" "i686-linux" "aarch64-linux"
"armhf-linux"))
(home-page "https://www.reaper.fm") (home-page "https://www.reaper.fm")
(synopsis "Digital audio workstation") (synopsis "Digital audio workstation")
(description (description