nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: orpheus: Use 'modify-phases'. 

* gnu/packages/orpheus.scm (orpheus)[arguments]: Use the 'modify-phases'
syntax.
This commit is contained in:
Efraim Flashner 2016-09-23 17:37:53 +03:00
parent 5bd6270211
commit 047cd01d11
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 39 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
gnu/packages/orpheus.scm
View File

@ -53,46 +53,45 @@
("which" ,which))) ("which" ,which)))
(arguments (arguments
`(#:phases `(#:phases
(alist-replace (modify-phases %standard-phases
'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; This old `configure' script does not support variables passed as ;; This old `configure' script does not support variables passed as
;; arguments. ;; arguments.
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(setenv "CONFIG_SHELL" (which "bash")) (setenv "CONFIG_SHELL" (which "bash"))
(setenv "SHELL" (which "bash")) (setenv "SHELL" (which "bash"))
(setenv "LIBS" "-logg") ;doesn't declare its use of libogg (setenv "LIBS" "-logg") ;doesn't declare its use of libogg
(zero? (zero?
(system* "./configure" (string-append "--prefix=" out) (system* "./configure" (string-append "--prefix=" out)
,@(if (string=? "mips64el-linux" ,@(if (string=? "mips64el-linux"
(%current-system)) (%current-system))
'("--host=mips64el-unknown-linux-gnu") '("--host=mips64el-unknown-linux-gnu")
'()) '())
)))) )))))
(alist-cons-after (add-after 'configure 'configure-players
'configure 'configure-players (lambda* (#:key inputs #:allow-other-keys)
(lambda* (#:key inputs #:allow-other-keys) ;; To avoid propagating the mpg321 and vorbis-tools inputs, we can
;; To avoid propagating the mpg321 and vorbis-tools inputs, we can ;; make the orpheus application execute the needed players from the
;; make the orpheus application execute the needed players from the ;; store.
;; store. (let ((ogg123 (string-append (assoc-ref inputs "vorbis-tools")
(let ((ogg123 (string-append (assoc-ref inputs "vorbis-tools") "/bin/ogg123"))
"/bin/ogg123")) (mpg321 (string-append (assoc-ref inputs "mpg321")
(mpg321 (string-append (assoc-ref inputs "mpg321") "/bin/mpg321"))
"/bin/mpg321")) (which (string-append (assoc-ref inputs "which")
(which (string-append (assoc-ref inputs "which") "/bin/which")))
"/bin/which"))) (substitute* "src/orpheusconf.cc"
(substitute* "src/orpheusconf.cc" (("ogg123") ogg123)
(("ogg123") ogg123) (("which") which)
(("which") which) (("mpg321") mpg321))
(("mpg321") mpg321)))) #t)))
(alist-cons-before (add-before 'build 'patch-shells
'build 'patch-shells (lambda _
(lambda _ (substitute* '("src/mp3track.cc"
(substitute* '("src/mp3track.cc" "src/streamtrack.cc"
"src/streamtrack.cc" "src/oggtrack.cc")
"src/oggtrack.cc") (("/bin/sh") (which "bash")))
(("/bin/sh") (which "bash")))) #t)))))
%standard-phases)))))
(home-page "http://thekonst.net/en/orpheus") (home-page "http://thekonst.net/en/orpheus")
(synopsis "Text-mode audio player") (synopsis "Text-mode audio player")
(description (description