Offloaded logic of custom display functions to `display-buffer-alist', removed function.

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")