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