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