diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2017-09-13 17:13:19 -0400 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-09-15 18:31:53 +0200 |
| commit | 66e557003771e43b6ccd312dae98c7b471914084 (patch) | |
| tree | d76bb4057da357d9235a0a0660985741a829903b | |
| parent | 24d158136fa8ec56a643bf707c2563d9721ed806 (diff) | |
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>
| -rw-r--r-- | gnu/packages/emacs.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index c6d5766cbd..bd127622f3 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -842,6 +842,7 @@ provides an optional IDE-like error list.") (replace 'configure (lambda* (#:key inputs outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out")) + (flac (assoc-ref inputs "flac")) (vorbis (assoc-ref inputs "vorbis-tools")) (alsa (assoc-ref inputs "alsa-utils")) (mpg321 (assoc-ref inputs "mpg321")) @@ -864,6 +865,9 @@ provides an optional IDE-like error list.") (substitute* "emms-player-simple.el" (("\"ogg123\"") (string-append "\"" vorbis "/bin/ogg123\""))) + (substitute* "emms-player-simple.el" + (("\"mpg321\"") + (string-append "\"" mpg321 "/bin/mpg321\""))) (emacs-substitute-variables "emms-info-ogginfo.el" ("emms-info-ogginfo-program-name" (string-append vorbis "/bin/ogginfo"))) @@ -873,6 +877,11 @@ provides an optional IDE-like error list.") (emacs-substitute-variables "emms-info-mp3info.el" ("emms-info-mp3info-program-name" (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" (("\"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) ("texinfo" ,texinfo))) (inputs `(("alsa-utils" ,alsa-utils) + ("flac" ,flac) ;for metaflac ("vorbis-tools" ,vorbis-tools) ("mpg321" ,mpg321) ("taglib" ,taglib) |