gnu: emacs-emms: Fix metadata retrieval for MP3 and FLAC files.

* gnu/packages/emacs.scm (emacs-emms): Reference find, mpg321 and metaflac by
their complete file path.
[inputs]: Add flac.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Maxim Cournoyer 2017-09-13 17:13:19 -04:00 committed by Ludovic Courtès
parent 24d158136f
commit 66e5570037
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 10 additions and 0 deletions

View File

@ -842,6 +842,7 @@ provides an optional IDE-like error list.")
(replace 'configure (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"))
(flac (assoc-ref inputs "flac"))
(vorbis (assoc-ref inputs "vorbis-tools")) (vorbis (assoc-ref inputs "vorbis-tools"))
(alsa (assoc-ref inputs "alsa-utils")) (alsa (assoc-ref inputs "alsa-utils"))
(mpg321 (assoc-ref inputs "mpg321")) (mpg321 (assoc-ref inputs "mpg321"))
@ -864,6 +865,9 @@ provides an optional IDE-like error list.")
(substitute* "emms-player-simple.el" (substitute* "emms-player-simple.el"
(("\"ogg123\"") (("\"ogg123\"")
(string-append "\"" vorbis "/bin/ogg123\""))) (string-append "\"" vorbis "/bin/ogg123\"")))
(substitute* "emms-player-simple.el"
(("\"mpg321\"")
(string-append "\"" mpg321 "/bin/mpg321\"")))
(emacs-substitute-variables "emms-info-ogginfo.el" (emacs-substitute-variables "emms-info-ogginfo.el"
("emms-info-ogginfo-program-name" ("emms-info-ogginfo-program-name"
(string-append vorbis "/bin/ogginfo"))) (string-append vorbis "/bin/ogginfo")))
@ -873,6 +877,11 @@ provides an optional IDE-like error list.")
(emacs-substitute-variables "emms-info-mp3info.el" (emacs-substitute-variables "emms-info-mp3info.el"
("emms-info-mp3info-program-name" ("emms-info-mp3info-program-name"
(string-append mp3info "/bin/mp3info"))) (string-append mp3info "/bin/mp3info")))
(emacs-substitute-variables "emms-info-metaflac.el"
("emms-info-metaflac-program-name"
(string-append flac "/bin/metaflac")))
(emacs-substitute-variables "emms-source-file.el"
("emms-source-file-gnu-find" (which "find")))
(substitute* "emms-volume-amixer.el" (substitute* "emms-volume-amixer.el"
(("\"amixer\"") (("\"amixer\"")
(string-append "\"" alsa "/bin/amixer\""))) (string-append "\"" alsa "/bin/amixer\"")))
@ -898,6 +907,7 @@ provides an optional IDE-like error list.")
(native-inputs `(("emacs" ,emacs-minimal) ;for (guix build emacs-utils) (native-inputs `(("emacs" ,emacs-minimal) ;for (guix build emacs-utils)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))
(inputs `(("alsa-utils" ,alsa-utils) (inputs `(("alsa-utils" ,alsa-utils)
("flac" ,flac) ;for metaflac
("vorbis-tools" ,vorbis-tools) ("vorbis-tools" ,vorbis-tools)
("mpg321" ,mpg321) ("mpg321" ,mpg321)
("taglib" ,taglib) ("taglib" ,taglib)