diff options
Diffstat (limited to 'emms-mode-line-icon.el')
| -rw-r--r-- | emms-mode-line-icon.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/emms-mode-line-icon.el b/emms-mode-line-icon.el index 7d54d7e..46bc4e7 100644 --- a/emms-mode-line-icon.el +++ b/emms-mode-line-icon.el @@ -33,6 +33,10 @@ (require 'emms-mode-line) + +(defvar emms-mode-line-icon-enabled-p t + "Disable icon display when NIL.") + (defvar emms-mode-line-icon-color "black" "Color of the little icon displayed in the mode-line.") @@ -64,12 +68,14 @@ static char *note[] = { \"#######..#\"};"))) (defun emms-mode-line-icon-function () - (concat " " - emms-mode-line-icon-before-format - (emms-propertize "NP:" 'display - (emms-mode-line-icon-generate - emms-mode-line-icon-color)) - (emms-mode-line-playlist-current))) + (if emms-mode-line-icon-enabled-p + (concat " " + emms-mode-line-icon-before-format + (emms-propertize "NP:" 'display + (emms-mode-line-icon-generate + emms-mode-line-icon-color)) + (emms-mode-line-playlist-current)) + (emms-mode-line-playlist-current))) (setq emms-mode-line-mode-line-function 'emms-mode-line-icon-function) |