;ELC ;;; Compiled by heimdall@baldur on Fri Feb 1 18:34:52 2008 ;;; from file /home/heimdall/repos/emms/emms-metaplaylist-mode.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-metaplaylist-mode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\207" [require emms emms-playlist-mode custom-declare-group emms-metaplaylist-mode nil "*The Emacs Multimedia System meta-playlist mode." :prefix "emms-metaplaylist-mode-" :group multimedia] 8) #@61 *Name of the buffer in which Emms playlists will be listed. (custom-declare-variable 'emms-metaplaylist-mode-buffer-name '"*Emms Playlists*" '(#$ . -873) :type 'string :group 'emms-metaplaylist-mode) #@59 *List of hooks to run on entry to emms-metaplaylist-mode. (custom-declare-variable 'emms-metaplaylist-mode-hooks 'nil '(#$ . -1079) :type 'list :group 'emms-metaplaylist-mode) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\207" [custom-declare-face emms-metaplaylist-mode-face ((((class color) (background dark)) (:foreground "AntiqueWhite3")) (((class color) (background light)) (:foreground "red3")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "WhiteSmoke"))) "Face for the buffer names in the playlists buffer." :group emms-metaplaylist-mode emms-metaplaylist-mode-current-face ((((class color) (background dark)) (:foreground "red2")) (((class color) (background light)) (:background "red3" :foreground "white")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "red3"))) "Face for the current buffer name in the playlists buffer."] 6) #@38 Keymap for `emms-metaplaylist-mode'. (defconst emms-metaplaylist-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210)\207" [map text-mode-map make-sparse-keymap set-keymap-parent define-key "n" next-line "p" previous-line " " emms-metaplaylist-mode-goto-current "q" kill-this-buffer "?" describe-mode " " emms-metaplaylist-set-active "c" emms-metaplaylist-new-buffer] 4) (#$ . 1978)) #@32 Switch to the buffer at point. (defalias 'emms-metaplaylist-mode-goto-current #[nil "\300\301 \302 {!\207" [switch-to-buffer point-at-bol point-at-eol] 3 (#$ . 2483) nil]) #@46 Create or recreate the meta-playlist buffer. (defalias 'emms-metaplaylist-mode-create #[nil "\303  \203%\304\305\306\217\210\307\n!\210r\nq\210\310 \210\212\311\312 \"\210)p)\202(\313\314!*\207" [emms-metaplaylist-mode-buffer-name playlists name emms-playlist-buffer-list nil (kill-buffer name) ((error)) get-buffer-create emms-metaplaylist-mode mapc #[(buf) "\303\304 !c\210\305\306 \307 \310 \n=\203\311\202\312D#\210\313 )\207" [inhibit-read-only buf emms-playlist-buffer t buffer-name add-text-properties point-at-bol point-at-eol face emms-metaplaylist-mode-current-face emms-metaplaylist-mode-face newline] 6] error "No Emms playlist buffers"] 3 (#$ . 2661)]) #@83 Creates a new buffer called buffer-name, which will be ready to host EMMS tracks. (defalias 'emms-metaplaylist-new-buffer #[(buffer-name) "\303!\203\n\304\305!\207\306!r q\210\307*\310\311!\207" [buffer-name buf emms-playlist-buffer-p get-buffer error "Buffer must not exist." get-buffer-create t message "Buffer created"] 2 (#$ . 3343) "sBuffer Name: "]) (defalias 'emms-metaplaylist-set-active #[nil "\301\302\303 \304 {!!\210`\305 \210b)\207" [ici emms-playlist-set-playlist-buffer get-buffer point-at-bol point-at-eol emms-metaplaylist-mode-go] 4 nil nil]) #@51 Single entry point to the metaplaylist interface. (defalias 'emms-metaplaylist-mode-go #[nil "\301 \210\302!\207" [emms-metaplaylist-mode-buffer-name emms-metaplaylist-mode-create switch-to-buffer] 2 (#$ . 3917) nil]) #@34 A major mode for Emms playlists. (defalias 'emms-metaplaylist-mode #[nil "\304 \210\305!\210\306\307\310\311\312!\207" [emms-metaplaylist-mode-map major-mode mode-name buffer-read-only kill-all-local-variables use-local-map emms-metaplaylist-mode "Emms-MetaPlaylist" t run-hooks emms-metaplaylist-mode-hooks] 2 (#$ . 4142)]) (provide 'emms-metaplaylist-mode)