From b8155ff95e704becb4a93e18d286ceee504b1463 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Tue, 10 Dec 2019 09:15:16 +0100 Subject: [PATCH] Always keep selected track centred in browser. --- emus.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/emus.el b/emus.el index e3d17f6..998a1e8 100644 --- a/emus.el +++ b/emus.el @@ -64,19 +64,19 @@ :type '(string)) (defface emus-artist - '((t :inherit font-lock-keyword-face :background "#333")) + '((t :inherit font-lock-string-face :background "#333")) "Face used for artist names in browser.") (defface emus-album - '((t :inherit font-lock-function-name-face :background "#222")) + '((t :inherit font-lock-constant-face :background "#222")) "Face used for album names in browser.") (defface emus-track - '((t :inherit font-lock-string-face)) + '((t :inherit font-lock-keyword-face)) "Face used for track titles in browser.") (defface emus-track-current - '((t :inherit font-lock-string-face :inverse-video t)) + '((t :inherit font-lock-keyword-face :inverse-video t)) "Face used for track titles in browser.") (defface emus-cursor @@ -241,6 +241,7 @@ (setq emus-current-track track) (emus--update-track old-track) (emus--update-track track) + (emus-centre-current) (emus--resume-cp)))) (defun emus-select-track (track) @@ -251,6 +252,7 @@ (setq emus-current-track track) (emus--update-track old-track) (emus--update-track track) + (emus-centre-current) (emus-send-cmd "o") (emus--resume-cp)))) @@ -459,7 +461,6 @@ (defun emus-centre-current () (interactive) (when (get-buffer "*emus*") - (switch-to-buffer "*emus*") (when emus-current-track (goto-char (emus-track-browser-pos emus-current-track)) (recenter)))) -- 2.20.1