summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2021-12-17 09:33:54 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2021-12-17 09:34:39 +0100
commitabd2a5a807454c726dcfb44b87207a549fced660 (patch)
treec3d83bb7aa828d19767e29504d4efb2ebafc6d33
parent0745c8205a4ef77b6b2f8e004d3c4d6e6e7ddccc (diff)
gnu: supercollider: Reformat package definition.
* gnu/packages/audio.scm (supercollider)[source]<origin>: Re-indent. [arguments]<#:phases>: Remove trailing #T.
-rw-r--r--gnu/packages/audio.scm80
1 files changed, 38 insertions, 42 deletions
diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index df9f1a96e9..c98490505c 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -2912,43 +2912,43 @@ background file post-processing.")
(package
(name "supercollider")
(version "3.12.1")
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/supercollider/supercollider")
- (commit (string-append "Version-" version))
- ;; for nova-simd, nova-tt, hidapi, TLSF, oscpack
- (recursive? #t)))
- (file-name (git-file-name name version))
- (sha256
- (base32
- "0id522338a464j1slcspajwc7klypbc9qpigw5mqjhrw970wij5z"))
- (modules '((guix build utils)
- (ice-9 ftw)))
- (snippet
- ;; The build system doesn't allow us to unbundle the following
- ;; libraries. hidapi is also heavily patched and upstream not
- ;; actively maintained.
- '(let ((keep-dirs '("nova-simd" "nova-tt" "hidapi"
- "TLSF-2.4.6" "oscpack_1_1_0" "." "..")))
- (with-directory-excursion "./external_libraries"
- (for-each
- delete-file-recursively
- (scandir "."
- (lambda (x)
- (and (eq? (stat:type (stat x)) 'directory)
- (not (member (basename x) keep-dirs)))))))
- ;; To find the Guix provided ableton-link library.
- (substitute* "lang/CMakeLists.txt"
- (("include\\(\\.\\./external_libraries/link/\
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/supercollider/supercollider")
+ (commit (string-append "Version-" version))
+ ;; for nova-simd, nova-tt, hidapi, TLSF, oscpack
+ (recursive? #t)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0id522338a464j1slcspajwc7klypbc9qpigw5mqjhrw970wij5z"))
+ (modules '((guix build utils)
+ (ice-9 ftw)))
+ (snippet
+ ;; The build system doesn't allow us to unbundle the following
+ ;; libraries. hidapi is also heavily patched and upstream not
+ ;; actively maintained.
+ '(let ((keep-dirs '("nova-simd" "nova-tt" "hidapi"
+ "TLSF-2.4.6" "oscpack_1_1_0" "." "..")))
+ (with-directory-excursion "./external_libraries"
+ (for-each
+ delete-file-recursively
+ (scandir "."
+ (lambda (x)
+ (and (eq? (stat:type (stat x)) 'directory)
+ (not (member (basename x) keep-dirs)))))))
+ ;; To find the Guix provided ableton-link library.
+ (substitute* "lang/CMakeLists.txt"
+ (("include\\(\\.\\./external_libraries/link/\
AbletonLinkConfig\\.cmake\\)")
- "find_package(AbletonLink NAMES AbletonLink ableton-link \
-link REQUIRED)"))
- #t))))
+ "find_package(AbletonLink NAMES AbletonLink ableton-link \
+link REQUIRED)"))))))
(build-system cmake-build-system)
(outputs
- '("out" ;core language
- "ide")) ;qt ide
+ '("out" ;core language
+ "ide")) ;qt ide
(arguments
`(#:configure-flags '("-DSYSTEM_BOOST=ON"
"-DSYSTEM_YAMLCPP=ON"
@@ -2964,8 +2964,7 @@ link REQUIRED)"))
;; The graphical tests also hang without it.
(add-after 'unpack 'set-home-directory
(lambda _
- (setenv "HOME" (getcwd))
- #t))
+ (setenv "HOME" (getcwd))))
(add-after 'unpack 'patch-scclass-dir
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@@ -2976,13 +2975,11 @@ link REQUIRED)"))
(((string-append
"SC_Filesystem::instance\\(\\)\\.getDirectory"
"\\(DirName::Resource\\) / CLASS_LIB_DIR_NAME"))
- (string-append "Path(\"" scclass-dir "\")")))
- #t)))
+ (string-append "Path(\"" scclass-dir "\")"))))))
(add-before 'build 'prepare-x
(lambda _
(system "Xvfb &")
- (setenv "DISPLAY" ":0")
- #t))
+ (setenv "DISPLAY" ":0")))
(add-before 'install 'install-ide
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@@ -2990,8 +2987,7 @@ link REQUIRED)"))
(scide "editors/sc-ide/scide"))
(install-file scide
(string-append ide "/bin"))
- (delete-file scide)
- #t))))))
+ (delete-file scide)))))))
(native-inputs
(list ableton-link pkg-config qttools xorg-server-for-tests))
(inputs (list jack-1