;ELC ;;; Compiled by heimdall@localhost on Tue Feb 12 12:07:10 2008 ;;; from file /home/heimdall/repos/emms/emms-mode-line.el ;;; in Emacs version 23.0.60.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`emms-mode-line.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\207" [require emms custom-declare-group emms-mode-line nil "Showing information on mode-line and titlebar" :prefix "emms-mode-line-" :group] 8) #@66 Function for showing infos in mode-line or nil if don't want to. (custom-declare-variable 'emms-mode-line-mode-line-function ''emms-mode-line-playlist-current '(#$ . 798) :type '(choice (const :tag "Don't show info on mode-line" nil) function) :group 'emms-mode-line) #@69 Function for showing infos in titlebar or nil if you don't want to. (custom-declare-variable 'emms-mode-line-titlebar-function 'nil '(#$ . 1072) :type '(choice (const :tag "Don't show info on titlebar" nil) function) :group 'emms-mode-line) #@73 String used for displaying the current track in mode-line and titlebar. (custom-declare-variable 'emms-mode-line-format '" [ %s ] " '(#$ . 1319) :type 'string :group 'emms) #@36 Format the currently playing song. (defalias 'emms-mode-line-playlist-current #[nil "\301\302\303 !\"\207" [emms-mode-line-format format emms-track-description emms-playlist-current-selected-track] 4 (#$ . 1498)]) #@39 If non-nil, emms mode line is active. (defvar emms-mode-line-active-p nil (#$ . 1719)) (byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306 \"\210\302\207" [current-load-list frame-title-format emms-mode-line-string default-boundp set-default "" emms-mode-line-initial-titlebar] 3) #@61 Turn on `emms-mode-line' if ARG is positive, off otherwise. (defalias 'emms-mode-line #[(arg) "\204\305 \203< \306V\203<\307\310\311\312\"\210\310\313\314\"\210\310\315\314\"\210\310\316\312\"\210 \2035\317\235\2045\320\321\"\f\205W\312 \207\322\323\311\312\"\210\323\313\314\"\210\323\315\314\"\210\323\316\312\"\210\324 \210\325 \207" [global-mode-string arg emms-mode-line-active-p emms-mode-line-mode-line-function emms-player-playing-p ("") 0 t 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) nil remove-hook emms-mode-line-restore-titlebar emms-mode-line-restore-mode-line] 3 (#$ . 2037) "p"]) #@27 Turn on `emms-mode-line'. (defalias 'emms-mode-line-enable #[nil "\300\301!\210\302\303!\207" [emms-mode-line 1 message "emms mode line enabled"] 2 (#$ . 2818) nil]) #@28 Turn off `emms-mode-line'. (defalias 'emms-mode-line-disable #[nil "\300\301!\210\302\303!\207" [emms-mode-line -1 message "emms mode line disabled"] 2 (#$ . 2990) nil]) #@26 Toggle `emms-mode-line'. (defalias 'emms-mode-line-toggle #[nil "\203\301 \207\302 \207" [emms-mode-line-active-p emms-mode-line-disable emms-mode-line-enable] 1 (#$ . 3166) nil]) #@136 Alter mode-line/titlebar. Optional TRACK is used to be compatible with `emms-track-updated-functions'. It's simply ignored currently. (defalias 'emms-mode-line-alter #[(&optional track) "\300 \210\301 \207" [emms-mode-line-alter-mode-line emms-mode-line-alter-titlebar] 1 (#$ . 3356)]) #@38 Update the mode-line with song info. (defalias 'emms-mode-line-alter-mode-line #[nil "\205 \205  \303 \207" [emms-mode-line-mode-line-function emms-player-playing-p emms-mode-line-string force-mode-line-update] 1 (#$ . 3649)]) #@37 Update the titlebar with song info. (defalias 'emms-mode-line-alter-titlebar #[nil "\205 \303  E\211\207" [emms-mode-line-titlebar-function emms-mode-line-initial-titlebar frame-title-format ""] 3 (#$ . 3888)]) #@61 Blank mode-line and titlebar but not quit `emms-mode-line'. (defalias 'emms-mode-line-blank #[nil "\301\302 \210\303 \207" [emms-mode-line-string nil force-mode-line-update emms-mode-line-restore-titlebar] 1 (#$ . 4109)]) #@24 Restore the mode-line. (defalias 'emms-mode-line-restore-mode-line #[nil "\205 \302\303 \"\304 \207" [emms-mode-line-mode-line-function global-mode-string remove emms-mode-line-string force-mode-line-update] 3 (#$ . 4338)]) #@24 Restore the mode-line. (defalias 'emms-mode-line-restore-titlebar #[nil "\205 C\211\207" [emms-mode-line-titlebar-function emms-mode-line-initial-titlebar frame-title-format] 2 (#$ . 4571)]) (provide 'emms-mode-line)