;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\210\311\312\313\314\315DD\316\317\320%\210\311\321\313\314\322DD\323\317\324%\210\311\325\313\314\326DD\327\317\330\310\301&\207" [require emms custom-declare-group emms-mode-line nil "Showing information on mode-line and titlebar" :prefix "emms-mode-line-" :group custom-declare-variable emms-mode-line-mode-line-function funcall function #[0 "\300\207" [emms-mode-line-playlist-current] 1] "Function for showing infos in mode-line or nil if don't want to." :type (choice (const :tag "Don't show info on mode-line" nil) function) emms-mode-line-titlebar-function #[0 "\300\207" [nil] 1] "Function for showing infos in titlebar or nil if you don't want to." (choice (const :tag "Don't show info on titlebar" nil) function) emms-mode-line-format #[0 "\300\207" [#1=" [ %s ] "] 1 #1#] "String used for displaying the current track in mode-line and titlebar." string] 8) #@36 Format the currently playing song. (defalias 'emms-mode-line-playlist-current #[0 "\301\302\303 !\"\207" [emms-mode-line-format format emms-track-description emms-playlist-current-selected-track] 4 (#$ . 1016)]) (byte-code "\300\301\302\303#\210\304\211\203(\211@\301N\203!\302N\204!\305\302\301N#\210A\266\202\202\210\306\301\302\307#\207" [defvaralias emms-mode-line-active-p emms-mode-line-mode nil (saved-value saved-variable-comment) put make-obsolete-variable "Apr 2021"] 7) (defvar emms-mode-line-string "") (defvar emms-mode-line-initial-titlebar frame-title-format) #@12 (fn ARG) (defalias 'emms-mode-line #[257 "\300\203\301V\203\302\202\303!\207" [emms-mode-line-mode 0 1 -1] 4 (#$ . 1608)]) (byte-code "\300\301\302\303#\210\304\302\305\306\307DD\310\311\312\313\314\315\316& \207" [make-obsolete emms-mode-line emms-mode-line-mode "Apr 2021" custom-declare-variable funcall function #[0 "\300\207" [nil] 1] "Non-nil if Emms-Mode-Line mode is enabled.\nSee the `emms-mode-line-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `emms-mode-line-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10) #@81 Turn on `emms-mode-line' if ARG is positive, off otherwise. (fn &optional ARG) (defalias 'emms-mode-line-mode #[256 "\305 \306\302\307=\203\310\302!?\202!\247\203 \311W\203 \312\202!\313\"\210\314\300!\2038\315\302\"\310\302!\2038\302B \204>\316\n\203o\317\320\321\"\210\317\322\323\"\210\317\324\323\"\210\317\325\321\"\210 \203e\326 >\204e\327 \330\"\f\203\211\321 \210\202\211\331\320\321\"\210\331\322\323\"\210\331\324\323\"\210\331\325\321\"\210\332 \210\333 \210\334\335\310\302!\203\225\336\202\226\337\"\210\340\341!\203\276\342\302!\210\305 \203\256\211\305 \232\203\276\343\344\310\302!\203\272\345\202\273\346\347#\210\210\350 \210\310\302!\207" [global-minor-modes global-mode-string emms-mode-line-mode emms-mode-line-mode-line-function emms-player-playing-p current-message set-default toggle default-value 1 nil t boundp delq (#1="") add-hook emms-track-updated-functions emms-mode-line-alter emms-player-finished-hook emms-mode-line-blank emms-player-stopped-hook emms-player-started-hook emms-mode-line-string append (emms-mode-line-string) remove-hook emms-mode-line-restore-titlebar emms-mode-line-restore-mode-line run-hooks emms-mode-line-mode-hook emms-mode-line-mode-on-hook emms-mode-line-mode-off-hook called-interactively-p any customize-mark-as-set message "Emms-Mode-Line mode %sabled%s" "en" "dis" #1# force-mode-line-update] 6 (#$ . 2332) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar emms-mode-line-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [emms-mode-line-mode-map emms-mode-line-mode-hook variable-documentation put "Hook run after entering or leaving `emms-mode-line-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode emms-mode-line-mode boundp] 6) #@27 Turn on `emms-mode-line'. (defalias 'emms-mode-line-enable #[0 "\300\301!\207" [emms-mode-line-mode 1] 2 (#$ . 4355) nil]) #@28 Turn off `emms-mode-line'. (defalias 'emms-mode-line-disable #[0 "\300\301!\207" [emms-mode-line-mode -1] 2 (#$ . 4484) nil]) #@26 Toggle `emms-mode-line'. (defalias 'emms-mode-line-toggle #[0 "\300\301!\207" [emms-mode-line-mode toggle] 2 (#$ . 4616) nil]) #@158 Alter mode-line/titlebar. Optional TRACK is used to be compatible with `emms-track-updated-functions'. It's simply ignored currently. (fn &optional TRACK) (defalias 'emms-mode-line-alter #[256 "\300 \210\301 \207" [emms-mode-line-alter-mode-line emms-mode-line-alter-titlebar] 2 (#$ . 4750)]) #@38 Update the mode-line with song info. (defalias 'emms-mode-line-alter-mode-line #[0 "\205 \205  \303 \207" [emms-mode-line-mode-line-function emms-player-playing-p emms-mode-line-string force-mode-line-update] 1 (#$ . 5051)]) #@37 Update the titlebar with song info. (defalias 'emms-mode-line-alter-titlebar #[0 "\205 \303  E\211\207" [emms-mode-line-titlebar-function emms-mode-line-initial-titlebar frame-title-format ""] 3 (#$ . 5288)]) #@61 Blank mode-line and titlebar but not quit `emms-mode-line'. (defalias 'emms-mode-line-blank #[0 "\301\302 \210\303 \207" [emms-mode-line-string nil force-mode-line-update emms-mode-line-restore-titlebar] 1 (#$ . 5507)]) #@24 Restore the mode-line. (defalias 'emms-mode-line-restore-mode-line #[0 "\205 \302\303 \"\304 \207" [emms-mode-line-mode-line-function global-mode-string remove emms-mode-line-string force-mode-line-update] 3 (#$ . 5734)]) #@24 Restore the mode-line. (defalias 'emms-mode-line-restore-titlebar #[0 "\205 C\211\207" [emms-mode-line-titlebar-function emms-mode-line-initial-titlebar frame-title-format] 2 (#$ . 5965)]) (provide 'emms-mode-line)