;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304!\203\304\305\306\307#\210\300\207" [require emms emms-info fboundp define-hash-table-test string-hash string= sxhash] 4) #@77 A mapping of paths to file info. This is used to cache over emacs sessions. (defvar emms-cache-db (byte-code "\300\301\302\303!\203\f\304\202 \305\"\207" [make-hash-table :test fboundp define-hash-table-test string-hash equal] 4) (#$ . 257)) #@48 True if the cache has been updated since init. (defvar emms-cache-dirty nil (#$ . 507)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\207" [custom-declare-variable emms-cache-file funcall function #[0 "\301!\302P\207" [emms-directory file-name-as-directory "cache"] 2] "A file used to store cached file information over sessions." :group emms :type file emms-cache-file-coding-system #[0 "\300\207" [utf-8] 1] "Coding system used for saving `emms-cache-file'." coding-system] 8) #@67 Turn on Emms caching if ARG is positive, off otherwise. (fn ARG) (defalias 'emms-cache #[257 "\211\203\"\211\305V\203\"\204\306 \210 \204\307\310\311\"\210\312\313\300\211\207\314\310\311\"\210\315\211\315\211\207" [emms-cache-dirty noninteractive emms-cache-get-function emms-cache-set-function emms-cache-modified-function 0 emms-cache-restore add-hook kill-emacs-hook emms-cache-save emms-cache-get emms-cache-set remove-hook nil] 5 (#$ . 1052) "p"]) #@36 Enable caching of Emms track data. (defalias 'emms-cache-enable #[0 "\300\301!\210\302\303!\207" [emms-cache 1 message "Emms cache enabled"] 2 (#$ . 1526) nil]) #@37 Disable caching of Emms track data. (defalias 'emms-cache-disable #[0 "\300\301!\210\302\303!\207" [emms-cache -1 message "Emms cache disabled"] 2 (#$ . 1693) nil]) #@36 Toggle caching of Emms track data. (defalias 'emms-cache-toggle #[0 "\203\301 \207\302 \207" [emms-cache-get-function emms-cache-disable emms-cache-enable] 1 (#$ . 1864) nil]) #@46 Mark the cache as dirty. (fn &rest IGNORED) (defalias 'emms-cache-dirty #[128 "\301\211\207" [emms-cache-dirty t] 3 (#$ . 2049)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put emms-cache-dirty speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@58 Return a cache element for PATH, or nil. (fn TYPE PATH) (defalias 'emms-cache-get #[514 "\301\"\207" [emms-cache-db gethash] 5 (#$ . 2329)]) #@55 Set PATH to TRACK in the cache. (fn TYPE PATH TRACK) (defalias 'emms-cache-set #[771 "\302#\210\303\304\211\207" [emms-cache-db emms-cache-dirty puthash nil t] 7 (#$ . 2479)]) #@58 Remove a track from the cache, with key PATH. (fn PATH) (defalias 'emms-cache-del #[257 "\302\"\210\303\304\211\207" [emms-cache-db emms-cache-dirty remhash nil t] 4 (#$ . 2666)]) #@33 Save the track cache to a file. (defalias 'emms-cache-save #[0 "\205F\304\305!\210\306\307!q\210\310 \210\311\312 !\313Qc\210\314\315\n\"\210\316\317!\203'\317 !\210\320\321 !!\2045\322\321 !!\210\323ed #\210\324p!\210\304\325!\210\326\211\207" [emms-cache-dirty emms-cache-file-coding-system emms-cache-db emms-cache-file message "Saving emms track cache..." get-buffer-create " emms-cache " erase-buffer ";;; .emms-cache -*- mode: emacs-lisp; coding: " symbol-name "; -*-\n" maphash #[514 "\300\301#c\207" [format "(puthash %S '%S emms-cache-db)\n"] 6 "\n\n(fn K V)"] fboundp set-buffer-file-coding-system file-directory-p file-name-directory make-directory write-region kill-buffer "Saving emms track cache...done" nil] 4 (#$ . 2856) nil]) #@38 Restore the track cache from a file. (defalias 'emms-cache-restore #[0 "\302\303\304\303$\210\304\211\207" [emms-cache-file emms-cache-dirty load t nil] 5 (#$ . 3612) nil]) #@231 Sync the cache with the data on disc. Remove non-existent files, and update data for files which have been modified. With prefix argument, update data for all files regardless of whether they have been modified or not. (fn ARG) (defalias 'emms-cache-sync #[257 "\302C\303\304\305#\"\210\211\242\205\306\211\207" [emms-cache-db emms-cache-dirty nil maphash make-closure #[514 "\303!\2051\304!\204\305\n\"\210\301\306\240\207\307!\310\311\"\211\203+\312\"\204+\300\205/\313\300\"\266\202\207" [V0 V1 emms-cache-db emms-track-file-p file-exists-p remhash t emms-info-track-file-mtime emms-track-get info-mtime emms-time-less-p emms-info-initialize-track] 7 "\n\n(fn PATH TRACK)"] t] 7 (#$ . 3794) "P"]) #@18 Reset the cache. (defalias 'emms-cache-reset #[0 "\302\303!\205\304\305\306\307!\203\310\202\311\"\312\313 \207" [emms-cache-db emms-cache-dirty yes-or-no-p "Really reset the cache? " make-hash-table :test fboundp define-hash-table-test string-hash equal t emms-cache-save] 4 (#$ . 4522) nil]) (provide 'emms-cache)