From 5e88f995fec0d274da36801cb97052959b928bcd Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Thu, 8 Jun 2006 14:38:00 +0000 Subject: emms-metaplaylist-mode: Fix bug introduced by the recent emms-playlist-mode overhaul. Add faces for light backgrounds. darcs-hash:20060608143846-1bfb2-e25dbaa46a3651f1acfd1aefc88f9ad32f03c365.gz --- emms-metaplaylist-mode.el | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/emms-metaplaylist-mode.el b/emms-metaplaylist-mode.el index ecaa083..ef14a2f 100644 --- a/emms-metaplaylist-mode.el +++ b/emms-metaplaylist-mode.el @@ -54,6 +54,8 @@ (defface emms-metaplaylist-mode-face '((((class color) (background dark)) (:foreground "AntiqueWhite3")) + (((class color) (background light)) + (:foreground "red3")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "WhiteSmoke"))) @@ -63,6 +65,8 @@ (defface emms-metaplaylist-mode-current-face '((((class color) (background dark)) (:foreground "red2")) + (((class color) (background light)) + (:background "red3" :foreground "white")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "red3"))) @@ -116,14 +120,13 @@ (mapc (lambda (buf) (let ((inhibit-read-only t)) (insert (buffer-name buf)) - (emms-playlist-mode-overlay-track - (point-at-bol) - (point-at-eol) - (if (eq buf emms-playlist-buffer) - 'emms-metaplaylist-mode-face - 'emms-metaplaylist-mode-current-face - 1) - (newline)))) + (add-text-properties + (point-at-bol) (point-at-eol) + (list 'face + (if (eq buf emms-playlist-buffer) + 'emms-metaplaylist-mode-current-face + 'emms-metaplaylist-mode-face))) + (newline))) playlists)) (current-buffer))) ; return the buffer as lisp obj (error "No Emms playlist buffers")))) -- cgit v1.2.3