diff options
Diffstat (limited to '.config/emacs/modules/bd--emms.el')
| -rw-r--r-- | .config/emacs/modules/bd--emms.el | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/.config/emacs/modules/bd--emms.el b/.config/emacs/modules/bd--emms.el index 40acf36..fe06cc8 100644 --- a/.config/emacs/modules/bd--emms.el +++ b/.config/emacs/modules/bd--emms.el @@ -1,14 +1,12 @@ ;; -*- lexical-binding: t; -*- -(defun emms-open-playlist-buffer () - "Opens the current playlist in the right -side window." - (interactive) - (if (get-buffer emms-playlist-buffer-name) - (progn (display-buffer-in-side-window (get-buffer emms-playlist-buffer-name) '((side . right))) - (select-window (get-buffer-window emms-playlist-buffer-name))) - (message "The Ainur cannot hear you..."))) +(add-to-list 'display-buffer-alist + `(,emms-playlist-buffer-name + (display-buffer-in-side-window) + (side . right) + (window-width . 45))) + (defun emms-quickstart () "Queues a shuffled playlist and starts @@ -21,13 +19,18 @@ playback." (emms-shuffle)) (use-package emms - :bind (("C-z C-m" . 'emms-open-playlist-buffer) - ("C-z C-p" . 'emms-play-playlist) - ("C-z C-s" . 'emms-quickstart)) + :bind (("C-z C-s" . 'emms-quickstart) + ("C-z C-p" . 'emms-play-playlist)) :config (emms-all) (add-to-list 'emms-info-functions 'emms-info-functions 'emms-info-mpd) (add-to-list 'emms-player-list 'emms-player-mpd) + (keymap-global-set "C-z C-m" (lambda () + (interactive) + (if (get-buffer emms-playlist-buffer-name) + (progn (display-buffer emms-playlist-buffer-name) + (select-window (get-buffer-window emms-playlist-buffer-name))) + (message "The Ainur cannot hear you...")))) :custom ;; make sure mpd is configured similarly (emms-player-mpd-server-name "localhost") |