me/guix
Archived
1
0
Fork 0
Code Activity

gnu: supercollider: Use G-expressions.

Browse source 
* gnu/packages/audio.scm (supercollider)[source]: Use G-expression in snippet.
[arguments]: Use G-expressions.
<#:phases>: Replace `(assoc-ref outputs ...)` with `#$output`.

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Zhu Zihao 2023-04-28 21:33:28 +08:00 • committed by 宋文武
parent c2cac2e985
commit 3972d5f03c
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 57 additions and 57 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
gnu/packages/audio.scm
View file

@ -3462,7 +3462,7 @@ background file post-processing.")
;; 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"
#~(let ((keep-dirs '("nova-simd" "nova-tt" "hidapi"
"TLSF-2.4.6" "oscpack_1_1_0" "." "..")))
(with-directory-excursion "./external_libraries"
(for-each
@ -3482,7 +3482,9 @@ link REQUIRED)"))))))
'("out" ;core language
"ide")) ;qt ide
(arguments
`(#:configure-flags '("-DSYSTEM_BOOST=ON"
(list
#:configure-flags
#~(list "-DSYSTEM_BOOST=ON"
"-DSYSTEM_YAMLCPP=ON"
"-DSC_QT=ON"
"-DCMAKE_BUILD_TYPE=Release"
@ -3490,7 +3492,7 @@ link REQUIRED)"))))))
"-DLIBSCSYNTH=ON"
"-DSC_EL=OFF") ;scel is packaged individually as emacs-scel
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
;; HOME must be defined otherwise supercollider throws a "ERROR:
;; Primitive '_FileMkDir' failed." error when generating the doc.
;; The graphical tests also hang without it.
@ -3498,10 +3500,9 @@ link REQUIRED)"))))))
(lambda _
(setenv "HOME" (getcwd))))
(add-after 'unpack 'patch-scclass-dir
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(scclass-dir
(string-append out
(lambda _
(let* ((scclass-dir
(string-append #$output
"/share/SuperCollider/SCClassLibrary")))
(substitute* "lang/LangSource/SC_LanguageConfig.cpp"
(((string-append
@ -3509,7 +3510,7 @@ link REQUIRED)"))))))
"\\(DirName::Resource\\) / CLASS_LIB_DIR_NAME"))
(string-append "Path(\"" scclass-dir "\")"))))))
(add-after 'patch-scclass-dir 'fix-struct-SOUNDFILE-tag
(lambda* _
(lambda _
(display (getcwd)) (newline)
(substitute* "include/plugin_interface/SC_SndBuf.h"
(("SNDFILE_tag")
@ -3519,9 +3520,8 @@ link REQUIRED)"))))))
(system "Xvfb &")
(setenv "DISPLAY" ":0")))
(add-before 'install 'install-ide
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(ide (assoc-ref outputs "ide"))
(lambda _
(let* ((ide #$output:ide)
(scide "editors/sc-ide/scide"))
(install-file scide
(string-append ide "/bin"))