diff options
author | Yoni Rabkin <yoni@rabkins.net> | 2021-04-07 12:04:01 -0400 |
---|---|---|
committer | Yoni Rabkin <yoni@rabkins.net> | 2021-04-07 12:04:01 -0400 |
commit | f79343bf03f6ece09638ec27eeb831c0abe59667 (patch) | |
tree | c23cf8c7fa79db666efc5563c604e7044c907afc /emms-mode-line-icon.el | |
parent | 5c72f041893a2a88aa01ccb7828c498145fe1ac1 (diff) |
* emms-mode-line-icon.el: hiding icon made easy
It is now possible to easily hide the mode-line icon. The manual as been
updated with this information as well.
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) |