;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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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 (#$ . 425)) #@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")) (#$ . 617)) #@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 (#$ . 1743)]) #@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#\202\302\301\303#\207" [emms-track-get play-count emms-track-set 1] 6 (#$ . 1927)]) #@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 (#$ . 2194)]) #@44 Return the number of seconds passed today. (defalias 'emms-last-played-seconds-today #[0 "\300\301 !\302@A@\303_AA@\304_#\207" [decode-time current-time + 60 3600] 6 (#$ . 2458)]) #@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\306_$\207" [decode-time current-time + 60 3600 3 86400] 7 (#$ . 2647)]) #@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\310_$\207" [decode-time current-time format-time-string "%j" + 60 3600 string-to-number 86400] 8 (#$ . 2865)]) #@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?\2035A\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 (#$ . 3132)]) (provide 'emms-last-played)