From 30eff3776214313d0d8840a04d498e62248f13f9 Mon Sep 17 00:00:00 2001 From: bd Date: Tue, 16 Jan 2024 23:42:58 -0700 Subject: Offloaded logic of custom display functions to `display-buffer-alist', removed function. --- .config/emacs/modules/bd--emms.el | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) (limited to '.config/emacs/modules/bd--emms.el') 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") -- cgit v1.2.3