Clean up "lst:set-emms-options" and remove obsolete comments

This commit is contained in:
Gerard Vermeulen 2024-06-16 14:05:31 +02:00
parent fb236d6825
commit 38502a12a5

View File

@ -6065,25 +6065,17 @@ for ~mpv~ while eliminating use of ~mpd~.
#+begin_src emacs-lisp -n :results silent
(when (ensure-package-installation 'emms)
(with-eval-after-load 'emms
(emms-all)
;; Since `emms-all' may add `emms-player-mpd' to `emms-player-list',
;; get rid off `emms-player-mpd' after calling `emms-all'.
(emms-all) ;; Restrict now to `emms-player-mpd' use only.
(setopt emms-player-list '(emms-player-mpv)))
(with-eval-after-load 'emms-mode-line
(setopt emms-mode-line-format ""))
(with-eval-after-load 'emms-player-mpv
(setopt emms-player-mpv-update-metadata t)
;; Uncomment the next two lines in case of too many broken YouTube links:
(add-to-list 'emms-player-mpv-parameters "--ytdl-format=best" 'append)
(add-to-list 'emms-player-mpv-parameters "--config=no" 'append)
;; The two previous lines may make the setup less user friendly.
(add-to-list 'emms-player-mpv-parameters "--fullscreen" 'append))
(setopt emms-player-mpv-update-metadata t
emms-player-mpv-parameters
(append emms-player-mpv-parameters
'("--ytdl-format=best" "--config=no" "--fullscreen"))))
(with-eval-after-load 'emms-playing-time
(setopt emms-playing-time-display-format " %s "))
(with-eval-after-load 'emms-streams
(setopt emms-streams-file
(no-littering-expand-etc-file-name "emms/streams.emms"))))