;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(require 'emms)
#@136 Specifies if EMMS should record the number of times you play a track.
Set it to t if you want such a feature, and to nil if you don't.
(defvar emms-last-played-keep-count t (#$ . 104))
#@894 Specifies date format depending on when a track was last played.
This is an alist of items (AGE . FORMAT).  AGE can be a number (of
seconds) or a Lisp expression evaluating to a number.  When the age of
the track is less than this number, then use `format-time-string'
with the corresponding FORMAT for displaying the date of the track.
If AGE is not a number or a Lisp expression evaluating to a
non-number, then the corresponding FORMAT is used as a default value.

Note that the list is processed from the beginning, so it should be
sorted by ascending AGE.  Also note that items following the first
non-number AGE will be ignored.

You can use the functions `emms-last-played-seconds-today',
`emms-last-played-seconds-month' and
`emms-last-played-seconds-year' in the AGE spec.  They return the
number of seconds passed since the start of today, of this month,
of this year, respectively.
(defvar emms-last-played-format-alist '(((emms-last-played-seconds-today) . "%k:%M") (604800 . "%a %k:%M") ((emms-last-played-seconds-month) . "%a %d") ((emms-last-played-seconds-year) . "%b %d") (t . "%b %d '%y")) (#$ . 296))
#@52 Updates the last-played time of TRACK.

(fn TRACK)
(defalias 'emms-last-played-update-track #[257 "\300\301\302 #\207" [emms-track-set last-played current-time] 5 (#$ . 1422)])
#@91 Increments the play-count property of TRACK.
If non-existent, it is set to 1.

(fn TRACK)
(defalias 'emms-last-played-increment-count #[257 "\300\301\"\211\203 \302\301T#\207\302\301\303#\207" [emms-track-get play-count emms-track-set 1] 6 (#$ . 1606)])
#@28 Updates the current track.
(defalias 'emms-last-played-update-current #[0 "\301\302 !\210\205 \303\302 !\207" [emms-last-played-keep-count emms-last-played-update-track emms-playlist-current-selected-track emms-last-played-increment-count] 2 (#$ . 1871)])
#@44 Return the number of seconds passed today.
(defalias 'emms-last-played-seconds-today #[0 "\300\301 !\211@A@\302_\\AA@\303_\\\207" [decode-time current-time 60 3600] 4 (#$ . 2135)])
#@49 Return the number of seconds passed this month.
(defalias 'emms-last-played-seconds-month #[0 "\300\301 !\302@A@\303_AA@\304_\305\233@S\304_\306_$\207" [decode-time current-time + 60 3600 3 24] 7 (#$ . 2324)])
#@48 Return the number of seconds passed this year.
(defalias 'emms-last-played-seconds-year #[0 "\300\301 !\302\303\301 \"\304@A@\305_AA@\306_\307!S\306_\310_$\207" [decode-time current-time format-time-string "%j" + 60 3600 string-to-number 24] 8 (#$ . 2544)])
#@216 Format the messy-date according to `emms-last-played-format-alist'.
Returns "  ?  " if there's bad input or if an other error occurs.
Input should look like this: "Sun, 14 Oct 2001 13:34:39 +0200".

(fn MESSY-DATE)
(defalias 'emms-last-played-format-date #[257 "\3011P \302!\302\303 !\304Z\305@@\306\"\211\247\203! \211W\202# \211?\2035 A\262\305@@\306\"\262\202 @A;\203A @A\262\266\307\305\306\"\310!\"\266\2030\207\210\311\207" [emms-last-played-format-alist (error) float-time current-time "%b %d '%y" eval t format-time-string seconds-to-time "Never."] 10 (#$ . 2813)])
(provide 'emms-last-played)