Ensure elfeed and emms installation in their own sections

This commit is contained in:
Gerard Vermeulen 2022-04-30 11:00:47 +02:00
parent 1887db12e8
commit e78aa66830

View File

@ -214,9 +214,7 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
deadgrep ; use ripgrep from Emacs
eglot ; Emacs polyGLOT LSP client
electric-operator ; automatic spacing around operators
elfeed ; web feed reader
embark ; act on any buffer selection
emms ; Emacs Multi-Media System
htmlize ; convert buffer contents to HTML
iedit ; simultaneous multi-entity editing
keycast ; show current command with binding
@ -3644,29 +3642,30 @@ enable =emms=.
#+caption: Configure =elfeed=.
#+name: lst:configure-elfeed
#+begin_src emacs-lisp
(when (fboundp 'elfeed)
(global-set-key (kbd "C-x w") #'elfeed)
(when (ensure-package-installation 'elfeed) ; web feed reader
(when (fboundp 'elfeed)
(global-set-key (kbd "C-x w") #'elfeed))
(with-eval-after-load 'elfeed
(custom-set-variables
'(elfeed-feeds
'(("http://www.howardism.org/index.xml" h-abrams)
("https://ambrevar.xyz/atom.xml" p-neirhardt)
("https://emacshorrors.com/feed.atom" v-schneidermann)
("https://emacsninja.com/emacs.atom" v-schneidermann)
("https://feeds.feedburner.com/InterceptedWithJeremyScahill" j-scahill)
("https://nullprogram.com/feed/" c-wellons)
("https://oremacs.com/atom.xml" o-krehel)
("https://planet.emacslife.com/atom.xml" planet-emacs)
("https://protesilaos.com/codelog.xml" p-stavrou)
("https://sachachua.com/blog/category/emacs/feed" s-chua)
("https://sciencescitoyennes.org/feed/" sciences)
("https://updates.orgmode.org/feed/updates" org-updates)
("https://www.aclu.org/taxonomy/feed-term/2152/feed" aclu)
("https://www.bof.nl/rss/" bof)
("https://www.democracynow.org/podcast-video.xml" dn)
("https://www.laquadrature.net/fr/rss.xml" lqdn)
("https://www.lemonde.fr/blog/huet/feed/" sciences)))))
(custom-set-variables
'(elfeed-feeds
'(("http://www.howardism.org/index.xml" h-abrams)
("https://ambrevar.xyz/atom.xml" p-neirhardt)
("https://emacshorrors.com/feed.atom" v-schneidermann)
("https://emacsninja.com/emacs.atom" v-schneidermann)
("https://feeds.feedburner.com/InterceptedWithJeremyScahill" j-scahill)
("https://nullprogram.com/feed/" c-wellons)
("https://oremacs.com/atom.xml" o-krehel)
("https://planet.emacslife.com/atom.xml" planet-emacs)
("https://protesilaos.com/codelog.xml" p-stavrou)
("https://sachachua.com/blog/category/emacs/feed" s-chua)
("https://sciencescitoyennes.org/feed/" sciences)
("https://updates.orgmode.org/feed/updates" org-updates)
("https://www.aclu.org/taxonomy/feed-term/2152/feed" aclu)
("https://www.bof.nl/rss/" bof)
("https://www.democracynow.org/podcast-video.xml" dn)
("https://www.laquadrature.net/fr/rss.xml" lqdn)
("https://www.lemonde.fr/blog/huet/feed/" sciences)))))
(with-eval-after-load 'elfeed-show
(when (require 'emms-setup nil 'noerror)
@ -3685,38 +3684,40 @@ using =emms= with =elfeed=. Listing [[lst:configure-emms]] configures =emms=.
#+caption: Configure =emms=.
#+name: lst:configure-emms
#+begin_src emacs-lisp
(with-eval-after-load 'emms
(custom-set-variables
'(emms-player-list '(emms-player-mpd emms-player-mpv))))
(when (ensure-package-installation 'emms) ; Emacs Multi-Media System
(with-eval-after-load 'emms
(custom-set-variables
'(emms-player-list '(emms-player-mpd emms-player-mpv))))
(with-eval-after-load 'emms-mode-line
(custom-set-variables
'(emms-mode-line-format "")))
(with-eval-after-load 'emms-mode-line
(custom-set-variables
'(emms-mode-line-format "")))
(with-eval-after-load 'emms-player-mpd
(custom-set-variables
`(emms-player-mpd-music-directory ,(expand-file-name "~/Music"))
'(emms-player-mpd-server-name "localhost")
'(emms-player-mpd-server-port "6600")
'(emms-player-mpd-verbose t)))
(with-eval-after-load 'emms-player-mpd
(custom-set-variables
`(emms-player-mpd-music-directory ,(expand-file-name "~/Music"))
'(emms-player-mpd-server-name "localhost")
'(emms-player-mpd-server-port "6600")
'(emms-player-mpd-verbose t)))
(with-eval-after-load 'emms-player-mpv
(custom-set-variables
'(emms-player-mpv-ipc-method 'ipc-server)
'(emms-player-mpv-update-metadata t)))
(with-eval-after-load 'emms-player-mpv
(custom-set-variables
'(emms-player-mpv-ipc-method 'ipc-server)
'(emms-player-mpv-update-metadata t)))
(with-eval-after-load 'emms-playing-time
(custom-set-variables
'(emms-playing-time-display-format " %s ")))
(with-eval-after-load 'emms-playing-time
(custom-set-variables
'(emms-playing-time-display-format " %s ")))
(with-eval-after-load 'emms-playlist-mode
(custom-set-variables
'(emms-playlist-mode-center-when-go t)))
(with-eval-after-load 'emms-playlist-mode
(custom-set-variables
'(emms-playlist-mode-center-when-go t)))
(with-eval-after-load 'emms-streams
(custom-set-variables
`(emms-streams-file ,(no-littering-expand-etc-file-name "emms/streams.emms")))
(emms-all))
(with-eval-after-load 'emms-streams
(custom-set-variables
`(emms-streams-file
,(no-littering-expand-etc-file-name "emms/streams.emms")))
(emms-all)))
#+end_src
*** Taming spurious buffers