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

gnu: emms: Use 'modify-phases'. 

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