ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: paulxstretch: Patch paths.

Browse source 
* gnu/packages/music.scm (paulxstretch) [arguments]: Add patch-paths phase.
[inputs]: Add dconf, fontconfig and glib:bin.

Modified-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Sughosha 2023-01-06 13:27:07 +00:00 committed by Maxim Cournoyer
parent 38b64d47ed
commit a586c3996e
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 46 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

72
gnu/packages/music.scm
View file

@ -2560,44 +2560,64 @@ (define-public paulxstretch
"1pff51imfgmgqzc6mdgwd1v9fci0a8hj85fnkdsvkdzbnxdzvs9r")))) "1pff51imfgmgqzc6mdgwd1v9fci0a8hj85fnkdsvkdzbnxdzvs9r"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
(list #:tests? #f ;no test suite (list
#:phases #:tests? #f ;no test suite
#~(modify-phases %standard-phases #:phases
(replace 'install #~(modify-phases %standard-phases
(lambda _ (add-after 'unpack 'patch-paths
(let* ((bin (string-append #$output "/bin")) (lambda* (#:key inputs #:allow-other-keys)
(lib (string-append #$output "/lib")) (substitute* "deps/juce/extras/Projucer/Source/ProjectSaving/\
(share (string-append #$output "/share")) jucer_ProjectExport_CodeBlocks.h"
(clap (string-append lib "/clap")) (("/usr/include/freetype2")
(vst3 (string-append lib "/vst3"))) (search-input-directory inputs "/include/freetype2")))
(with-directory-excursion (substitute*
"PaulXStretch_artefacts/RelWithDebInfo" "deps/juce/modules/juce_graphics/native/juce_linux_Fonts.cpp"
(install-file "Standalone/paulxstretch" bin) (("/etc/fonts")
(install-file "CLAP/PaulXStretch.clap" clap) (search-input-directory inputs "/etc/fonts")))
(mkdir-p vst3) (substitute*
(copy-recursively "VST3" vst3) "deps/juce/modules/juce_gui_basics/native/x11/\
(install-file (string-append juce_linux_XWindowSystem.cpp"
#$source (("/usr/bin/dconf")
"/linux/paulxstretch.desktop") (search-input-file inputs "/bin/dconf"))
(string-append share "/applications")) (("/usr/bin/gsettings")
(install-file (search-input-file inputs "/bin/gsettings")))))
(string-append (replace 'install
#$source (lambda _
"/images/paulxstretch_icon_1024_rounded.png") (let* ((lib (string-append #$output "/lib"))
(string-append share "/pixmaps"))))))))) (share (string-append #$output "/share"))
(clap (string-append lib "/clap"))
(vst3 (string-append lib "/vst3")))
(with-directory-excursion
"PaulXStretch_artefacts/RelWithDebInfo"
(install-file "Standalone/paulxstretch"
(string-append #$output "/bin"))
(install-file "CLAP/PaulXStretch.clap" clap)
(mkdir-p vst3)
(copy-recursively "VST3" vst3)
(install-file (string-append
#$source
"/linux/paulxstretch.desktop")
(string-append share "/applications"))
(install-file (string-append
#$source
"/images/paulxstretch_icon_1024_rounded.png")
(string-append share "/pixmaps")))))))))
(home-page "https://sonosaurus.com/paulxstretch/") (home-page "https://sonosaurus.com/paulxstretch/")
(native-inputs (list pkg-config)) (native-inputs (list pkg-config))
(inputs (list alsa-lib (inputs (list alsa-lib
curl curl
dconf
fftwf fftwf
fontconfig
freetype freetype
`(,glib "bin")
jack-1 jack-1
libx11 libx11
libxcursor libxcursor
libxext libxext
libxinerama libxinerama
libxrandr)) libxrandr))
(supported-systems '("x86_64-linux")) ;pffft.c uses SIMD code (supported-systems '("x86_64-linux")) ;pffft.c uses SIMD code
(synopsis "Audio timestretching application and plugin") (synopsis "Audio timestretching application and plugin")
(description (description
"PaulXStretch is an application/plugin is based on the PaulStretch "PaulXStretch is an application/plugin is based on the PaulStretch