me
/
guix
Archived
1
0
Fork 0
Code

gnu: emms: Use 'modify-phases'. 

* gnu/packages/emacs.scm (emms)[arguments]: Use 'modify-phases'.
master
Efraim Flashner 2016-05-31 22:05:26 +03:00
parent 0985f5269c
commit 2fe176be0f
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 58 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gnu/packages/emacs.scm
View File

@ -859,8 +859,9 @@ provides an optional IDE-like error list.")
#:imported-modules (,@%gnu-build-system-modules
(guix build emacs-utils))
#:phases (alist-replace
'configure
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(vorbis (assoc-ref inputs "vorbis-tools"))
@ -899,18 +900,15 @@ provides an optional IDE-like error list.")
(string-append "\"" alsa "/bin/amixer\"")))
(substitute* "emms-tag-editor.el"
(("\"mp3info\"")
(string-append "\"" mp3info "/bin/mp3info\""))))))
(alist-cons-before
'install 'pre-install
(string-append "\"" mp3info "/bin/mp3info\"")))))))
(add-before 'install 'pre-install
(lambda* (#:key outputs #:allow-other-keys)
;; The 'install' rule expects the target directory to
;; exist.
;; The 'install' rule expects the target directory to exist.
(let* ((out (assoc-ref outputs "out"))
(man1 (string-append out "/share/man/man1")))
(mkdir-p man1)
#t))
(alist-cons-after
'install 'post-install
#t)))
(add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(target (string-append
@ -920,8 +918,7 @@ provides an optional IDE-like error list.")
"emms-autoloads.el"))
(mkdir-p (dirname target))
(copy-file "src/emms-print-metadata" target)
(chmod target #o555)))
%standard-phases)))
(chmod target #o555)))))
#:tests? #f))
(native-inputs `(("emacs" ,emacs-minimal) ;for (guix build emacs-utils)
("texinfo" ,texinfo)))