;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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 (#$ . 1210)) (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 (#$ . 1648)]) #@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 (#$ . 1883)]) #@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 (#$ . 2185)]) #@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 (#$ . 2439)]) #@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 (#$ . 2612)]) #@12 (fn ARG) (defalias 'emms-playing-time #[257 "\300\203\301V\203\302\202\303!\207" [emms-playing-time-mode 0 1 -1] 4 (#$ . 2770)]) (byte-code "\300\301\302\303#\210\304\302\305\306\307DD\310\311\312\313\314\315\316& \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 :type boolean] 10) #@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 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203b\311\314 \210\315\316\317\"\210\315\320\321\"\210\315\322\321\"\210\315\323\324\"\210\315\325\326\"\210\315\327\330\"\210\202\210\310\321 \210\331 \210\332\316\317\"\210\332\320\321\"\210\332\322\321\"\210\332\323\324\"\210\332\325\326\"\210\332\327\330\"\210\333\334\306\301!\203\224\335\202\225\336\"\210\337\340!\203\275\341\301!\210\303 \203\255\211\303 \232\203\275\342\343\306\301!\203\271\344\202\272\345\346#\210\210\347 \210\306\301!\207" [global-minor-modes emms-playing-time-mode emms-playing-time-display-mode current-message set-default toggle default-value 1 nil t boundp delq 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 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] 6 (#$ . 3516) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar emms-playing-time-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%\210\314\315\316\317\320DD\321\322\323\324\325\326\327& \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.)" custom-type hook standard-value nil add-minor-mode emms-playing-time-mode 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 :type boolean] 10) #@651 Minor mode to display playing time on mode line. This is a minor mode. If called interactively, toggle the `Emms-Playing-Time-Display mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'emms-playing-time-display-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'emms-playing-time-display-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203@\301\306!\210\313\314\305\301!\203L\315\202M\316\"\210\317\320!\203u\321\301!\210\302 \203e\211\302 \232\203u\322\323\305\301!\203q\324\202r\325\326#\210\210\327 \210\305\301!\207" [global-minor-modes emms-playing-time-display-mode current-message set-default toggle default-value 1 nil t boundp delq 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] 6 (#$ . 6500) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar emms-playing-time-display-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-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.)" custom-type hook standard-value nil add-minor-mode emms-playing-time-display-mode 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 (#$ . 8601) 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 (#$ . 8854) 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\245\310\245\310\246\311\312 \313\"\206\314\211\310\245\310\246\n\315=\203S\316\317\320 \2045\314=\203?\321\322  #\202O\321\323Z\310\245\nZ\310\246##\202\237\n\324=\203|\314U\203c\325\202\237\326_\245\327\330\331\"\332\330\326Z\333\"\334\260\262\202\237\316\317\320 \204\211\314=\203\223\321\322  #\202\236\321\335  %#\321\f\"\266\206\336 \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 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 (#$ . 9112)]) #@36 Add playing time to the mode line. (defalias 'emms-playing-time-mode-line #[0 "\204\301\302>?\205\303\304\"\211\207" [global-mode-string ("") emms-playing-time-string append (emms-playing-time-string)] 3 (#$ . 10049)]) #@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 (#$ . 10283)]) (provide 'emms-playing-time)