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-playing-time-display-format " %s ")
|
||||||
'(emms-playlist-mode-center-when-go t))
|
'(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
|
(with-eval-after-load 'elfeed-show
|
||||||
(when (require 'emms-setup nil 'noerror)
|
(when (require 'emms-setup nil 'noerror)
|
||||||
(emms-all)))
|
(emms-all)))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user