: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
(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))))