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

gnu: emms: Let the build system install emms-print-metadata.1. 

Reported by effa`` on #guix.

* gnu/packages/emacs.scm (emms)[arguments] <pre-install>: Remove
  'copy-file' invocation.
This commit is contained in:
Ludovic Courtès 2015-01-19 16:37:05 +01:00
parent d35c5e29b6
commit c72aed6d8c
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/emacs.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Taylan Ulrich Bayirli/Kammer <taylanbayirli@gmail.com> ;;; Copyright © 2014 Taylan Ulrich Bayirli/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014 Alex Kost <alezost@gmail.com> ;;; Copyright © 2014 Alex Kost <alezost@gmail.com>
;;; ;;;
@ -482,13 +482,12 @@ operations.")
(alist-cons-before (alist-cons-before
'install 'pre-install 'install 'pre-install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; The 'install' rule expects 'emms-print-metadata.1' to ;; The 'install' rule expects the target directory to
;; be already installed. ;; 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)
(copy-file "emms-print-metadata.1" #t))
(string-append man1 "/emms-print-metadata.1"))))
(alist-cons-after (alist-cons-after
'install 'post-install 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
@ -505,8 +504,7 @@ operations.")
#:tests? #f)) #:tests? #f))
(native-inputs `(("emacs" ,emacs) ;for (guix build emacs-utils) (native-inputs `(("emacs" ,emacs) ;for (guix build emacs-utils)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))
(inputs `(;("perl" ,perl) ;for 'emms-print-metadata.pl' (inputs `(("alsa-utils" ,alsa-utils)
("alsa-utils" ,alsa-utils)
("vorbis-tools" ,vorbis-tools) ("vorbis-tools" ,vorbis-tools)
("mpg321" ,mpg321) ("mpg321" ,mpg321)
("taglib" ,taglib) ("taglib" ,taglib)