;ELC ;;; Compiled by heimdall@baldur on Fri Feb 1 18:34:48 2008 ;;; from file /home/heimdall/repos/emms/emms-history.el ;;; in Emacs version 23.0.60.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`emms-history.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\207" [require emms custom-declare-group emms-history nil "Saving and restoring all playlists when closing/restarting\nEmacs." :prefix "emms-history-" :group] 8) #@32 The file to save playlists in. (custom-declare-variable 'emms-history-file '(concat (file-name-as-directory emms-directory) "history") '(#$ . 808) :type 'string :group 'emms-history) #@89 If non-nil emms starts playing the current track after `emms-history-load' was invoked. (custom-declare-variable 'emms-history-start-playing 'nil '(#$ . 997) :type 'boolean :group 'emms-history) #@57 Save all playlists that are open in this Emacs session. (defalias 'emms-history-save #[nil ";\205\211 \306\211\211\211\212\307 \306\211\203R@\211q\210\310 \311V\203I\312 \203;\313!\206<e\214~\210\314ed\"\237)E\nBA\211\204*\315\316!\317\216rq\210\320c\210\321\312 !p\"\210\322c\210\321\np\"\210\323c\210\321\324B\325BDp\"\210\326c\210\327!. \207" [emms-history-file emms-playlist-buffer playlists print-level print-length oldbuf nil emms-playlist-buffer-list buffer-size 0 buffer-name marker-position emms-playlist-tracks-in-region generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "(\n;; active playlist\n" prin1 "\n;; playlists: ((BUFFER_NAME SELECT_POSITION TRACKS) ...)\n" "\n;; play method\n" emms-repeat-track emms-repeat-playlist "\n)" write-file buf #2=#:--cl-dolist-temp-- emms-playlist-selected-marker #1#] 6 (#$ . 1198) nil]) (add-hook 'kill-emacs-hook 'emms-history-save) #@47 Restore all playlists in `emms-history-file'. (defalias 'emms-history-load #[nil ";\205\210\306!\205\210\307\211\310\311!\312\216r q\210\313!\210\314p!\211\211A@)\307\211\203]@r\315 @!q\210p @\n@\230\203Gp\316\317\320 8\"\210\307\321\322\217\210)A\211\204/* \320\n8\307\211\203\202@\211@AL\210A\211\204m*\307\323\324\217-\207" [emms-history-file buf history #1=#:temp-buffer x playlist file-exists-p nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents read emms-playlist-new mapc emms-playlist-insert-track 2 (byte-code "\302\211A@)!\207" [playlist x emms-playlist-select] 3) ((error)) (byte-code "\205\301 \207" [emms-history-start-playing emms-start] 1) ((error)) #2=#:--cl-dolist-temp-- emms-playlist-buffer method #3=#:--cl-dolist-temp--] 6 (#$ . 2202) nil]) (provide 'emms-history)