me/guix
Archived
1
0
Fork 0
Code Activity

gnu: supercollider: Reformat package definition.

Browse source 
* gnu/packages/audio.scm (supercollider)[source]<origin>: Re-indent.
[arguments]<#:phases>: Remove trailing #T.
This commit is contained in:
Nicolas Goaziou 2021-12-17 09:33:54 +01:00
parent 0745c8205a
commit abd2a5a807
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 38 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

80
gnu/packages/audio.scm
View file

@ -2912,43 +2912,43 @@ background file post-processing.")
(package (package
(name "supercollider") (name "supercollider")
(version "3.12.1") (version "3.12.1")
(source (origin (source
(method git-fetch) (origin
(uri (git-reference (method git-fetch)
(url "https://github.com/supercollider/supercollider") (uri (git-reference
(commit (string-append "Version-" version)) (url "https://github.com/supercollider/supercollider")
;; for nova-simd, nova-tt, hidapi, TLSF, oscpack (commit (string-append "Version-" version))
(recursive? #t))) ;; for nova-simd, nova-tt, hidapi, TLSF, oscpack
(file-name (git-file-name name version)) (recursive? #t)))
(sha256 (file-name (git-file-name name version))
(base32 (sha256
"0id522338a464j1slcspajwc7klypbc9qpigw5mqjhrw970wij5z")) (base32
(modules '((guix build utils) "0id522338a464j1slcspajwc7klypbc9qpigw5mqjhrw970wij5z"))
(ice-9 ftw))) (modules '((guix build utils)
(snippet (ice-9 ftw)))
;; The build system doesn't allow us to unbundle the following (snippet
;; libraries. hidapi is also heavily patched and upstream not ;; The build system doesn't allow us to unbundle the following
;; actively maintained. ;; libraries. hidapi is also heavily patched and upstream not
'(let ((keep-dirs '("nova-simd" "nova-tt" "hidapi" ;; actively maintained.
"TLSF-2.4.6" "oscpack_1_1_0" "." ".."))) '(let ((keep-dirs '("nova-simd" "nova-tt" "hidapi"
(with-directory-excursion "./external_libraries" "TLSF-2.4.6" "oscpack_1_1_0" "." "..")))
(for-each (with-directory-excursion "./external_libraries"
delete-file-recursively (for-each
(scandir "." delete-file-recursively
(lambda (x) (scandir "."
(and (eq? (stat:type (stat x)) 'directory) (lambda (x)
(not (member (basename x) keep-dirs))))))) (and (eq? (stat:type (stat x)) 'directory)
;; To find the Guix provided ableton-link library. (not (member (basename x) keep-dirs)))))))
(substitute* "lang/CMakeLists.txt" ;; To find the Guix provided ableton-link library.
(("include\\(\\.\\./external_libraries/link/\ (substitute* "lang/CMakeLists.txt"
(("include\\(\\.\\./external_libraries/link/\
AbletonLinkConfig\\.cmake\\)") AbletonLinkConfig\\.cmake\\)")
"find_package(AbletonLink NAMES AbletonLink ableton-link \ "find_package(AbletonLink NAMES AbletonLink ableton-link \
link REQUIRED)")) link REQUIRED)"))))))
#t))))
(build-system cmake-build-system) (build-system cmake-build-system)
(outputs (outputs
'("out" ;core language '("out" ;core language
"ide")) ;qt ide "ide")) ;qt ide
(arguments (arguments
`(#:configure-flags '("-DSYSTEM_BOOST=ON" `(#:configure-flags '("-DSYSTEM_BOOST=ON"
"-DSYSTEM_YAMLCPP=ON" "-DSYSTEM_YAMLCPP=ON"
@ -2964,8 +2964,7 @@ link REQUIRED)"))
;; The graphical tests also hang without it. ;; The graphical tests also hang without it.
(add-after 'unpack 'set-home-directory (add-after 'unpack 'set-home-directory
(lambda _ (lambda _
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))))
#t))
(add-after 'unpack 'patch-scclass-dir (add-after 'unpack 'patch-scclass-dir
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
@ -2976,13 +2975,11 @@ link REQUIRED)"))
(((string-append (((string-append
"SC_Filesystem::instance\\(\\)\\.getDirectory" "SC_Filesystem::instance\\(\\)\\.getDirectory"
"\\(DirName::Resource\\) / CLASS_LIB_DIR_NAME")) "\\(DirName::Resource\\) / CLASS_LIB_DIR_NAME"))
(string-append "Path(\"" scclass-dir "\")"))) (string-append "Path(\"" scclass-dir "\")"))))))
#t)))
(add-before 'build 'prepare-x (add-before 'build 'prepare-x
(lambda _ (lambda _
(system "Xvfb &") (system "Xvfb &")
(setenv "DISPLAY" ":0") (setenv "DISPLAY" ":0")))
#t))
(add-before 'install 'install-ide (add-before 'install 'install-ide
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
@ -2990,8 +2987,7 @@ link REQUIRED)"))
(scide "editors/sc-ide/scide")) (scide "editors/sc-ide/scide"))
(install-file scide (install-file scide
(string-append ide "/bin")) (string-append ide "/bin"))
(delete-file scide) (delete-file scide)))))))
#t))))))
(native-inputs (native-inputs
(list ableton-link pkg-config qttools xorg-server-for-tests)) (list ableton-link pkg-config qttools xorg-server-for-tests))
(inputs (list jack-1 (inputs (list jack-1