X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=emus.git;a=blobdiff_plain;f=emus.el;h=998a1e8111534e88573dd53cdd3b1c5a38d968b7;hp=e3d17f61f9a23ec4d2b896fa9349c26c7a5d01ea;hb=b8155ff95e704becb4a93e18d286ceee504b1463;hpb=bd337abef12edf41d40e1cd22e4229168df9adbe 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))))