;ELC ;;; Compiled by heimdall@baldur on Fri Feb 1 18:34:52 2008 ;;; from file /home/heimdall/repos/emms/emms-mark.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-mark.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303!\210\302\304!\207" [provide emms-mark require emms emms-playlist-mode] 2) #@44 Return a description of the current track. (defalias 'emms-mark-track-description #[(track) "\301\302!\303=\203\f\304\305!\210\306\301\302!!P\207" [track default-value emms-track-description-function emms-mark-track-description error "Do not set `emms-track-selection-function' to be emms-mark-track-description." " "] 3 (#$ . 689)]) #@54 Update the track descriptions in the current buffer. (defalias 'emms-mark-update-descriptions #[nil "\302\212eb\210\303\304`!\204\303\305\306\217\210 ?\205#\307 \210\303\310\311\217\210\202+\207" [inhibit-read-only #1=#:donep t nil emms-playlist-track-at (emms-playlist-next) ((error (byte-code "\301\211\207" [#1# t] 2))) emms-playlist-update-track (emms-playlist-next) ((error (byte-code "\301\211\207" [#1# t] 2)))] 3 (#$ . 1032)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\301\207" [current-load-list emms-mark-char default-boundp set-default 42 emms-mark-face-alist ((42 . font-lock-warning-face) (32 . emms-playlist-track-face))] 3) #@143 Mark the current track. If ARG is positive, also mark the next ARG-1 tracks as well. If ARG is negative, also mark the previous ARG-1 tracks. (defalias 'emms-mark-track #[(&optional arg) "\204\306\307 \n\"\310\211\212\311 \210m?\205o\312U?\205o\313`\314\"\315\306!\210\316\317 !\314 #c\210\320u\210\312V\203G\321`\306y\210`\305 $\210\202^\212\310\210`)\321\311 \210`\305 $\210)\320y\210\312V\203iS\202kT\202,\207" [arg emms-mark-char emms-mark-face-alist track buffer-read-only face 1 assoc-default nil beginning-of-line 0 get-text-property emms-track delete-char emms-propertize string -1 put-text-property start] 5 (#$ . 1738) "p"]) #@149 Unmark the current track. If ARG is positive, also unmark the next ARG-1 tracks as well. If ARG is negative, also unmark the previous ARG-1 tracks. (defalias 'emms-mark-unmark-track #[(&optional arg) "\302\303 !)\207" [emms-mark-char arg 32 emms-mark-track] 2 (#$ . 2407) "p"]) #@117 Mark one or more tracks and move the point past the newly-marked tracks. See `emms-mark-track' for further details. (defalias 'emms-mark-forward #[(arg) "\301!\210y\207" [arg emms-mark-track] 2 (#$ . 2693) "p"]) #@113 Unmark one or more tracks and move the point past the tracks. See `emms-mark-unmark-track' for further details. (defalias 'emms-mark-unmark-forward #[(arg) "\301!\210y\207" [arg emms-mark-unmark-track] 2 (#$ . 2914) "p"]) #@40 Mark all tracks in the current buffer. (defalias 'emms-mark-all #[nil "\212eb\210\300\301ed\"!)\207" [emms-mark-track count-lines] 4 (#$ . 3144) nil]) #@42 Unmark all tracks in the current buffer. (defalias 'emms-mark-unmark-all #[nil "\300\301!\207" [emms-mark-do-with-marked-track emms-mark-unmark-track] 2 (#$ . 3301) nil]) #@82 Mark all tracks matching REGEXP. A prefix argument means to unmark them instead. (defalias 'emms-mark-regexp #[(regexp arg) "\203\303\202 \304\212eb\210\305\n\306\307#\205 \310\311!\210\311y\210\202*\207" [arg emms-mark-char regexp 32 42 re-search-forward nil t emms-mark-track 1] 4 (#$ . 3478) (list (read-from-minibuffer (if current-prefix-arg "Mark tracks matching: " "Unmark tracks matching: ")) current-prefix-arg)]) #@41 Toggle all marks in the current buffer. (defalias 'emms-mark-toggle #[nil "\212eb\210\301m?\205 g\302=\203\303 \210\202\304 \210\305y\210\202*\207" [buffer-read-only nil 32 emms-mark-track emms-mark-unmark-track 1] 2 (#$ . 3914) nil]) #@66 Return non-nil if the playlist has a marked line, nil otherwise. (defalias 'emms-mark-has-markedp #[nil "\212eb\210\301\302\303\"\304\305#)\207" [emms-mark-char re-search-forward format "^[%c]" nil t] 4 (#$ . 4163)]) (put 'emms-mark-has-markedp 'byte-optimizer 'byte-compile-inline-expand) #@417 Call FUNC on every marked line in current playlist. The function specified by FUNC takes no argument, so if the track on the marked line is needed, use `emms-playlist-track-at' to get it. The function can also modify the playlist buffer, such as deleting the current line. If the function doesn't move forward, be sure to set the second parameter MOVE to non-nil. Otherwise the function will never exit the loop. (defalias 'emms-mark-do-with-marked-track #[(func &optional move) "\305\306\" \f\203 \307\212eb\210\310 \311\312#\205\"\313u\210\n \210\202+\207" [emms-mark-char func newfunc regexp move format "^[%c]" #[nil " \210\301y\207" [func 1] 1] re-search-forward nil t -1] 4 (#$ . 4461)]) #@146 This function does the same thing as `emms-mark-do-with-marked-track', the only difference being that this function collects the result of FUNC. (defalias 'emms-mark-mapcar-marked-track #[(func &optional move) "\306\307\"\310  \203\311\212eb\210\312\f\310\313#\203&\314u\210\n B\202 \237,\207" [emms-mark-char func newfunc result regexp move format "^[%c]" nil #[nil " \302y\210 )\207" [func res 1] 1] re-search-forward t -1] 4 (#$ . 5174)]) #@64 Delete all tracks that have been marked in the current buffer. (defalias 'emms-mark-delete-marked-tracks #[nil "\301\302\303!)\207" [inhibit-read-only t emms-mark-do-with-marked-track #[nil "`\300y\210`|\207" [1] 2]] 2 (#$ . 5636) nil]) #@62 Kill all tracks that have been marked in the current buffer. (defalias 'emms-mark-kill-marked-tracks #[nil "\302\211\303\304!\210\305 !*\207" [buffer-read-only tracks nil emms-mark-do-with-marked-track #[nil "\301`\302y\210`\"P\211\207" [tracks delete-and-extract-region 1] 4] kill-new] 2 (#$ . 5880) nil]) #@62 Copy all tracks that have been marked in the current buffer. (defalias 'emms-mark-copy-marked-tracks #[nil "\301\302\303!\210\304!)\207" [tracks nil emms-mark-do-with-marked-track #[nil "`\301y\210`{P\211\207" [tracks 1] 3] kill-new] 2 (#$ . 6197) nil]) #@30 Keymap for `emms-mark-mode'. (defconst emms-mark-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210)\207" [map make-sparse-keymap define-key "W" emms-mark-copy-marked-tracks "K" emms-mark-kill-marked-tracks "D" emms-mark-delete-marked-tracks "m" emms-mark-forward "u" emms-mark-unmark-forward "U" emms-mark-unmark-all "t" emms-mark-toggle "%m" emms-mark-regexp] 4) (#$ . 6461)) #@86 An EMMS major mode that allows tracks to be marked like dired. \{emms-mark-mode-map} (defalias 'emms-mark-mode #[nil "\305=?\205(\306\307=\204\307 \210\310\n\311 \"\210\312\n!\210\305\313\314\304!\210\315\316 \207" [major-mode emms-playlist-buffer-p emms-mark-mode-map mode-name emms-track-description-function emms-mark-mode t emms-playlist-mode set-keymap-parent current-local-map use-local-map "Emms-Mark" make-local-variable emms-mark-track-description emms-mark-update-descriptions] 3 (#$ . 6967) nil]) #@62 Disable `emms-mark-mode' and return to `emms-playlist-mode'. (defalias 'emms-mark-mode-disable #[nil "\303=\205 \304 \210\n\305 \210)\306 \207" [major-mode emms-playlist-selected-marker selected emms-mark-mode emms-playlist-mode emms-playlist-mode-overlay-selected emms-mark-update-descriptions] 2 (#$ . 7490) nil])