;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\300\302!\210\300\303!\210\304\305\306\307\310\311%\210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\320\325%\210\312\326\314\315\327DD\330\320\331%\210\332\333\334\306#\210\335\211\203`\211@\333N\203Y\334N\204Y\336\334\333N#\210A\266\202\202?\210\337\333\334\340#\207" [require cl-lib emms-info emms-player-simple custom-declare-group emms-playing-time nil "Playing-time module for EMMS." :group emms custom-declare-variable emms-playing-time-display-short-p funcall function #[0 "\300\207" [nil] 1] "Non-nil will only display elapsed time.\ne.g., display 02:37 instead of 02:37/05:49." :type boolean emms-playing-time-display-format #[0 "\300\207" [#1=" %s "] 1 #1#] "Format used for displaying playing time." string emms-playing-time-style #[0 "\300\207" [time] 1] "Style used for displaying playing time.\nValid styles are `time' (e.g., 01:30/4:20),\n `bar' (e.g., [===> ]),\nand `downtime' (e.g. -03:58)." symbol defvaralias emms-playing-time-display-p emms-playing-time-display-mode (saved-value saved-variable-comment) put make-obsolete-variable "Apr 2021"] 7) #@32 Time elapsed in current track. (defvar emms-playing-time 0 (#$ . 1531)) (defvar emms-playing-time-string "") (defvar emms-playing-time-display-timer nil) (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-playing-time-p emms-playing-time-mode nil (saved-value saved-variable-comment) put make-obsolete-variable "Apr 2021"] 7) #@37 Get ready for display playing time. (defalias 'emms-playing-time-start #[0 "\302 ?\205\303\304\305\306#\211\207" [emms-playing-time emms-playing-time-display-timer 0 run-at-time t 1 emms-playing-time-display] 4 (#$ . 1969)]) #@39 Remove playing time on the mode line. (defalias 'emms-playing-time-stop #[0 "\203 \203 \304\305 \210\306 !\210\307\211\207" [emms-player-paused-p emms-player-stopped-p emms-playing-time-string emms-playing-time-display-timer "" force-mode-line-update emms-cancel-timer nil] 2 (#$ . 2204)]) #@21 Pause playing time. (defalias 'emms-playing-time-pause #[0 "\203\302 \207 ?\205\303\304\305\306#\211\207" [emms-player-paused-p emms-playing-time-display-timer emms-playing-time-stop run-at-time t 1 emms-playing-time-display] 4 (#$ . 2506)]) #@54 Seek forward or backward SEC playing time. (fn SEC) (defalias 'emms-playing-time-seek #[257 "\\\211\301W\205 \301\211\207" [emms-playing-time 0] 4 (#$ . 2760)]) #@40 Set the playing time to SEC. (fn SEC) (defalias 'emms-playing-time-set #[257 "\211\211\301W\205 \301\211\207" [emms-playing-time 0] 3 (#$ . 2933)]) #@12 (fn ARG) (defalias 'emms-playing-time #[257 "\300\203\301V\203\302\202\303!\207" [emms-playing-time-mode 0 1 -1] 4 (#$ . 3091)]) (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-playing-time emms-playing-time-mode "Apr 2021" custom-declare-variable funcall function #[0 "\300\207" [nil] 1] "Non-nil if Emms-Playing-Time mode is enabled.\nSee the `emms-playing-time-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-playing-time-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group :type boolean] 12) #@410 Turn on emms playing time if ARG is positive, off otherwise. 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, such as `emms-lastfm.el') Instead, to toggle displaying playing time on mode line, one could call `emms-playing-time-enable-display' and `emms-playing-time-disable-display'. (fn &optional ARG) (defalias 'emms-playing-time-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203B\310\311 \210\312\313\314\"\210\312\315\316\"\210\312\317\316\"\210\312\320\321\"\210\312\322\323\"\210\312\324\325\"\210\202h\326\316 \210\327 \210\330\313\314\"\210\330\315\316\"\210\330\317\316\"\210\330\320\321\"\210\330\322\323\"\210\330\324\325\"\210\331\332\305\300!\203t\333\202u\334\"\210\335\336!\203\237\337\300!\210\302 \203\215\211\302 \232\203\237\340\341\342\305\300!\203\232\343\202\233\344#\266\210\345 \210\305\300!\207" [emms-playing-time-mode emms-playing-time-display-mode current-message set-default toggle default-value prefix-numeric-value 0 t emms-playing-time-mode-line add-hook emms-player-started-hook emms-playing-time-start emms-player-stopped-hook emms-playing-time-stop emms-player-finished-hook emms-player-paused-hook emms-playing-time-pause emms-player-seeked-functions emms-playing-time-seek emms-player-time-set-functions emms-playing-time-set nil emms-playing-time-restore-mode-line remove-hook run-hooks emms-playing-time-mode-hook emms-playing-time-mode-on-hook emms-playing-time-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Emms-Playing-Time mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 3852) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar emms-playing-time-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\210\311\312\313\314\315DD\316\317\320\321\322\323\324\325\326& \207" [emms-playing-time-mode-map emms-playing-time-mode-hook variable-documentation put "Hook run after entering or leaving `emms-playing-time-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-playing-time-mode nil boundp custom-declare-variable emms-playing-time-display-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Emms-Playing-Time-Display mode is enabled.\nSee the `emms-playing-time-display-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-playing-time-display-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group emms-playing-time-display :type boolean] 12) #@70 Minor mode to display playing time on mode line. (fn &optional ARG) (defalias 'emms-playing-time-display-mode #[256 "\301 \302\300\303=\203\304\300!?\202\305!\306V\"\210\203 \300\307!\210\310\311\304\300!\203,\312\202-\313\"\210\314\315!\203W\316\300!\210\301 \203E\211\301 \232\203W\317\320\321\304\300!\203R\322\202S\323#\266\210\324 \210\304\300!\207" [emms-playing-time-display-mode current-message set-default toggle default-value prefix-numeric-value 0 1 run-hooks emms-playing-time-display-mode-hook emms-playing-time-display-mode-on-hook emms-playing-time-display-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Emms-Playing-Time-Display mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 6675) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar emms-playing-time-display-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [emms-playing-time-display-mode-map emms-playing-time-display-mode-hook variable-documentation put "Hook run after entering or leaving `emms-playing-time-display-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-playing-time-display-mode nil boundp] 6) #@36 Display playing time on mode line. (defalias 'emms-playing-time-enable-display #[0 "\301\211\207" [emms-playing-time-display-mode t] 2 (#$ . 7999) nil]) (make-obsolete 'emms-playing-time-enable-display 'emms-playing-time-display-mode "Apr 2021") #@37 Remove playing time from mode line. (defalias 'emms-playing-time-disable-display #[0 "\301\211\207" [emms-playing-time-display-mode nil] 2 (#$ . 8252) nil]) (make-obsolete 'emms-playing-time-disable-display 'emms-playing-time-display-mode "Apr 2021") #@40 Display playing time on the mode line. (defalias 'emms-playing-time-display #[0 "\306T! \204 \307\202\247\310\245\310\246\311\312 \313\"\206\314\211\310\245\310\246\315\n\316\"\203T\317\320\321 \2046\314=\203@\322\323  #\202P\322\324Z\310\245\nZ\310\246##\202\241\315\n\325\"\203~\314U\203e\326\202\241\327_\245\330\331\332\"\333\331\327Z\334\"\335\260\262\202\241\317\320\321 \204\213\314=\203\225\322\323  #\202\240\322\336  %#\322\f\"\266\206\337 \207" [emms-playing-time emms-playing-time-display-mode emms-playing-time-style emms-playing-time-display-short-p emms-playing-time-display-format emms-playing-time-string round "" 60 emms-track-get emms-playlist-current-selected-track info-playing-time 0 memql (downtime) emms-replace-regexp-in-string " " "0" format "%2d:%2d" "-%2d:%2d" (bar) "[==>........]" 10 "[" make-string 61 ">" 32 "]" "%2d:%2d/%2s:%2s" force-mode-line-update] 14 (#$ . 8510)]) #@36 Add playing time to the mode line. (defalias 'emms-playing-time-mode-line #[0 "\204\301\302\235?\205\303\304\"\211\207" [global-mode-string ("") emms-playing-time-string append (emms-playing-time-string)] 3 (#$ . 9467)]) #@24 Restore the mode line. (defalias 'emms-playing-time-restore-mode-line #[0 "\301\302\"\303 \207" [global-mode-string remove emms-playing-time-string force-mode-line-update] 3 (#$ . 9703)]) (provide 'emms-playing-time)