From f79343bf03f6ece09638ec27eeb831c0abe59667 Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Wed, 7 Apr 2021 12:04:01 -0400 Subject: * 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. --- doc/emms.texinfo | 9 +++++++++ emms-mode-line-icon.el | 18 ++++++++++++------ emms.info | 47 +++++++++++++++++++++++++++-------------------- 3 files changed, 48 insertions(+), 26 deletions(-) diff --git a/doc/emms.texinfo b/doc/emms.texinfo index 2638b3a..77c27b2 100644 --- a/doc/emms.texinfo +++ b/doc/emms.texinfo @@ -2355,6 +2355,15 @@ To use this feature invoke: (emms-playing-time 1) @end lisp +A graphical icon can be displayed in the modeline when Emms is +playing. This feature is provided by @file{emms-mode-line-icon.el}. To +enable invoke the following and make sure that +@var{emms-mode-line-icon-enabled-p} is set to a non-nil value: + +@lisp +(require emms-mode-line-icon) +@end lisp + Note: `(emms-playing-time -1)' will disable emms-playing-time module completely, and is not recommended. (since some other emms modules may rely on it) 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) diff --git a/emms.info b/emms.info index 32238b4..06fffd2 100644 --- a/emms.info +++ b/emms.info @@ -1957,6 +1957,13 @@ which is provided by the file 'emms-playing-time.el'. (require 'emms-playing-time) (emms-playing-time 1) + A graphical icon can be displayed in the modeline when Emms is +playing. This feature is provided by 'emms-mode-line-icon.el'. To +enable invoke the following and make sure that +EMMS-MODE-LINE-ICON-ENABLED-P is set to a non-nil value: + + (require emms-mode-line-icon) + Note: '(emms-playing-time -1)' will disable emms-playing-time module completely, and is not recommended. (since some other emms modules may rely on it) @@ -3775,8 +3782,8 @@ Function Index * emms-player-start: Core Functions. (line 58) * emms-player-stop: Core Functions. (line 60) * emms-player-stopped: Core Functions. (line 62) -* emms-playing-time-disable-display: Emms Mode Line. (line 35) -* emms-playing-time-enable-display: Emms Mode Line. (line 32) +* emms-playing-time-disable-display: Emms Mode Line. (line 42) +* emms-playing-time-enable-display: Emms Mode Line. (line 39) * emms-playlist-current-selected-track: Core Functions. (line 53) * emms-playlist-limit-to-all: Limiting. (line 61) * emms-playlist-limit-to-description: Limiting. (line 31) @@ -4029,23 +4036,23 @@ Node: Sorting Playlists63407 Node: Persistent Playlists64876 Node: Editing Tracks66035 Node: Emms Mode Line69709 -Node: Limiting70877 -Node: Music Player Daemon73216 -Node: Lyrics76729 -Node: Volume78777 -Node: Streaming Audio80565 -Ref: Streaming Audio-Footnote-181157 -Node: APE / FLAC Commands81508 -Node: Bookmarks82215 -Node: Managing Playlists82926 -Node: GNU FM83949 -Node: Uploading Track Information85303 -Node: GNU FM Streaming86185 -Node: Copying86685 -Node: The GNU FDL124202 -Node: Concept Index146590 -Node: Function Index151448 -Node: Variable Index167140 -Node: Keybinding Index169609 +Node: Limiting71152 +Node: Music Player Daemon73491 +Node: Lyrics77004 +Node: Volume79052 +Node: Streaming Audio80840 +Ref: Streaming Audio-Footnote-181432 +Node: APE / FLAC Commands81783 +Node: Bookmarks82490 +Node: Managing Playlists83201 +Node: GNU FM84224 +Node: Uploading Track Information85578 +Node: GNU FM Streaming86460 +Node: Copying86960 +Node: The GNU FDL124477 +Node: Concept Index146865 +Node: Function Index151723 +Node: Variable Index167415 +Node: Keybinding Index169884  End Tag Table -- cgit v1.2.3