Fix something strange with emms variable definition

This commit is contained in:
Evie Litherland-Smith 2024-01-14 08:23:03 +00:00
parent 15e14683b6
commit 2654c0f28d

View file

@ -1374,36 +1374,35 @@ Set fill column to 88 and enable display in python buffers
** EMMS ** EMMS
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq emms-mode-line-icon-enabled-p nil) (setq emms-mode-line-icon-enabled-p nil)
(let ((music-dir (expand-file-name "~/Music/"))) (use-package emms
(use-package emms :bind (("C-c e e" . emms-smart-browse)
:bind (("C-c e e" . emms-smart-browse) ("C-c e p" . emms-pause)
("C-c e p" . emms-pause) ("C-c e s" . emms-stop)
("C-c e s" . emms-stop) ("C-c e z" . emms-toggle-repeat-track)
("C-c e z" . emms-toggle-repeat-track) ("C-c e C-r" . emms-toggle-repeat-playlist)
("C-c e C-r" . emms-toggle-repeat-playlist) ("C-c e C-b" . emms-browser)
("C-c e C-b" . emms-browser) ("C-c e C-p" . emms-playlist-mode-go)
("C-c e C-p" . emms-playlist-mode-go) ("<XF86AudioPlay>" . emms-pause)
("<XF86AudioPlay>" . emms-pause) ("<XF86AudioPrev>" . emms-previous)
("<XF86AudioPrev>" . emms-previous) ("<XF86AudioNext>" . emms-next)
("<XF86AudioNext>" . emms-next) :map emms-browser-mode-map
:map emms-browser-mode-map ("e" . emms-smart-browse)
("e" . emms-smart-browse) ("P" . emms-pause)
("P" . emms-pause) ("S" . emms-stop)
("S" . emms-stop) ("z" . emms-toggle-repeat-track)
("z" . emms-toggle-repeat-track) :map emms-playlist-mode-map
:map emms-playlist-mode-map ("e" . emms-smart-browse))
("e" . emms-smart-browse)) :custom
:custom (emms-source-file-default-directory "~/Music/")
(emms-source-file-default-directory music-dir) (emms-lyrics-dir (expand-file-name "lyrics" "~/Music/"))
(emms-lyrics-dir (expand-file-name "lyrics" music-dir)) (emms-browser-covers #'emms-browser-cache-thumbnail-async)
(emms-browser-covers #'emms-browser-cache-thumbnail-async) (emms-browser-default-covers (list (expand-file-name "placeholder.jpg" "~/Music/")))
(emms-browser-default-covers (list (expand-file-name "placeholder.jpg" music-dir))) (emms-repeat-playlist t)
(emms-repeat-playlist t) :config
:config (emms-all)
(emms-all) (emms-default-players)
(emms-default-players) (emms-mpris-enable)
(emms-mpris-enable) (add-hook 'emms-player-started-hook #'emms-show))
(add-hook 'emms-player-started-hook #'emms-show)))
#+end_src #+end_src
* Writing * Writing