Stop searching for (ELPA unsupported) emms-print-metadata program
This commit is contained in:
parent
f150b04523
commit
eac2d2c627
18
README.org
18
README.org
@ -3483,24 +3483,6 @@ initializes a list of =webjump-sites=.
|
||||
'(emms-playing-time-display-format " %s ")
|
||||
'(emms-playlist-mode-center-when-go t))
|
||||
|
||||
(defun my-emms-print-metadata-find ()
|
||||
(require 'find-func)
|
||||
(locate-file
|
||||
"emms-print-metadata"
|
||||
(expand-file-name
|
||||
"src"
|
||||
(file-name-directory (find-library-name "emms")))
|
||||
exec-suffixes #'file-executable-p))
|
||||
|
||||
(with-eval-after-load 'emms
|
||||
(require 'emms-info-libtag)
|
||||
(let ((emms-print-metadata (my-emms-print-metadata-find)))
|
||||
(when emms-print-metadata
|
||||
(custom-set-variables
|
||||
'(emms-info-functions nil)
|
||||
`(emms-info-libtag-program-name ,emms-print-metadata))
|
||||
(add-hook 'emms-info-functions #'emms-info-libtag))))
|
||||
|
||||
(with-eval-after-load 'elfeed-show
|
||||
(when (require 'emms-setup nil 'noerror)
|
||||
(emms-all)))
|
||||
|
Loading…
Reference in New Issue
Block a user