;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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 (#$ . 1337)]) (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 (#$ . 1929)]) (byte-code "\300\301\302\303#\210\304\302\305\306\307DD\310\311\312\313\314\315\301\316\317& \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 :group :type boolean] 12) #@81 Turn on `emms-mode-line' if ARG is positive, off otherwise. (fn &optional ARG) (defalias 'emms-mode-line-mode #[256 "\304 \305\301\306=\203\307\301!?\202\310!\311V\"\210\204\312 \203O\313\314\315\"\210\313\316\317\"\210\313\320\317\"\210\313\321\315\"\210\n\203E\322\235\204E\323\324\" \203i\315 \210\202i\325\314\315\"\210\325\316\317\"\210\325\320\317\"\210\325\321\315\"\210\326 \210\327 \210\330\331\307\301!\203u\332\202v\333\"\210\334\335!\203\240\336\301!\210\304 \203\216\211\304 \232\203\240\337\340\341\307\301!\203\233\342\202\234\343#\266\210\344 \210\307\301!\207" [global-mode-string emms-mode-line-mode emms-mode-line-mode-line-function emms-player-playing-p current-message set-default toggle default-value prefix-numeric-value 0 (#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 #1# message "Emms-Mode-Line mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 2668) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar emms-mode-line-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\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.)" add-minor-mode emms-mode-line-mode nil boundp] 6) #@27 Turn on `emms-mode-line'. (defalias 'emms-mode-line-enable #[0 "\300\301!\207" [emms-mode-line-mode 1] 2 (#$ . 4483) nil]) #@28 Turn off `emms-mode-line'. (defalias 'emms-mode-line-disable #[0 "\300\301!\207" [emms-mode-line-mode -1] 2 (#$ . 4612) nil]) #@26 Toggle `emms-mode-line'. (defalias 'emms-mode-line-toggle #[0 "\300\301!\207" [emms-mode-line-mode toggle] 2 (#$ . 4744) 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 (#$ . 4878)]) #@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 (#$ . 5179)]) #@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 (#$ . 5416)]) #@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 (#$ . 5635)]) #@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 (#$ . 5862)]) #@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 (#$ . 6093)]) (provide 'emms-mode-line)