;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'emms-mode-line) #@32 Disable icon display when NIL. (defvar emms-mode-line-icon-enabled-p t (#$ . 113)) #@54 Color of the little icon displayed in the mode-line. (defvar emms-mode-line-icon-color "black" (#$ . 202)) #@196 String to put before the icon, in the mode-line. For example, if you want to have something like : [ Foo - The Foo Song ] You should set it to "[", and set emms-mode-line-format to "%s ]" (defvar emms-mode-line-icon-before-format "" (#$ . 316)) #@14 (fn COLOR) (defalias 'emms-mode-line-icon-generate #[257 "\300\301\302\303\304\305\306\307Q\257\207" [image :type xpm :ascent center :data "/* XPM */\nstatic char *note[] = {\n/* width height num_colors chars_per_pixel */\n\" 10 11 2 1\",\n/* colors */\n\". c " "\",\n\"# c None s None\",\n/* pixels */\n\"###...####\",\n\"###.#...##\",\n\"###.###...\",\n\"###.#####.\",\n\"###.#####.\",\n\"#...#####.\",\n\"....#####.\",\n\"#..######.\",\n\"#######...\",\n\"######....\",\n\"#######..#\"};"] 10 (#$ . 574)]) (defalias 'emms-mode-line-icon-function #[0 "\203\303 \304\305\306\307\n!#\310 R\207\310 \207" [emms-mode-line-icon-enabled-p emms-mode-line-icon-before-format emms-mode-line-icon-color " " emms-propertize "NP:" display emms-mode-line-icon-generate emms-mode-line-playlist-current] 7]) (byte-code "\301\302\303\304\305#\210\306\307!\207" [emms-mode-line-mode-line-function emms-mode-line-icon-function put emms-mode-line-string risky-local-variable t provide emms-mode-line-icon] 4)