Fix emms-playlist-mode keymap error

This commit is contained in:
contrapunctus 2022-01-15 00:44:11 +05:30
parent ffce737819
commit b3d08694d0
1 changed files with 24 additions and 26 deletions

View File

@ -1962,30 +1962,12 @@ An example of querying the Chronometrist file data - finding out how much time I
(:map dired-mode-map
("E" . #'contrapunctus-emms-hydra/body))
:commands
(emms-minimalistic emms emms-play-dired emms-add-dired)
(emms-all emms emms-play-dired emms-add-dired)
:config
(emms-minimalistic)
(emms-default-players)
(emms-all)
;; (emms-default-players)
(setq emms-player-mpv-parameters #'my-emms-mpv-parameters
emms-playlist-buffer-name "EMMS Playlist"
emms-info-tinytag-python-name "python3")
(bind-keys
:map emms-playlist-mode-map
("0" . #'emms-volume-raise)
("9" . #'emms-volume-lower)
("<up>" . #'emms-volume-raise)
("<down>" . #'emms-volume-lower)
("<left>" . #'emms-seek-backward)
("<right>" . #'emms-seek-forward)
("r" . #'next-line)
("c" . #'previous-line)
("R" . #'emms-next)
("C" . #'emms-previous)
("C-r" . #'emms-toggle-random-playlist)
("M-r" . #'emms-random)
("C-c" . #'emms-playlist-mode-center-current)
("SPC" . #'emms-pause)
("K" . #'emms-playlist-clear))
;; ;; This won't work for `emms-random', because it runs in a `save-excursion'
;; (add-to-list 'emms-playlist-selection-changed-hook 'emms-playlist-mode-center-current)
;; (--map (add-to-list 'emms-player-mpv-parameters it)
@ -2031,18 +2013,34 @@ An example of querying the Chronometrist file data - finding out how much time I
(append '("--sub-files="))
(apply #'concat)
(list)))))
(use-package emms-playlist-mode
:bind
(:map emms-playlist-mode-map
("0" . #'emms-volume-raise)
("9" . #'emms-volume-lower)
("<up>" . #'emms-volume-raise)
("<down>" . #'emms-volume-lower)
("<left>" . #'emms-seek-backward)
("<right>" . #'emms-seek-forward)
("r" . #'next-line)
("c" . #'previous-line)
("R" . #'emms-next)
("C" . #'emms-previous)
("C-r" . #'emms-toggle-random-playlist)
("M-r" . #'emms-random)
("C-c" . #'emms-playlist-mode-center-current)
("SPC" . #'emms-pause)
("K" . #'emms-playlist-clear))
:config (setq emms-playlist-buffer-name "EMMS Playlist"))
#+END_SRC
** Internet
*** eww
#+BEGIN_SRC emacs-lisp
(use-package eww
:hook
(eww-after-render . visual-line-mode)
(eww-after-render . visual-fill-column-mode)
:config
(setq shr-image-animate nil
shr-width -1)
(setq shr-image-animate nil)
:bind
;; start boon-specific config
(:map shr-map