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

18
gnu/packages/audio.scm
View file

@ -2912,7 +2912,8 @@ background file post-processing.")
(package (package
(name "supercollider") (name "supercollider")
(version "3.12.1") (version "3.12.1")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/supercollider/supercollider") (url "https://github.com/supercollider/supercollider")
@ -2943,8 +2944,7 @@ background file post-processing.")
(("include\\(\\.\\./external_libraries/link/\ (("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
@ -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