mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-04 18:07:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-emms: Update to 6.0.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-emms): Update to 6.0.
[arguments]: Add substitution for exiftool.
[inputs]: Add perl-image-exiftool.
This commit is contained in:
Michael Rohleder 2020-10-28 22:17:53 +01:00 committed by Nicolas Goaziou
parent 09bbf0b4f1
commit f21ef94560
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/emacs-xyz.scm
View file

@ -1585,14 +1585,14 @@ (define-public emacs-eww-lnum
(define emacs-emms-print-metadata (define emacs-emms-print-metadata
(package (package
(name "emacs-emms-print-metadata") (name "emacs-emms-print-metadata")
(version "5.42") (version "6.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/" (uri (string-append "https://elpa.gnu.org/packages/"
"emms-" version ".tar")) "emms-" version ".tar"))
(sha256 (sha256
(base32 "1khx1fvllrs6w9kxk12mp1hj309c90mc7lkq1vvlqlr7vd6zmnpj")))) (base32 "1zxiic91zhgdkxyfgyh1vkv4lzg90vq362y9k739n28ci6z4xzwm"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags '("emms-print-metadata") `(#:make-flags '("emms-print-metadata")
@ -1630,7 +1630,7 @@ (define-public emacs-emms
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'set-external-programs (add-after 'unpack 'set-external-programs
;; Specify the absolute file names of the various programs ;; Specify the absolute file names of the various programs
;; so that everything works out-of-the-box. ;; so that everything works out-of-the-box. (tinytag missing)
(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"))
(emms-print-metadata (assoc-ref inputs "emms-print-metadata")) (emms-print-metadata (assoc-ref inputs "emms-print-metadata"))
@ -1640,6 +1640,7 @@ (define-public emacs-emms
(mpg321 (assoc-ref inputs "mpg321")) (mpg321 (assoc-ref inputs "mpg321"))
(mp3info (assoc-ref inputs "mp3info")) (mp3info (assoc-ref inputs "mp3info"))
(mutagen (assoc-ref inputs "mutagen")) (mutagen (assoc-ref inputs "mutagen"))
(exiftool (assoc-ref inputs "perl-image-exiftool"))
(opus (assoc-ref inputs "opus-tools"))) (opus (assoc-ref inputs "opus-tools")))
(emacs-substitute-variables "emms-player-mpg321-remote.el" (emacs-substitute-variables "emms-player-mpg321-remote.el"
("emms-player-mpg321-remote-command" ("emms-player-mpg321-remote-command"
@ -1673,6 +1674,9 @@ (define-public emacs-emms
(substitute* "emms-tag-editor.el" (substitute* "emms-tag-editor.el"
(("\"mid3v2\"") (("\"mid3v2\"")
(string-append "\"" mutagen "/bin/mid3v2\""))) (string-append "\"" mutagen "/bin/mid3v2\"")))
(substitute* "emms-info-exiftool.el"
(("\"exiftool\"")
(string-append "\"" exiftool "/bin/exiftool\"")))
#t)))))) #t))))))
(inputs (inputs
`(("emms-print-metadata" ,emacs-emms-print-metadata) `(("emms-print-metadata" ,emacs-emms-print-metadata)
@ -1682,6 +1686,7 @@ (define-public emacs-emms
("mpg321" ,mpg321) ("mpg321" ,mpg321)
("mp3info" ,mp3info) ("mp3info" ,mp3info)
("mutagen" ,python-mutagen) ("mutagen" ,python-mutagen)
("perl-image-exiftool" ,perl-image-exiftool)
("opus-tools" ,opus-tools))))) ("opus-tools" ,opus-tools)))))
(define-public emacs-emms-mode-line-cycle (define-public emacs-emms-mode-line-cycle