JezK
Edit File: mpc.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:52:33 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mpc.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305\306\307\306\310& \210\311\312\313\314\315DD\316\317\320%\207" [custom-declare-group mpc nil "Client for the Music Player Daemon (mpd)." :prefix "mpc-" :group multimedia applications custom-declare-variable mpc-browser-tags funcall function #[0 "\300\207" [(Genre Artist|Composer|Performer Album|Playlist)] 1 "\n\n(fn)"] "Tags for which a browser buffer should be created by default." :type (repeat symbol)] 10) (defalias 'mpc-assq-all #[514 "\300\211\211\203' \211@\211@=\203 \211A\211\262\235\204 B\262A\266\202\202 \210\237\207" [nil] 8 "\n\n(fn KEY ALIST)"]) (defalias 'mpc-union #[128 "\211A\262@\237\211\2032 \211@\211\203) \211@\211\235\204\" \211B\262A\266\202\202 \266A\266\202\202 \210\211\237\207" [] 9 "\n\n(fn &rest LISTS)"]) #@213 Return L1 after removing all elements not found in L2. If SELECTFUN is non-nil, elements aren't compared directly, but instead they are passed through SELECTFUN before comparison. (fn L1 L2 &optional SELECTFUN) (defalias 'mpc-intersection #[770 "\300\203 \301\"\262\211\203. \211@\203 !\202 \211\235\203' \211B\262A\266\202\202\f \210\211\237\207" [nil mapcar] 8 (#$ . 1349)]) (defalias 'mpc-event-set-point #[257 "\300\301\302\303\304\305\306!\307\"\310\311%D\312\301\302\313\314\305\306 !\315\"\316\317%\300EDC\217\207" [#1=#:err funcall make-byte-code 0 "\301\302\300!!\207" vconcat vector [posn-set-point event-end] 3 "\n\n(fn)" error 257 "\301\302\303\304\305\306\307\300!\310\"\311\312%D\313\302\314\301EDC\217\207" [#2=#:err funcall make-byte-code 0 "\301\300!\207" vconcat vector [mouse-set-point] 2 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 9 "\n\n(fn IGNORED)"] 11 "\n\n(fn EVENT)"]) #@177 Compare strings STR1 and STR2. Contrary to `compare-strings', this tries to get numbers sorted numerically rather than lexicographically. (fn STR1 STR2 &optional IGNORE-CASE) (defalias 'mpc-compare-strings #[770 "\300\301\211\301\211&\211\250\204 \211\202\322 \302!S\211GY\204& \211GY\203* \202\320 H\303>H\304>\203\254 \211\203\217 \305\306#\210\307\310\"\305\306#\210\307\310\"GGW\203e \302![\202\212 GGV\203t \302!\202\212 \311!\311!W\203\206 \302![\202\212 \302!\266\202\202\316 \312!\204\245 SH\313>\203\245 \302!\202\316 \302![\202\316 \211\203\315 \312!\204\307 SH\314>\203\307 \302![\202\316 \302!\202\316 \266\202\262\207" [compare-strings nil abs (48 49 50 51 52 53 54 55 56 57) (48 49 50 51 52 53 54 55 56 57) string-match "[0-9]+" match-string 0 string-to-number zerop (48 49 50 51 52 53 54 55 56 57) (48 49 50 51 52 53 54 55 56 57)] 12 (#$ . 2290)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias mpc-string-prefix-p string-prefix-p nil make-obsolete "24.3"] 4) (defvar mpc--find-memoize (make-hash-table :test 'equal)) (defvar mpc-tag nil) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311%\207" [make-variable-buffer-local mpc-tag custom-declare-variable mpc-host funcall function #[0 "\300\301!\206 \302\300\303!\205 \304\300\303!PP\207" [getenv "MPD_HOST" "localhost" "MPD_PORT" ":"] 4 "\n\n(fn)"] "Host (and port) where the Music Player Daemon is running. The\nformat is \"HOST\", \"HOST:PORT\", \"PASSWORD@HOST\" or\n\"PASSWORD@HOST:PORT\" where PASSWORD defaults to no password, PORT\ndefaults to 6600 and HOST defaults to localhost." :type string] 6) (defvar mpc-proc nil) (defconst mpc--proc-end-re "^\\(?:OK\\(?: MPD .*\\)?\\|ACK \\(.*\\)\\)\n") (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put mpc-proc-error error-conditions (mpc-proc-error error) error-message "MPD error"] 4) (defalias 'mpc--debug #[385 "\300\301!\205 r\301q\210db\210\302\303\304\305\306\307##\304\")\207" [get-buffer "*MPC-debug*" insert-before-markers replace-regexp-in-string "\n" "\n " apply format] 10 "\n\n(fn FORMAT &rest ARGS)"]) (defalias 'mpc--proc-filter #[514 "\301\302\"\210r\303!q\210\304\305\"\203& \306!\210\307\310\"\210\311\312 !\210\313\314!\202\203 \212\315\316!!\2060 e\211b\210c\210\316!`\310\223\210\317 \210\211`W\205\200 \320\321#\205\200 \322\305\321#\210\323\225d=\204_ \313\324!\210\325\326!`d|\210\304\327\"\322\327\310#\210\203z \322\330#\210\211 \262\262\262))\207" [mpc--proc-end-re mpc--debug "Receive \"%s\"" process-buffer process-get ready delete-process set-process-buffer nil pop-to-buffer clone-buffer error "MPD output while idle!?" marker-position process-mark beginning-of-line re-search-backward t process-put 0 "Unexpected trailing text" match-string 1 callback mpc-proc-error] 9 "\n\n(fn PROC STRING)"]) (defalias 'mpc--proc-connect #[257 "\304\305\306\307\"\203B \310\311\"\211;\203 \211\312\230\204 \211\262\210\310\313\"\310\314\"\262\211;\203A \211\312\230\204A \306\315\"\203> \316!\202? \211\262\210\317\320#\210r\321\322\323#!q\210\305\324p!\211\262\203b \325!\204S \210\326 \210\327\211\330\331p$\332\n!\203\221 \333\n!\211\203\220 \334\211A\262@\211A\262@#\210\202y \210\335\336p#\210\334\337\340#\210\334\341\305#\210\342 !\210\343\344\"\210\345\340\"\210\346\305\"\210\347\350\351\352\353\354\355!\356\"\314\357%D\360\350\361\347EDC\217\210\211\205\333 \362\363D\305\"*\262)\207" [coding-system-for-read coding-system-for-write mpc-proc mpc--find-memoize 6600 nil string-match "\\`\\(?:\\(.*\\)@\\)?\\(.*?\\)\\(?::\\(.*\\)\\)?\\'" match-string 1 "" 3 2 "[^[:digit:]]" string-to-number mpc--debug "Connecting to %s:%s..." get-buffer-create format " *mpc-%s:%s*" get-buffer-process delete-process erase-buffer utf-8-unix open-network-stream "MPC" processp process-plist process-put mpc-proc-buffer mpd-commands callback ignore ready clrhash set-process-filter mpc--proc-filter set-process-sentinel set-process-query-on-exit-flag #1=#:err funcall make-byte-code 0 "\302\303\300!)\207" vconcat vector [inhibit-quit nil mpc-proc-sync] "\n\n(fn)" quit #[257 "\301\302\303!\207" [quit-flag t eval (ignore nil)] 3 "\n\n(fn IGNORED)"] mpc-proc-cmd "password"] 13 "\n\n(fn HOST)"]) (defalias 'mpc--proc-quote-string #[257 "\211\247\203 \300!\207\301\302\303#\262\304\305\"\203 \306\306Q\207\207" [number-to-string replace-regexp-in-string "[\"\\]" "\\\\\\&" string-match " " "\""] 5 "\n\n(fn S)"]) (defconst mpc--proc-alist-to-alists-starters '(file directory)) (defalias 'mpc--proc-alist-to-alists #[257 "\211\203 \211\211@@) >\204 \302\303\304C\"\210\211\211@@)\305\211\211\203D \211@\211@=\2038 \2035 \237B\262\305\262\211B\262A\266\202\202 \210\211\203O \211\237B\262\237\207" [x mpc--proc-alist-to-alists-starters signal cl-assertion-failed (or (null alist) (memq (caar alist) mpc--proc-alist-to-alists-starters)) nil] 8 "\n\n(fn ALIST)"]) (defalias 'mpc-proc #[0 "\203 \302\303!!\203 \304!\305>\203 \306 !\210\207" [mpc-proc mpc-host buffer-live-p process-buffer process-status (closed) mpc--proc-connect] 3 "\n\n(fn)"]) (defalias 'mpc-proc-check #[257 "\300\301\"\211\205 \302\301\303#\210\304\301\"\207" [process-get mpc-proc-error process-put nil signal] 6 "\n\n(fn PROC)"]) #@122 Wait for MPC process until it is idle again. Return the buffer in which the process is/was running. (fn &optional PROC) (defalias 'mpc-proc-sync #[256 "\211C\211@\204\f \211\300 \240\210\301\302\303\304\305\306!\307\"\310\311%DC\216\312@\313\"\204, \314@!\204 \315@!\210\312@\313\"\203@ \316@!\202C \317\320!)\207" [mpc-proc funcall make-byte-code 0 "\301\300@\302\"?\205 \303\304!\210\305\300@!\207" vconcat vector [process-get ready message "Killing hung process" delete-process] 3 "\n\n(fn)" process-get ready accept-process-output mpc-proc-check process-buffer error "No response from MPD"] 9 (#$ . 7621)]) #@373 Send command CMD to the MPD server. If CALLBACK is nil, wait for the command to finish before returning, otherwise return immediately and call CALLBACK with no argument when the command terminates. CMD can be a string which is passed as-is to MPD or a list of strings which will be concatenated with proper quoting before passing them to MPD. (fn CMD &optional CALLBACK) (defalias 'mpc-proc-cmd #[513 "\300 \203+ \301\302\"\204+ \301\303\"\304\303\305\306\307\310\311 \n#\312\"\313\314%#\262\202n \315!\210\304\302\316#\210r\317!q\210\320 \210\321\322\"\210\323;\203N \202T \324\325\326#\327P\"\210)\203e \304\303#\202n \304\303\330#\210\315!\207" [mpc-proc process-get ready callback process-put make-byte-code 0 "\302 \210\303\300\301\"\207" vconcat vector [mpc-proc-cmd] 3 "\n\n(fn)" mpc-proc-sync nil process-buffer erase-buffer mpc--debug "Send \"%s\"" process-send-string mapconcat mpc--proc-quote-string " " "\n" ignore] 15 (#$ . 8249)]) (defalias 'mpc-proc-cmd-list #[257 "\300\301\302\303#\304Q\207" ["command_list_begin\n" mapconcat #[257 "\211;\203 \207\300\301\302#\207" [mapconcat mpc--proc-quote-string " "] 5 "\n\n(fn CMD)"] "\n" "\ncommand_list_end"] 6 "\n\n(fn CMDS)"]) (defalias 'mpc-proc-cmd-list-ok #[0 "\300\301!\207" [error "Not implemented yet"] 2 "\n\n(fn)"]) (defalias 'mpc-proc-buf-to-alist #[256 "r\211\206 pq\210\300eb\210\301\302\300\303#\203$ \304\305\306!!\305\307!BB\262\202\f \211\237\262)\207" [nil re-search-forward "^\\([^:]+\\): \\(.*\\)\n" t intern match-string 1 2] 6 "\n\n(fn &optional BUF)"]) (defalias 'mpc-proc-buf-to-alists #[257 "\300\301!!\207" [mpc--proc-alist-to-alists mpc-proc-buf-to-alist] 4 "\n\n(fn BUF)"]) (defalias 'mpc-proc-cmd-to-alist #[513 "\211\203 p\300\301\302\303\304\305\"\306\"\307\310%\"\207\311\300!!\207" [mpc-proc-cmd make-byte-code 0 "\300\302p!\301q\210!\207" vconcat vector [mpc-proc-buf-to-alist] 3 "\n\n(fn)" mpc-proc-buf-to-alist] 12 "\n\n(fn CMD &optional CALLBACK)"]) (defalias 'mpc-proc-tag-string-to-sym #[257 "\300\301!!\207" [intern capitalize] 4 "\n\n(fn TAG)"]) (defalias 'mpc-proc-buffer #[770 "\300\301\"\302\"A\203 \303!\203 =\204 \304\305\"\202@ \203? \211\2031 \302\"\241\202@ \306\301BB#\202@ \211\207" [process-get buffers assoc buffer-live-p error "Duplicate MPC buffer for %s" process-put] 10 "\n\n(fn PROC USE &optional BUFFER)"]) (defvar mpc-status nil) #@173 Alist associating properties to the functions that care about them. Each entry has the form (PROP . FUN) where PROP can be t to mean to call FUN for any change whatsoever. (defvar mpc-status-callbacks '((state . mpc--status-timers-refresh) (state . mpc--faster-toggle-refresh) (volume . mpc-volume-refresh) (file . mpc-songpointer-refresh) (song . mpc-songpointer-refresh) (updating_db . mpc-updated-db) (updating_db . mpc--status-timers-refresh) (t . mpc-current-refresh)) (#$ . 10665)) (defalias 'mpc--status-callback #[0 "\302 \211\204 \303\304\300C\"\210\211\232?\205> \211\205< \211@\211@\305=\2041 \211@\236A@\236A\232\2045 \211A \210A\266\202\202 \262\207" [mpc-status mpc-status-callbacks mpc-proc-buf-to-alist signal cl-assertion-failed t] 7 "\n\n(fn)"]) (defvar mpc--status-timer nil) (defalias 'mpc--status-timer-start #[0 "\301\302\303\"\210?\205 \304\305\211\306#\211\207" [mpc--status-timer add-hook pre-command-hook mpc--status-timer-stop run-with-timer 1 mpc--status-timer-run] 4 "\n\n(fn)"]) (defalias 'mpc--status-timer-stop #[0 "\205 \301!\210\302\211\207" [mpc--status-timer cancel-timer nil] 2 "\n\n(fn)"]) (defalias 'mpc--status-timer-run #[0 "\300\301 \302\"\205 \303\304\305D\306\304\307\303EDC\217\207" [process-get mpc-proc ready #1=#:err funcall #[0 "\300\301\302D\303\301\304\300EDC\217\207" [#2=#:err funcall #[0 "\301\302 )\207" [inhibit-quit nil mpc-status-refresh] 1 "\n\n(fn)"] quit #[257 "\301\302\303!\207" [quit-flag t eval (ignore nil)] 3 "\n\n(fn IGNORED)"]] 6 "\n\n(fn)"] error #[257 "\300\301\"\207" [message "MPC: %s"] 4 "\n\n(fn ERR)"]] 6 "\n\n(fn)"]) (defvar mpc--status-idle-timer nil) (defalias 'mpc--status-idle-timer-start #[0 "\203 \301!\210\302\303\304\305#\306 \207" [mpc--status-idle-timer cancel-timer run-with-idle-timer 1 t mpc--status-idle-timer-run mpc--status-timer-start] 4 "\n\n(fn)"]) (defalias 'mpc--status-idle-timer-stop #[256 "\203 \301!\210\211?\205 \302\303\304\305#\211\207" [mpc--status-idle-timer cancel-timer run-with-idle-timer 10 t mpc--status-idle-timer-run] 5 "\n\n(fn &optional REALLY)"]) (defalias 'mpc--status-idle-timer-run #[0 "\300\301 \302\"\203 \303\304\305D\306\304\307\303EDC\217\210\310 \207" [process-get mpc-proc ready #1=#:err funcall #[0 "\300\301\302D\303\301\304\300EDC\217\207" [#2=#:err funcall #[0 "\301\302 )\207" [inhibit-quit nil mpc-status-refresh] 1 "\n\n(fn)"] quit #[257 "\301\302\303!\207" [quit-flag t eval (ignore nil)] 3 "\n\n(fn IGNORED)"]] 6 "\n\n(fn)"] error #[257 "\300\301\"\207" [message "MPC: %s"] 4 "\n\n(fn ERR)"] mpc--status-timer-start] 6 "\n\n(fn)"]) #@69 Start/stop the timers according to whether a song is playing. (fn) (defalias 'mpc--status-timers-refresh #[0 "\301\236A\302\235\204 \303\236A\203 \304 \207\305 \210\306 \207" [mpc-status state ("play") updating_db mpc--status-idle-timer-start mpc--status-idle-timer-stop mpc--status-timer-stop] 2 (#$ . 13274)]) #@48 Refresh `mpc-status'. (fn &optional CALLBACK) (defalias 'mpc-status-refresh #[256 "\211\300\301\302!\303\304\305\306\307!\310\"\311\312%\"\207" [mpc-proc-cmd mpc-proc-cmd-list ("status" "currentsong") make-byte-code 0 "\301 \210\300\205 \300 \207" vconcat vector [mpc--status-callback] 1 "\n\n(fn)"] 10 (#$ . 13597)]) #@154 Stop the autorefresh of `mpc-status'. This is normally used only when quitting MPC. Any call to `mpc-status-refresh' may cause it to be restarted. (fn) (defalias 'mpc-status-stop #[0 "\301\302\303!\210\304 \207" [mpc-status nil mpc--status-idle-timer-stop really mpc--status-timer-stop] 2 (#$ . 13926)]) (defvar mpc--find-memoize-union-tags nil) (defalias 'mpc-cmd-flush #[514 "\302B\303#\210 \211\205+ \211@\304!\305\304!\306\"\235\203$ \302B\303#\210A\266\202\202 \207" [mpc--find-memoize mpc--find-memoize-union-tags puthash nil symbol-name split-string "|"] 8 "\n\n(fn TAG VALUE)"]) (defalias 'mpc-cmd-special-tag-p #[257 "\211\300>\206\f \301\302\303!\"\207" [(Playlist Search Directory) string-match "|" symbol-name] 5 "\n\n(fn TAG)"]) #@109 Return a list of all songs whose tag TAG has value VALUE. The songs are returned as alists. (fn TAG VALUE) (defalias 'mpc-cmd-find #[514 "\211C\301@B\"\206\326 \302@B\303=\203F \304\305\306\307\310\311\312 !\313\"\314\315%D\316\305\317\304EDC\217\307C\320\306\321\322\311\312!\323\"\314\324%\"\266\202\202\324 \325=\203Y \326\327\330\331@E!!\202\324 \332=\203u \333\327\334@D!!\335\336\337\320\340\"\"!\262\202\324 \341\342\343!\"\203\254 \344\345\"\210\346\343!\307\211\224O!\346\343!\307\225\337O!\347\350@\"\350@\"\"\266\202\202\324 \351\305\306\307\352\311\312 \n\"\353\"\354\315%D\316\305\306\321\355\311\312 \f\"\356\"\357\360%\351EDC\217#\207" [mpc--find-memoize gethash puthash Playlist #1=#:err funcall make-byte-code 0 "\301\302\303\300@D!!\207" vconcat vector [mpc-proc-buf-to-alists mpc-proc-cmd "listplaylistinfo"] 4 "\n\n(fn)" mpc-proc-error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] mapcar 257 "\301\302\300@!BB\300\211@T\240\210\207" [Pos number-to-string] "\n\n(fn S)" Search mpc-proc-buf-to-alists mpc-proc-cmd "search" "any" Directory mpc-proc-buf-to-alist "listallinfo" mpc--proc-alist-to-alists delq nil #[257 "\211@\300=?\205 \211\207" [directory] 3 "\n\n(fn PAIR)"] string-match "|" symbol-name add-to-list mpc--find-memoize-union-tags intern mpc-union mpc-cmd-find #2=#:err "\302\303\304\305\300!\301@E!!\207" [mpc-proc-buf-to-alists mpc-proc-cmd "find" symbol-name] 5 "\302\303\300\"\210\304\301\300\301@B\240\210\305\306\307!!\211\203+ \211@\301@\235\203$ \211B\262A\266\202\202 \210\211\207" [error "Unknown tag %s" nil mpc-proc-buf-to-alists mpc-proc-cmd "listallinfo"] 6 "\n\n(fn IGNORED)"] 16 (#$ . 14688)]) (defalias 'mpc-cmd-list #[769 "\300=\203g \301\302\303\304!\"\203e \211\305\262\211\203d \211@\306\300\"\307!\2048 B\310\311\"\235\203\\ B\262\202\\ \306\"\301\312\310\311\"\"\301\312\310\311\"\"\313\"\203Z B\262\266\210A\266\202\202 \210\211\207\314=\203\362 \204\205 \310\315\301\316\317\320\304!!\"\321\322\323\324 \314\"\"#\207\306\"\301\312\310\311\"\"\305\211\203\274 \211@\325!\211\203\264 \326!\211\262\203\264 \211@\232\204\264 \211B\262\210A\266\202\202\222 \210\327!\262\211\211\203\360 \325\211A\262@!\211\203\354 \326!\211\262\203\354 \211\235\204\354 \211B\262\211B\262\210\202\303 \210\207\330=\203\374 \331\332!\207\333\334\335!\"\203(\336\335!\337\211\224O!\336\335!\337\225\305O!\340\341#\341#\"\207\204Q\342\343\344\337\345\346\347 !\350\"\351\352%D\353\343\344\354\355\346\347 !\356\"\357\360%\342EDC\217\207\361\343\344\337\362\346\347 #\363\"\364\352%D\353\343\344\354\365\346\347 #\366\"\364\360%\361EDC\217\207" [Playlist mpc-assq-all playlist mpc-proc-cmd-to-alist "lsinfo" nil mpc-cmd-find mpc-cmd-special-tag-p apply append file mpc-intersection Directory nconc directory mpc-proc-buf-to-alist mpc-proc-cmd mapcar #[257 "\300\301\302#\203 \303\300\301\302#P\202 \304\305\306\307\310\311D!!\"\211\211\2038 \211@\312\301GT\302%\210A\266\202\202 \210\207" [get-text-property 0 display " " " ↪ " mpc-assq-all directory mpc-proc-buf-to-alist mpc-proc-cmd "lsinfo" put-text-property] 11 "\n\n(fn DIR)"] process-get mpc-proc file-name-directory directory-file-name delete-dups Search error "Not supported" string-match "|" symbol-name intern 0 mpc-union mpc-cmd-list #1=#:err funcall make-byte-code "\301\302\303\304\305\300!D!\"\207" vconcat vector [mapcar cdr mpc-proc-cmd-to-alist "list" symbol-name] 6 "\n\n(fn)" mpc-proc-error 257 "\301\302\300\"\210\303\300\304\305!\"\207" [error "MPD does not know this tag %s" mpc-assq-all mpc-proc-cmd-to-alist "listallinfo"] 5 "\n\n(fn IGNORED)" #2=#:err "\303\301!\203 \304\305\306\"\207\307\310\311\312\313\300!\313\301!\302F!\"\207" [mpc-cmd-special-tag-p signal mpc-proc-error "Not implemented" mapcar cdr mpc-proc-cmd-to-alist "list" symbol-name] 7 "\303\301\302\"\304\300\305\306\"\"\207" [mpc-cmd-find mpc-assq-all apply append]] 15 "\n\n(fn TAG &optional OTHER-TAG VALUE)"]) (defalias 'mpc-cmd-stop #[256 "\300\301\"\207" [mpc-proc-cmd "stop"] 4 "\n\n(fn &optional CALLBACK)"]) (defalias 'mpc-cmd-clear #[256 "\300\301\"\207" [mpc-proc-cmd "clear"] 4 "\n\n(fn &optional CALLBACK)"]) #@78 Pause or resume playback of the queue of songs. (fn &optional ARG CALLBACK) (defalias 'mpc-cmd-pause #[512 "\211\300\301D\302\303\304\305\306!\307\"\310\311%\"\210?\205 \312 \207" [mpc-proc-cmd "pause" make-byte-code 0 "\301 \210\300\205 \300 \207" vconcat vector [mpc-status-refresh] 1 "\n\n(fn)" mpc-proc-sync] 11 (#$ . 18936)]) (defalias 'mpc-cmd-status #[0 "\300\301!\207" [mpc-proc-cmd-to-alist "status"] 2 "\n\n(fn)"]) (defalias 'mpc-cmd-play #[0 "\300\301!\210\302 \207" [mpc-proc-cmd "play" mpc-status-refresh] 2 "\n\n(fn)"]) #@124 Add the songs FILES to PLAYLIST. If PLAYLIST is t or nil or missing, use the main playlist. (fn FILES &optional PLAYLIST) (defalias 'mpc-cmd-add #[513 "\300\301\302\303\304\305\306\307!\310\"\311\312%\"!!\210\211;\205 \313\314\"\207" [mpc-proc-cmd mpc-proc-cmd-list mapcar make-byte-code 257 "\300;\203\n \301\300E\207\302D\207" vconcat vector ["playlistadd" "add"] 4 "\n\n(fn FILE)" mpc-cmd-flush Playlist] 11 (#$ . 19484)]) #@150 Delete the songs at positions SONG-POSS from PLAYLIST. If PLAYLIST is t or nil or missing, use the main playlist. (fn SONG-POSS &optional PLAYLIST) (defalias 'mpc-cmd-delete #[513 "\301\302\303\304\305\306\307\310!\311\"\312\313%\314\315\"\"!!\210\211;\205% \316\317B\320#\207" [mpc--find-memoize mpc-proc-cmd mpc-proc-cmd-list mapcar make-byte-code 257 "\300;\203\n \301\300E\207\302D\207" vconcat vector ["playlistdelete" "delete"] 4 "\n\n(fn SONG-POS)" sort > puthash Playlist nil] 11 (#$ . 19925)]) (defalias 'mpc-cmd-move #[770 "C\301C\302\303\304\305\306\307\310\311 \n#\312\"\313\314%\315 \316\"\"!!\210;\205- \317\320B\321#\262\207" [mpc--find-memoize 0 mpc-proc-cmd mpc-proc-cmd-list mapcar make-byte-code 257 "\211\300@Y\203 \211\302@\\\262\301;\203 \303\301\300@F\202 \304\300@E\300@W\203- \300\211@S\240\210\302\211@T\240\210\207" vconcat vector ["playlistmove" "move"] 5 "\n\n(fn SONG-POS)" sort > puthash Playlist nil] 16 "\n\n(fn SONG-POSS DEST-POS &optional PLAYLIST)"]) (defalias 'mpc-cmd-update #[512 "\211\300\203\f \301D\202 \301\302\303\304\305\306!\307\"\310\311%\"\210?\205# \312 \207" [mpc-proc-cmd "update" make-byte-code 0 "\301 \210\300\205 \300 \207" vconcat vector [mpc-status-refresh] 1 "\n\n(fn)" mpc-proc-sync] 11 "\n\n(fn &optional ARG CALLBACK)"]) (defalias 'mpc-cmd-tagtypes #[0 "\300\301\302\303!\"\207" [mapcar cdr mpc-proc-cmd-to-alist "tagtypes"] 4 "\n\n(fn)"]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable mpc-mpd-music-directory funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Location of MPD's music directory." :type (choice (const nil) directory) mpc-data-directory #[0 "\300\301!\204 \300\302!\203 \303\207\301\207" [file-directory-p "~/.mpc" "~/.emacs.d" "~/.emacs.d/mpc"] 2 "\n\n(fn)"] "Directory where MPC.el stores auxiliary data." directory] 6) (defalias 'mpc-data-directory #[0 "\301!\204\n \302!\210\207" [mpc-data-directory file-directory-p make-directory] 2 "\n\n(fn)"]) (defalias 'mpc-file-local-copy #[257 "\204k \302\303 \"\203k \304\305C\203* \211@\204* \306@!\203# \211@\240\210A\262\202 \307\310!r\211q\210\311\312\313\314\315\316!\317\"\320\321%DC\216\322\311\312\313\323\315\316!\324\"\320\321%D\325\311\326\322EDC\217\210eb\210\327\330!\203h \331\332!*\266\205| \306\333\"!\205| \333\"\207" [mpc-mpd-music-directory mpc-host string-match "\\`localhost" ("~/.mpdconf" "/etc/mpd.conf") nil file-exists-p generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" #1=#:err "\301\300@!\207" [insert-file-contents] error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] re-search-forward "^music_directory[ ]+\"\\([^\"]+\\)\"" match-string 1 expand-file-name] 12 "\n\n(fn FILE)"]) (defalias 'mpc-secs-to-time #[257 "\211;\203\n \300!\262\211\301Y\203 \302\303\304\245\305\245\305\246#\207\302\306\305\245\305\246#\207" [string-to-number 6000 format "%dh%02d" 3600 60 "%d:%02d"] 6 "\n\n(fn SECS)"]) (defvar mpc-tempfiles nil) (defconst mpc-tempfiles-reftable (make-hash-table :weakness 'key)) (defalias 'mpc-tempfiles-clean #[0 "\302C\303\304\305\306\307\310!\311\"\312\313%\"\210 \211\203A \211@\211@\235\204: \314\315\304\316\317\307\310!\320\"\321\322%D\323\315\324\314EDC\217\210A\266\202\202 \210\211@\211\207" [mpc-tempfiles-reftable mpc-tempfiles nil maphash make-byte-code 514 "\300\300@B\240\207" vconcat vector [] 5 "\n\n(fn K V)" #1=#:err funcall 0 "\301\300!\207" [delete-file] 2 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 11 "\n\n(fn)"]) (defalias 'mpc-tempfiles-add #[514 "\302 \210\303#\210\211 B\211\207" [mpc-tempfiles-reftable mpc-tempfiles mpc-tempfiles-clean puthash] 6 "\n\n(fn KEY FILE)"]) #@115 Format the INFO according to FORMAT-SPEC, inserting the result at point. (fn FORMAT-SPEC INFO &optional HSCROLL) (defalias 'mpc-format #[770 "\300`\203 [\202\f \300C\301\302\303\304 #\2032\300\224O\"\210\211@\305!\\\240\266\300\225\262\306\225\204E \307\"\210\211@T\240\210\202 \310\311 \"\312\310\306 \"!\310\313 \"\314\225\n\315=\203e \316!\202B\317>\203\234 \320 \236\206v \321 \236A\302C\262\211\205\227 \322\323=\203\225 \303\324\"\203\225 \300\225\302O\202\226 !\262\202B\325=\203\326\327\f\236A!\211\330P\331\332\333\300\334\335\336!\337\"\311\340%D\341\332\342\331EDC\217\302\343\344D\345BB B\262 \204\334 \302\262\346\202\204\351 \347!\262\202\350\351\302\352#\353\354\302\211\211\355 &\210\347!\262\356\"\266\302\262\357\360#\266\204\202B \236A\211\204+\361=\203+\327\f\236A\262\343\344D\362\363\344D\364BBDEB\262\211\262\205X\365!\262\357\346\360\366\367\f@\n\\E#\203b\305!\202c\300\203m\305!\202n\300\203\f\203\247\211\\V\203\247\357\370\371\n\314#!\203\223\300\314O\202\240\300\371 \314$O\372P\373#\202\250\374>\203\333\357\375\376\377\201@ \201A \211\201B \201C \302\201D \201E \201F \344DCDD\257D&\262\n\f\n\205\357\346\360\366\367@\203 \203\371 #\202\300\\E#\nQ\"\266\204!\n\201G \f@#\240\210\202-c\210\n\211@ \\\240\210\266\202 \201H `\201I \201C \201J \201K \237BE$\207" [0 #[514 "@\300Y\203\n \211c\207\211G@[^\301Oc\207" [0 nil] 5 "\n\n(fn COL STR)"] nil string-match "%\\(?:%\\|\\(-\\)?\\([0-9]+\\)?{\\([[:alpha:]][[:alnum:]]*\\)\\(?:-\\([^}]+\\)\\)?}\\)" string-width 3 "%" match-string 2 intern 4 1 self symbol-name (Time Duration) time Time mpc-secs-to-time Duration ":" Cover file-name-directory file "cover.jpg" #1=#:err funcall make-byte-code "\301\300!\207" vconcat vector [mpc-file-local-copy] "\n\n(fn)" error #[257 "\300\301\"\207" [message "MPC: %s"] 4 "\n\n(fn ERR)"] equal quote ((file-name-directory (cdr (assq 'file info)))) " " create-image make-temp-file "mpc" ".jpg" call-process "convert" "-scale" mpc-tempfiles-add propertize display Title cdr assq (info) string-to-number space :align-to zerop - "…" help-echo (Artist Album Composer) mouse-face highlight follow-link t keymap mouse-2 lambda (interactive) (mpc-constraints-push 'noerror) mpc-constraints-restore + put-text-property mpc-pred (info) and] 34 (#$ . 23753)]) (defvar mpc-mode-map (byte-code "\300 \301!\210\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\306#\210\302\312\313#\210\302\314\310#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\211\207" [make-keymap suppress-keymap define-key "q" mpc-quit " " mpc-select [(shift return)] mpc-select-toggle [mouse-2] [S-mouse-2] mpc-select-extend [C-mouse-2] [drag-mouse-2] mpc-drag-n-drop [follow-link] always "p" mpc-pause] 5)) #@18 Menu for MPC.el. (defvar mpc-mode-menu nil (#$ . 26646)) (easy-menu-do-define 'mpc-mode-menu mpc-mode-map "Menu for MPC.el." '("MPC.el" ["Add new browser" mpc-tagbrowser] ["Update DB" mpc-update] ["Quit" mpc-quit])) (defvar mpc-tool-bar-map (byte-code "\300 \301\302\303\304\305\306\307\310\311\312&\n\210\301\313\314\315\305\316\307\317\311\312\320\321&\f\210\301\322\323\324\307\325\311\312\326\327\330\331&\f\210\301\332\333\334\307\335\311\312\326\336\330\337&\f\210\301\340\341\342\305\343\307\344\311\312\320\345&\f\210\301\346\347\350\307\351\311\312\305\352&\n\210\301\353\354\355\307\356\311\312&\210\301\357\360\361\307\362\311\312\330\363&\n\210\211\207" [make-sparse-keymap tool-bar-local-item "mpc/prev" mpc-prev prev :enable (not (equal (cdr (assq 'state mpc-status)) "stop")) :label "Prev" :vert-only t "mpc/rewind" mpc-rewind rewind (not (equal (cdr (assq 'state mpc-status)) "stop")) "Rew" :button (:toggle and mpc--faster-toggle-timer (not mpc--faster-toggle-forward)) "mpc/pause" mpc-pause pause "Pause" :visible (equal (cdr (assq 'state mpc-status)) "play") :help "Pause/play" "mpc/play" mpc-play play "Play" (not (equal (cdr (assq 'state mpc-status)) "play")) "Play/pause" "mpc/ffwd" mpc-ffwd ffwd (not (equal (cdr (assq 'state mpc-status)) "stop")) "Ffwd" (:toggle and mpc--faster-toggle-timer mpc--faster-toggle-forward) "mpc/next" mpc-next next "Next" (not (equal (cdr (assq 'state mpc-status)) "stop")) "mpc/stop" mpc-stop stop "Stop" "mpc/add" mpc-playlist-add add "Add" "Append to the playlist"] 14)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [mpc-mode-hook variable-documentation put purecopy "Hook run when entering MPC mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp mpc-mode-map definition-name mpc-mode] 5) (defvar mpc-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [mpc-mode-map variable-documentation put purecopy "Keymap for `mpc-mode'." boundp mpc-mode-syntax-table definition-name mpc-mode] 5) (defvar mpc-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [mpc-mode-syntax-table variable-documentation put purecopy "Syntax table for `mpc-mode'." mpc-mode-abbrev-table definition-name mpc-mode] 5) (defvar mpc-mode-abbrev-table (progn (define-abbrev-table 'mpc-mode-abbrev-table nil) mpc-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [mpc-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `mpc-mode'." mpc-mode derived-mode-parent nil] 5) #@165 Major mode for the features common to all buffers of MPC. This mode runs the hook `mpc-mode-hook', as the final step during initialization. \{mpc-mode-map} (fn) (defalias 'mpc-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315 \210\307\306\316!\210\306\317!\210\307)\320\321!\207" [delay-mode-hooks major-mode mode-name mpc-mode-map mpc-mode-syntax-table mpc-mode-abbrev-table make-local-variable t kill-all-local-variables mpc-mode "MPC" use-local-map set-syntax-table buffer-disable-undo tool-bar-map truncate-lines run-mode-hooks mpc-mode-hook local-abbrev-table buffer-read-only mpc-tool-bar-map] 2 (#$ . 29407) nil]) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [mpc-status-mode-hook variable-documentation put purecopy "Hook run when entering MPC-Status mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp mpc-status-mode-map definition-name mpc-status-mode] 5) (defvar mpc-status-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [mpc-status-mode-map variable-documentation put purecopy "Keymap for `mpc-status-mode'." boundp mpc-status-mode-syntax-table definition-name mpc-status-mode] 5) (defvar mpc-status-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [mpc-status-mode-syntax-table variable-documentation put purecopy "Syntax table for `mpc-status-mode'." mpc-status-mode-abbrev-table definition-name mpc-status-mode] 5) (defvar mpc-status-mode-abbrev-table (progn (define-abbrev-table 'mpc-status-mode-abbrev-table nil) mpc-status-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [mpc-status-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `mpc-status-mode'." mpc-status-mode derived-mode-parent mpc-mode] 5) #@228 Major mode to display MPC status info. In addition to any hooks its parent mode `mpc-mode' might have run, this mode runs the hook `mpc-status-mode-hook', as the final step during initialization. \{mpc-status-mode-map} (fn) (defalias 'mpc-status-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R !=\204R \326 \325!C#\210\327 !\210\330\f!\210 !\306\331!\210\332\306\333!\210\334\306\335!\210\336 )\337\340!\207" [delay-mode-hooks major-mode mode-name mpc-status-mode-map mpc-status-mode-syntax-table mpc-status-mode-abbrev-table make-local-variable t mpc-mode mpc-status-mode "MPC-Status" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table mode-line-format ("%e" mode-line-frame-identification mode-line-buffer-identification) window-area-factor 3 header-line-format ("MPC " mpc-volume) run-mode-hooks mpc-status-mode-hook local-abbrev-table] 5 (#$ . 31434) nil]) (defvar mpc-status-buffer-format '("%-5{Time} / %{Duration} %2{Disc--}%4{Track}" "%{Title}" "%{Album}" "%{Artist}" "%128{Cover}")) (defalias 'mpc-status-buffer-refresh #[0 "\303\304 \305\"\306!\205k r\211q\210\212eb\210\307\236\205j \310\n\211\203` \211@\311`\312\"\211\2036 \211!\2036 \313y\210\202X `\314\315!|\210\316\317\320\321\322\323\324!\325\"\326\327%D\330\317\331\316EDC\217\210\332c\210\210A\266\202\202 \210m?\205i `d|)*\207" [mpc-status inhibit-read-only mpc-status-buffer-format mpc-proc-buffer mpc-proc status buffer-live-p file t get-text-property mpc-pred nil line-beginning-position 2 #1=#:err funcall make-byte-code 0 "\302\300 \"\207" vconcat vector [mpc-status mpc-format] 3 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] "\n"] 12 "\n\n(fn)"]) (defalias 'mpc-status-buffer-show #[0 "\300\301 \302\"\300\301 \303\"\211\205 \304\305\"\306!\204, \307\310!\262rq\210\311 \210)\300\301 \302#\210\211\2046 \312!\202K \313\314\315#\316\317\"\210\320\"\210\316\321\"\262\207" [mpc-proc-buffer mpc-proc status songs get-buffer-window 0 buffer-live-p get-buffer-create "*MPC-Status*" mpc-status-mode pop-to-buffer split-window 20 t set-window-dedicated-p nil set-window-buffer soft] 7 "\n\n(fn)" nil]) (defvar mpc-separator-ol nil) (defvar mpc-select nil) (make-variable-buffer-local 'mpc-select) #@69 Execute BODY and restore the selection afterwards. (fn &rest BODY) (defalias 'mpc-select-save '(macro . #[128 "\300\301\302\303\"BB\207" [let ((selection (mpc-select-get-selection)) (position (cons (buffer-substring-no-properties (line-beginning-position) (line-end-position)) (current-column)))) append ((mpc-select-restore selection) (goto-char (point-min)) (if (re-search-forward (concat "^" (regexp-quote (car position)) "$") (if (overlayp mpc-separator-ol) (overlay-end mpc-separator-ol)) t) (move-to-column (cdr position))) (let ((win (get-buffer-window (current-buffer) 0))) (if win (set-window-point win (point)))))] 6 (#$ . 33959)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put mpc-select-save lisp-indent-function 0 edebug-form-spec t] 4) (defalias 'mpc-select-get-selection #[0 "\301\302\"\207" [mpc-select mapcar #[257 "\300\301!\302!S\"\207" [buffer-substring-no-properties overlay-start overlay-end] 5 "\n\n(fn OL)"]] 3 "\n\n(fn)"]) (defalias 'mpc-select-restore #[257 "\302\303\"\210\304\211\211\203( \211@eb\210\305\306\307!\310Q\304\311#\203! \312 \210A\266\202\202 \210 \2030 \313 \210\314 \207" [mpc-select mpc-tag mapc delete-overlay nil re-search-forward "^" regexp-quote "$" t mpc-select-make-overlay mpc-tagbrowser-all-select beginning-of-line] 7 "\n\n(fn SELECTION)"]) (defalias 'mpc-select-make-overlay #[0 "\301`\300\"\203 \302\303\304C\"\210\305\306 \306\307!\"\310\300\311#\210\310\312\313#\210\310\314\311#\210\211B\211\207" [mpc-select get-char-property signal cl-assertion-failed (not (get-char-property (point) 'mpc-select)) make-overlay line-beginning-position 2 overlay-put t face region evaporate] 5 "\n\n(fn)"]) #@54 Select the tag value at point. (fn &optional EVENT) (defalias 'mpc-select #[256 "\302!\210n\203 m\203 \303y\210\304\305\"\210\306\307 \204 \310 \210 \205' \311 \210\312 \207" [mpc-select mpc-tag mpc-event-set-point -1 mapc delete-overlay nil mpc-tagbrowser-all-p mpc-select-make-overlay mpc-tagbrowser-all-select mpc-selection-refresh] 4 (#$ . 35646) (list last-nonmenu-event)]) #@71 Toggle the selection of the tag value at point. (fn &optional EVENT) (defalias 'mpc-select-toggle #[256 "\302!\210\212\303`\300\"\203K \304\211\2037 \211@\305!`X\203+ \306!`V\203+ \307!\210\2020 \211B\262A\266\202\202 \210\211GTGU\204G \310\311\312C\"\210\202S \313 \204S \314 \210) \205] \315 \210\316 \207" [mpc-select mpc-tag mpc-event-set-point get-char-property nil overlay-start overlay-end delete-overlay signal cl-assertion-failed (= (1+ (length ols)) (length mpc-select)) mpc-tagbrowser-all-p mpc-select-make-overlay mpc-tagbrowser-all-select mpc-selection-refresh] 6 (#$ . 36038) (list last-nonmenu-event)]) #@57 Extend the selection up to point. (fn &optional EVENT) (defalias 'mpc-select-extend #[256 "\302!\210\204\f \300!\207\212\303`\300\"\203\237 \304\211\305 \306\211\307\310y!\2033 \303`\300\"\2033 `T\262T\262\202 b\210\307\311y!\203N \303`\300\"\203N `\262T\262\2026 \304U\203Z \304U\204\232 V\203f \262\202j T\262\306\211\203\225 \211@\312!Y\203\211 \312!W\203\211 \313!\210\202\216 \211B\262A\266\202\202l \210\211\237\210\266\202\"\314 \203\247 \310y\210\304\211\310\305 \307\310y!\203\301 \303`\300\"\204\301 T\262\202\254 \303`\300\"\204\313 \306\262\211b\210\307\311y!\203\343 \303`\300\"\204\343 T\262\202\316 \303`\300\"\204\355 \306\262\203\203\373 W\203\262\311\262\211b\210\206 \304T\304\211W\203 \211\315 \210y\266\211T\262\202 \266) \205,\316 \210\317 \207" [mpc-select mpc-tag mpc-event-set-point get-char-property 0 line-beginning-position nil zerop 1 -1 overlay-start delete-overlay mpc-tagbrowser-all-p mpc-select-make-overlay mpc-tagbrowser-all-select mpc-selection-refresh] 11 (#$ . 36674) (list last-nonmenu-event)]) (defvar mpc--song-search nil) #@186 Return currently selected set of constraints. If AVOID-BUF is non-nil, it specifies a buffer which should be ignored when constructing the set of constraints. (fn &optional AVOID-BUF) (defalias 'mpc-constraints-get-current #[256 "\205 \301DC\302\211\303\304 \305\"\211\203E \211@\211A\262\306\307\"\211\262\203> \211=\204> r\211q\210\310 )\211\262\203> BB\262A\266\202\202 \210\207" [mpc--song-search Search nil process-get mpc-proc buffers buffer-local-value mpc-tag mpc-select-get-selection] 9 (#$ . 37804)]) (defalias 'mpc-constraints-tag-lookup #[514 "\300\211\2033 \211@\211@=\204( \301\302\303!\"\203, \303@!\304\303!\302\"\235\203, \211A\262A\266\202\202 \210\211\207" [nil string-match "|" symbol-name split-string] 9 "\n\n(fn BUFFER-TAG CONSTRAINTS)"]) (defalias 'mpc-constraints-restore #[257 "\302\236\211\211A@)\211\203 \303\"\262\210\304\305 \306\"\211\203H \211@\211A\262\307!\203A \310\311\"\312\"\203? rq\210\313!\210)\266A\266\202\202 \210\314 \207" [x mpc--song-search Search delq process-get mpc-proc buffers buffer-live-p buffer-local-value mpc-tag mpc-constraints-tag-lookup mpc-select-restore mpc-selection-refresh] 7 "\n\n(fn CONSTRAINTS)"]) (defalias 'mpc-ring-make #[257 "\300\211\301\302\"BB\207" [0 make-vector nil] 6 "\n\n(fn SIZE)"]) (defalias 'mpc-ring-push #[514 "\211AA)@I\210A\211A@)@T]\240\210\301@T\211AA)G\"\240\207" [x mod] 7 "\n\n(fn RING VAL)"]) (defalias 'mpc-ring-pop #[257 "\211\301@S\211A@)\"\240\210\211\211AA)@H\207" [x mod] 6 "\n\n(fn RING)"]) (defvar mpc-constraints-ring (mpc-ring-make 10)) #@75 Push the current selection on the ring for later. (fn &optional NOERROR) (defalias 'mpc-constraints-push #[256 "\301 \211\204 ?\205 \302\303!\202 \304\"\207" [mpc-constraints-ring mpc-constraints-get-current error "No selection to push" mpc-ring-push] 5 (#$ . 39412) nil]) #@50 Recall the most recently pushed selection. (fn) (defalias 'mpc-constraints-pop #[0 "\301!\211\204 \302\303!\202 \304!\207" [mpc-constraints-ring mpc-ring-pop error "No selection to return to" mpc-constraints-restore] 3 (#$ . 39698) nil]) (defconst mpc-tagbrowser-all-name (propertize "*ALL*" 'face 'italic)) (defvar mpc-tagbrowser-all-ol nil) (make-variable-buffer-local 'mpc-tagbrowser-all-ol) (defvar mpc-tag-name nil) (make-variable-buffer-local 'mpc-tag-name) (defalias 'mpc-tagbrowser-all-p #[0 "e\301 =\205 e\302 {\232\207" [mpc-tagbrowser-all-name line-beginning-position line-end-position] 3 "\n\n(fn)"]) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [mpc-tagbrowser-mode-hook variable-documentation put purecopy "Hook run when entering (quote (MPC- mpc-tag-name)) mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp mpc-tagbrowser-mode-map definition-name mpc-tagbrowser-mode] 5) (defvar mpc-tagbrowser-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [mpc-tagbrowser-mode-map variable-documentation put purecopy "Keymap for `mpc-tagbrowser-mode'." boundp mpc-tagbrowser-mode-syntax-table definition-name mpc-tagbrowser-mode] 5) (defvar mpc-tagbrowser-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [mpc-tagbrowser-mode-syntax-table variable-documentation put purecopy "Syntax table for `mpc-tagbrowser-mode'." mpc-tagbrowser-mode-abbrev-table definition-name mpc-tagbrowser-mode] 5) (defvar mpc-tagbrowser-mode-abbrev-table (progn (define-abbrev-table 'mpc-tagbrowser-mode-abbrev-table nil) mpc-tagbrowser-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [mpc-tagbrowser-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `mpc-tagbrowser-mode'." mpc-tagbrowser-mode derived-mode-parent mpc-mode] 5) #@510 Major mode derived from `mpc-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `mpc-tagbrowser-mode-map', `mpc-tagbrowser-mode-abbrev-table' and `mpc-tagbrowser-mode-syntax-table' which more-or-less shadow mpc-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `mpc-tagbrowser-mode-hook', as the final step during initialization. \{mpc-tagbrowser-mode-map} (fn) (defalias 'mpc-tagbrowser-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R \"=\204R \326 \325\"C#\210\327 !\210\330\f!\210 \"\306\331!\210\332\306\333!\210\334\306\335!\210\336 \306\337!\210\307 )\340\341!\207" [delay-mode-hooks major-mode mode-name mpc-tagbrowser-mode-map mpc-tagbrowser-mode-syntax-table mpc-tagbrowser-mode-abbrev-table make-local-variable t mpc-mode mpc-tagbrowser-mode ("MPC-" mpc-tag-name) mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table mode-line-process (#1="" mpc-tag-name) mode-line-format nil header-line-format (#1# mpc-tag-name) buffer-undo-list run-mode-hooks mpc-tagbrowser-mode-hook local-abbrev-table] 5 (#$ . 41780) nil]) (defalias 'mpc-tagbrowser-refresh #[0 "\304 \305\306 \307 \"iB~\210eb\210\310\311!!\204 \312\313\314C\"\210\315y\210\316`d|\210\317\n!\211\203; \211@\211\320\261\210A\266\202\202) \210)\321\322!\210\323!\210eb\210\324\325\311@!\326Q\327 !\205Y \330 !\316#\203c \331A!\210\332p\333\"\211\203p \334`\"\210\266\335 \207" [mpc-tagbrowser-all-name inhibit-read-only mpc-tag mpc-separator-ol mpc-select-get-selection buffer-substring-no-properties line-beginning-position line-end-position looking-at regexp-quote signal cl-assertion-failed (looking-at (regexp-quote mpc-tagbrowser-all-name)) 1 t mpc-cmd-list "\n" set-buffer-modified-p nil mpc-select-restore re-search-forward "^" "$" overlayp overlay-end move-to-column get-buffer-window 0 set-window-point mpc-reorder] 6 "\n\n(fn)"]) (defalias 'mpc-updated-db #[0 "\302\236?\205G \303 !\210\304\305 \306\"\211\203: \211@\211A\262\307\310\"\2033 r\211q\210\311\312\313D\314\312\315\311EDC\217\210)A\266\202\202 \210\316\312\317D\314\312\320\316EDC\217\207" [mpc-status mpc--find-memoize updating_db clrhash process-get mpc-proc buffers buffer-local-value mpc-tag #1=#:err funcall #[0 "\301\302 )\207" [inhibit-quit nil mpc-tagbrowser-refresh] 1 "\n\n(fn)"] quit #[257 "\301\302\303!\207" [quit-flag t eval #3=(ignore nil)] 3 "\n\n(fn IGNORED)"] #2=#:err #[0 "\301\302 )\207" [inhibit-quit nil mpc-songs-refresh] 1 "\n\n(fn)"] #[257 "\301\302\303!\207" [quit-flag t eval #3#] 3 "\n\n(fn IGNORED)"]] 8 "\n\n(fn)"]) (defalias 'mpc-tagbrowser-tag-name #[257 "\300\301\302!\"\203$ \303\302!\304\211\224O!\303\302!\304\225\305O!\306!\307\306!Q\207\300\310\302!\"\2036 \302!\304\311O\312P\207\302!\313P\207" [string-match "|" symbol-name intern 0 nil mpc-tagbrowser-tag-name " | " "y\\'" -1 "ies" "s"] 7 "\n\n(fn TAG)"]) (defalias 'mpc-tagbrowser-buf #[257 "\304\305 \"\306!\203 \211\202M \307\310\311\"!\262\304\305 #\210r\211q\210\312\313 \210\314\235\2033 \315 \210\2026 \316 \210 \317\261\210)\320y\210\321!\322 \210\323 \210)\211\207" [inhibit-read-only mpc-tagbrowser-all-name mpc-tag mpc-tag-name mpc-proc-buffer mpc-proc buffer-live-p get-buffer-create format "*MPC %ss*" t erase-buffer (Directory) mpc-tagbrowser-dir-mode mpc-tagbrowser-mode "\n" -1 mpc-tagbrowser-tag-name mpc-tagbrowser-all-select mpc-tagbrowser-refresh] 6 "\n\n(fn TAG)"]) (defvar tag-browser-tagtypes (completion-table-dynamic #[257 "\301!\203\f \302\303\304 \"\207" [tag-browser-tagtypes functionp append ("Playlist" "Directory") mpc-cmd-tagtypes] 4 "\n\n(fn STRING)"])) #@41 Create a new browser for TAG. (fn TAG) (defalias 'mpc-tagbrowser #[257 "\300!\301\302\"\211\203 \303!\202w r\304\305 !q\210\306\307!)\203& \305 \262\202V \310\311 \312\"\313\203T \314\211A\262@A\211\262!\203, r\211q\210\306\307!)\203, \301\302\"\211\262\203, \266\211\204` \315!\202w \316\313\317#\262\320\"\210\321\322\"\210\303!\210\323 \207" [mpc-tagbrowser-buf get-buffer-window 0 select-window window-buffer selected-window derived-mode-p mpc-tagbrowser-mode process-get mpc-proc buffers nil buffer-live-p pop-to-buffer split-window horiz set-window-buffer set-window-dedicated-p soft balance-windows-area] 8 (#$ . 45801) (byte-code "\302\303\304\305 \306\307$!)C\207" [completion-ignore-case tag-browser-tagtypes t intern completing-read "Tag: " nil require-match] 6)]) #@63 Select the special *ALL* entry if no other is selected. (fn) (defalias 'mpc-tagbrowser-all-select #[0 "\203 \302 !\207\212eb\210 \203 \303 `\304\305!#\2025 \306`\304\305!\"\307\310\311#\210\307\312\313#\210\314\301!\210\211\211\262)\207" [mpc-select mpc-tagbrowser-all-ol delete-overlay move-overlay line-beginning-position 2 make-overlay overlay-put face region evaporate t make-local-variable] 5 (#$ . 46604)]) (defalias 'mpc-separator #[257 "\204 \301\300!\210\302``\"\303\304\305\306\307\310##\210eb\210\311y\210\312\313 \314 \"\235\203/ \315\311y!\204 m\2047 \211\204; \316!\207\317`S`#\207" [mpc-separator-ol make-local-variable make-overlay overlay-put after-string propertize "\n" face (:height 0.05 :inverse-video t) 1 buffer-substring-no-properties line-beginning-position line-end-position zerop delete-overlay move-overlay] 8 "\n\n(fn ACTIVE)"]) (defalias 'mpc-sort #[257 "\301eb\210\302 \203 \303y\210\304\305\306\307\310\311\312!\313\"\314\315%D\316\305\306\317\320\311\312 !\321\"\322\323%\304EDC\217)\207" [inhibit-read-only t mpc-tagbrowser-all-p 1 #1=#:err funcall make-byte-code 0 "\301\302\303\304\302\211\305\306\307\310\311\300!\312\"\313\314%&\207" vconcat vector [sort-subr nil forward-line end-of-line make-byte-code 514 "\301@A\"\262\301@A\"\262\300\235\203, \211\300\235\203* \302\303#\211\247\205) \211\304W\207\303\207\211\300\235\2034 \305\207\302\303#\211\247\205A \211\304W\207" vconcat vector [buffer-substring-no-properties mpc-compare-strings t 0 nil] 6 "\n\n(fn S1 S2)"] 12 "\n\n(fn)" wrong-number-of-arguments 257 "\301\302\303\304\305\306\307\310\311\300!\312\"\313\314%$\207" [sort-subr nil forward-line end-of-line make-byte-code 0 "\301`\302 \"\211\300\235\203 \303P\202 \304\207" vconcat vector [buffer-substring-no-properties line-end-position "1" "2name"] 3 "\n\n(fn)"] 11 "\n\n(fn IGNORED)"] 11 "\n\n(fn ACTIVE)"]) #@311 Reorder entries based on the currently active selections. I.e. split the current browser buffer into a first part containing the entries included in the selection, then a separator, and then the entries not included in the selection. Return non-nil if a selection was deactivated. (fn &optional NODEACTIVATE) (defalias 'mpc-reorder #[256 "\303 \304\305 \306 \"iB\307p!\310\211\203@ \211@\311\312\313\314\315\316\317\320!\321\"\322\323%A\"\"<\2035 \324\"\2026 \211\262\210A\266\202\202 \210\211<\203{ \325\211\203^ \211@\211\235\203W \326\262A\266\202\202H \210\211\203z \203i \325\204z \326\262\327\330 \"\210\326\331 \210\210\332<\205\202 !\210\333<\205\213 !\266\334!\210eb\210\335\336\337@!\340Q\341\n!\205\246 \342\n!\325#\203\260 \343A!\210\344p\345\"\211\205\274 \346`\"\262\207" [mpc--changed-selection mpc-select mpc-separator-ol mpc-select-get-selection buffer-substring-no-properties line-beginning-position line-end-position mpc-constraints-get-current all apply mpc-union mapcar make-byte-code 257 "\302 \300@#\207" vconcat vector [mpc-tag mpc-cmd-list] 5 "\n\n(fn VAL)" mpc-intersection t nil mapc delete-overlay mpc-tagbrowser-all-select mpc-sort mpc-separator mpc-select-restore re-search-forward "^" regexp-quote "$" overlayp overlay-end move-to-column get-buffer-window 0 set-window-point] 16 (#$ . 48507)]) (defalias 'mpc-selection-refresh #[0 "\303\2037 \304\305\306 \307\"\211\2033 \211@\211A\262\310\301\"\203, \211p=\204, r\211q\210\311 \210)A\266\202\202 \210\202 \203? \311\312!\210\n\203N \203N \304\313 \202P \314 )\207" [mpc--changed-selection mpc-tag mpc--song-search t nil process-get mpc-proc buffers buffer-local-value mpc-reorder nodeactivate mpc-selection-refresh mpc-songs-refresh] 5 "\n\n(fn)"]) (defvar mpc-tagbrowser-dir-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [mpc-tagbrowser-mode-map make-sparse-keymap set-keymap-parent define-key [134217741] mpc-tagbrowser-dir-toggle] 5)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [mpc-tagbrowser-dir-mode-hook variable-documentation put purecopy "Hook run when entering (quote (MPC- mpc-tag-name)) mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp mpc-tagbrowser-dir-mode-map definition-name mpc-tagbrowser-dir-mode] 5) (defvar mpc-tagbrowser-dir-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [mpc-tagbrowser-dir-mode-map variable-documentation put purecopy "Keymap for `mpc-tagbrowser-dir-mode'." boundp mpc-tagbrowser-dir-mode-syntax-table definition-name mpc-tagbrowser-dir-mode] 5) (defvar mpc-tagbrowser-dir-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [mpc-tagbrowser-dir-mode-syntax-table variable-documentation put purecopy "Syntax table for `mpc-tagbrowser-dir-mode'." mpc-tagbrowser-dir-mode-abbrev-table definition-name mpc-tagbrowser-dir-mode] 5) (defvar mpc-tagbrowser-dir-mode-abbrev-table (progn (define-abbrev-table 'mpc-tagbrowser-dir-mode-abbrev-table nil) mpc-tagbrowser-dir-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [mpc-tagbrowser-dir-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `mpc-tagbrowser-dir-mode'." mpc-tagbrowser-dir-mode derived-mode-parent mpc-tagbrowser-mode] 5) #@552 Major mode derived from `mpc-tagbrowser-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `mpc-tagbrowser-dir-mode-map', `mpc-tagbrowser-dir-mode-abbrev-table' and `mpc-tagbrowser-dir-mode-syntax-table' which more-or-less shadow mpc-tagbrowser-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `mpc-tagbrowser-dir-mode-hook', as the final step during initialization. \{mpc-tagbrowser-dir-mode-map} (fn) (defalias 'mpc-tagbrowser-dir-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R =\204R \326 \325C#\210\327 !\210\330\f!\210 )\331\332!\207" [delay-mode-hooks major-mode mode-name mpc-tagbrowser-dir-mode-map mpc-tagbrowser-dir-mode-syntax-table mpc-tagbrowser-dir-mode-abbrev-table make-local-variable t mpc-tagbrowser-mode mpc-tagbrowser-dir-mode ("MPC-" mpc-tag-name) mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks mpc-tagbrowser-dir-mode-hook local-abbrev-table] 5 (#$ . 52038) nil]) #@49 Open or close the element at point. (fn EVENT) (defalias 'mpc-tagbrowser-dir-toggle #[257 "\301!\210\302 \303 {C\304!@\305\306 \"\235\204* \307\306 @\305\306 \"B#\210\202U \310@\305\306 \"\"\211@\311P\240\210\307\306 \312\313\314\315\316\317\320\321 !\322\"\323\324%\"\"#\266\325 \207" [mpc-tag mpc-event-set-point line-beginning-position line-end-position intern process-get mpc-proc process-put delete "/" delq nil mapcar make-byte-code 257 "\301\300@\"?\205\n \211\207" vconcat vector [string-prefix-p] 4 "\n\n(fn X)" mpc-tagbrowser-refresh] 16 (#$ . 53407) (list last-nonmenu-event)]) #@88 Name of the currently selected playlist, if any. A value of t means the main playlist. (defvar mpc-songs-playlist nil (#$ . 54020)) (make-variable-buffer-local 'mpc-songs-playlist) #@51 Save current playlist under name NAME. (fn NAME) (defalias 'mpc-playlist-create #[257 "\300\301D!\210\302\303 \304\"\305!\205 r\211q\210\306 )\207" [mpc-proc-cmd "save" mpc-proc-buffer mpc-proc Playlist buffer-live-p mpc-tagbrowser-refresh] 4 (#$ . 54207) "sPlaylist name: "]) #@40 Delete playlist named NAME. (fn NAME) (defalias 'mpc-playlist-destroy #[257 "\300\301D!\210\302\303 \304\"\305!\205 r\211q\210\306 )\207" [mpc-proc-cmd "rm" mpc-proc-buffer mpc-proc Playlist buffer-live-p mpc-tagbrowser-refresh] 4 (#$ . 54494) (byte-code "\300\301\302\303!\304\305$C\207" [completing-read "Delete playlist: " mpc-cmd-list Playlist nil require-match] 5)]) #@59 Rename playlist OLDNAME to NEWNAME. (fn OLDNAME NEWNAME) (defalias 'mpc-playlist-rename #[514 "\300\301E!\210\302\303 \304\"\305!\205 r\211q\210\306 )\207" [mpc-proc-cmd "rename" mpc-proc-buffer mpc-proc Playlist buffer-live-p mpc-tagbrowser-refresh] 6 (#$ . 54876) (byte-code "\302=\203 \204 \303 \304 {\202 \305\306\307\302!\310\311$\312\313\314\"!\315G!\203- \316\317!\2020 D\207" [mpc-tag current-prefix-arg Playlist line-beginning-position line-end-position completing-read "Rename playlist: " mpc-cmd-list nil require-match read-string format "Rename '%s' to: " zerop error "Aborted"] 5)]) #@34 Show the current playlist. (fn) (defalias 'mpc-playlist #[0 "\300\301!\210\302\303!\207" [mpc-constraints-push noerror mpc-constraints-restore nil] 2 (#$ . 55492) nil]) #@42 Add the selection to the playlist. (fn) (defalias 'mpc-playlist-add #[0 "\300\301\302 \"\303!\210\304\305G\"\210\211\207" [mapcar car mpc-songs-selection mpc-cmd-add message "Appended %d songs"] 4 (#$ . 55668) nil]) #@52 Remove the selected songs from the playlist. (fn) (defalias 'mpc-playlist-delete #[0 "\204 \301\302!\210\303\304\305 \"\306\"\210\307 \210\310\311G\"\207" [mpc-songs-playlist error "The selected songs aren't part of a playlist" mapcar cdr mpc-songs-selection mpc-cmd-delete mpc-songs-refresh message "Deleted %d songs"] 4 (#$ . 55893) nil]) (defvar mpc-volume-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\303#\210\301\307\305#\210\301\310\303#\210\301\311\305#\210\211\207" [make-sparse-keymap define-key [down-mouse-1] mpc-volume-mouse-set [mouse-1] ignore [header-line down-mouse-1] [header-line mouse-1] [mode-line down-mouse-1] [mode-line mouse-1]] 5)) (defvar mpc-volume nil) (put 'mpc-volume 'risky-local-variable t) (defalias 'mpc-volume-refresh #[0 "\302\303\304\236A!!\211\207" [mpc-status mpc-volume mpc-volume-widget string-to-number volume] 4 "\n\n(fn)"]) (defvar mpc-volume-step 5) #@46 Change volume setting. (fn &optional EVENT) (defalias 'mpc-volume-mouse-set #[256 "\303!\211\211\3048)\206 \3058))\242;\203D \211\211\3048)\206+ \3058))@\211\3048)\206> \3058))AH\202j r\306\211@)!q\210\211\3078\206g A@:\203d A@@\202g A@)f)\310>\203t [\202u \311\312\n\236A!\\\313\314D\315\"\210\316\317\"\207" [position mpc-volume-step mpc-status event-start 7 4 window-buffer 5 (9665 60) string-to-number volume mpc-proc-cmd "setvol" mpc-status-refresh message "Set MPD volume to %s%%"] 8 (#$ . 56827) (list last-nonmenu-event)]) (defalias 'mpc-volume-widget #[513 "\211\204 \301\262\302\245_\303\304\305\306\307\310\311&\312\303\313\314\315\316E\306\317%\303\313\314\315\316 ZE\306\320%\312\303\321\305\306\322\310\323&\257\207" [mpc-volume-map 12.5 100.0 propertize "<" keymap face (:box (:line-width -2 :style pressed-button)) mouse-face (:box (:line-width -2 :style released-button)) " " "a" display space :width (:inverse-video t :box (:line-width -2 :style released-button)) (:box (:line-width -2 :style released-button)) ">" (:box (:line-width -2 :style pressed-button)) (:box (:line-width -2 :style released-button))] 16 "\n\n(fn VOL &optional SIZE)"]) (defvar mpc-current-song nil) (put 'mpc-current-song 'risky-local-variable t) (defvar mpc-current-updating nil) (put 'mpc-current-updating 'risky-local-variable t) (defvar mpc-songs-format-description nil) (put 'mpc-songs-format-description 'risky-local-variable t) (defvar mpc-previous-window-config nil) (defvar mpc-songs-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [mpc-mode-map make-sparse-keymap set-keymap-parent define-key [remap mpc-select] mpc-songs-jump-to] 5)) (defvar mpc-songpointer-set-visible nil) #@148 Make song file name objects unique via hash consing. This is used so that they can be compared with `eq', which is needed for `text-property-any'. (defvar mpc-songs-hashcons (make-hash-table :test 'equal :weakness t) (#$ . 58579)) (defalias 'mpc-songs-hashcons #[257 "\301\"\206\f \302\211#\207" [mpc-songs-hashcons gethash puthash] 5 "\n\n(fn NAME)"]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable mpc-songs-format funcall function #[0 "\300\207" ["%2{Disc--}%3{Track} %-5{Time} %25{Title} %20{Album} %20{Artist} %10{Date}"] 1 "%2{Disc--}%3{Track} %-5{Time} %25{Title} %20{Album} %20{Artist} %10{Date}\n\n(fn)"] "Format used to display each song in the list of songs." :type string] 6) (defalias 'mpc-songs-refresh #[0 "\306\307 \310\"\311!\203\204r\211q\210\312p!\313\314\315\316e\317 \"\317 \320 {B\313\313\262\313\204; \314\262\314\321\322\323!!\262\202\245 \211\203\244 \211@\211@\324=\203X \211AG\325U\203X \211\211A@)\326\327\330\331\332\333\334\335!\336\"\337\340%A\"\"\204~ @\324=\203z \314\262\211\202\232 \204\212 @\324=\204\222 \341\342#\202\232 \314\262\341\343#\262\210A\266\202\202< \210\344 \345\317 \320 \"iB\346 \210\203\273 \202\277 \347\350\"\211\203\211@\351\352\236A\206\320 \353!\\\262\354 \"\210\355\356\313x[!\210\357c\210\360\317\315!\317 \361\362\363\236A!$\210\364\236\211\203\360\317\315!\317 \365\351A!$\210\210A\266\202\202\277 \210\366!\210eb\210\367\370\371@!\372Q\373\f!\205(\374\f!\314#\2032\375A!\210\376p\315\"\211\203?\377`\"\210\266eb\210@y\210\201A A\313\314#\204^\201B A\313\314#\203f\201C \210\202ieb\210\201D \305!\210\201E !?\205\356\201F !D)\266)\210\314 @\201G )\207" [inhibit-read-only mpc-songs-playlist x mpc-songs-format mpc-separator-ol mpc-songs-totaltime mpc-proc-buffer mpc-proc songs buffer-live-p mpc-constraints-get-current nil t 0 count-lines line-beginning-position line-end-position mpc-proc-buf-to-alists mpc-proc-cmd "playlistinfo" Playlist 1 apply mpc-union mapcar make-byte-code 257 "\301\300@\"\207" vconcat vector [mpc-cmd-find] 4 "\n\n(fn VAL)" mpc-intersection #[257 "\300\236\207" [file] 3 "\n\n(fn X)"] #[257 "\300\236\207" [file] 3 "\n\n(fn X)"] mpc-select-get-selection buffer-substring-no-properties erase-buffer sort #[514 "\300\301\236A\301\236A\"\211\250\205 \211\302W\207" [mpc-compare-strings file 0] 6 "\n\n(fn SONG1 SONG2)"] string-to-number Time "0" mpc-format delete-char " " "\n" put-text-property mpc-file mpc-songs-hashcons file Pos mpc-file-pos mpc-select-restore re-search-forward "^" regexp-quote "$" overlayp overlay-end move-to-column get-buffer-window set-window-point mpc-songpointer-set-visible search-forward search-backward beginning-of-line make-local-variable zerop mpc-secs-to-time mpc-songpointer-refresh] 18 "\n\n(fn)"]) #@74 Filter songs to those who include STRING in their metadata. (fn STRING) (defalias 'mpc-songs-search #[257 "\302G!?\205 \211\303 \205> \304\305\306 \307\"\211\2037 \211@\211A\262\310\311\"\2030 r\211q\210\312 \210)A\266\202\202 \210\313 \210\202\f )\207" [mpc--song-search mpc--changed-selection zerop t nil process-get mpc-proc buffers buffer-local-value mpc-tag mpc-reorder mpc-songs-refresh] 6 (#$ . 61417) "sSearch for: "]) #@48 Turn off the current search restriction. (fn) (defalias 'mpc-songs-kill-search #[0 "\300\301!\207" [mpc-songs-search nil] 2 (#$ . 61860) nil]) #@52 Return the list of songs currently selected. (fn) (defalias 'mpc-songs-selection #[0 "\301\302 \303\"\304!\205W r\211q\210\212\305\2038 \211\2034 \211@\306\307!\310\"\306\307!\311\"BB\262A\266\202\202 \210\202R eb\210m\204R \306`\310\"\306`\311\"BB\262\312y\210\202; \211\237\262*\207" [mpc-select mpc-proc-buffer mpc-proc songs buffer-live-p nil get-text-property overlay-start mpc-file mpc-file-pos 1] 8 (#$ . 62010)]) #@98 Jump to song SONG-FILE; interactively, this is the song at point. (fn SONG-FILE &optional POSN) (defalias 'mpc-songs-jump-to #[513 "\303\304!\205 \305\306!\307Qrq\210eb\210\211\205# \310\311\312#\205# \313\314!)\204. \315!\202 \211\2048 \316\317!\202 rq\210\310\311\312#)\204M \303\320D!\202 \321\211@)!r\322\323\324\325\326\327!\330\"\331\332%DC\216\333@\334\"\210\335 !\205u \336 !\212\3378\206\217 A@:\203\214 A@@\202\217 A@)b\210\340 )\205\251 W\203\243 \314\202\244 \341\342\"_rq\210eb\210\343\344\n\236A\206\272 \345!y\210\211\203\304 \211y\210\212\310\311\312#\205\323 `\313\314!B)\212\346\311\312#\205\343 `\313\314!B)\203 \211\203 @`Z`@ZW\203\374 \202\211\202\206\211A\211\204\347\350\351C\"\210\303\352P!\266\203)\266\203*\262\207" [position overlay-arrow-position mpc-status mpc-proc-cmd "playlist" "^\\([0-9]+\\):" regexp-quote "$" re-search-forward nil t match-string 1 posn-set-point error "This song is not in the playlist" "play" internal--before-with-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 "\n\n(fn)" select-window norecord markerp marker-position 5 line-beginning-position -1 count-lines string-to-number song "0" re-search-backward signal cl-assertion-failed sn "play "] 16 (#$ . 62450) (byte-code "\302!\303\211@)!r\304\305\306\307\310\311!\312\"\313\314%DC\216\315@\316\"\210\317 8\206< A@:\2039 A@@\202< A@)b\210\320`\321\"*D\262\207" [last-nonmenu-event position event-end internal--before-with-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 "\n\n(fn)" select-window norecord 5 get-text-property mpc-file] 11)]) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [mpc-songs-mode-hook variable-documentation put purecopy "Hook run when entering MPC-song mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp mpc-songs-mode-map definition-name mpc-songs-mode] 5) (defvar mpc-songs-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [mpc-songs-mode-map variable-documentation put purecopy "Keymap for `mpc-songs-mode'." boundp mpc-songs-mode-syntax-table definition-name mpc-songs-mode] 5) (defvar mpc-songs-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [mpc-songs-mode-syntax-table variable-documentation put purecopy "Syntax table for `mpc-songs-mode'." mpc-songs-mode-abbrev-table definition-name mpc-songs-mode] 5) (defvar mpc-songs-mode-abbrev-table (progn (define-abbrev-table 'mpc-songs-mode-abbrev-table nil) mpc-songs-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [mpc-songs-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `mpc-songs-mode'." mpc-songs-mode derived-mode-parent mpc-mode] 5) #@485 Major mode derived from `mpc-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `mpc-songs-mode-map', `mpc-songs-mode-abbrev-table' and `mpc-songs-mode-syntax-table' which more-or-less shadow mpc-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `mpc-songs-mode-hook', as the final step during initialization. \{mpc-songs-mode-map} (fn) (defalias 'mpc-songs-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R 1=\204R \326 \3251C#\210\327 !\210\330\f!\210 1\331\332!r\211q\210\333\334\335\336\337\340!\341\"\342\343%DC\216\3442\345\"\210\346 *\2623\306\347!\210\350\351\352\353#\354D'\306\355!\210\356-)\357\360!\207" [delay-mode-hooks major-mode mode-name mpc-songs-mode-map mpc-songs-mode-syntax-table mpc-songs-mode-abbrev-table make-local-variable t mpc-mode mpc-songs-mode "MPC-song" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" mpc-format self buffer-string header-line-format propertize " " display (space :align-to 0) (:eval (let ((hscroll (window-hscroll))) (with-temp-buffer (mpc-format mpc-songs-format 'self hscroll) (buffer-string)))) mode-line-format ("%e" mode-line-frame-identification mode-line-buffer-identification #(" " 0 3 (help-echo "mouse-1: Select (drag to resize)\nmouse-2: Make current window occupy the whole frame\nmouse-3: Remove current window from display")) mode-line-position #(" " 0 2 (help-echo "mouse-1: Select (drag to resize)\nmouse-2: Make current window occupy the whole frame\nmouse-3: Remove current window from display")) mpc-songs-totaltime mpc-current-updating #(" " 0 2 (help-echo "mouse-1: Select (drag to resize)\nmouse-2: Make current window occupy the whole frame\nmouse-3: Remove current window from display")) (mpc--song-search (:propertize ("Search=\"" mpc--song-search "\"") help-echo "mouse-2: kill this search" follow-link t mouse-face mode-line-highlight keymap (keymap (mode-line keymap (mouse-2 . mpc-songs-kill-search)))) (:propertize "NoSearch" help-echo "mouse-2: set a search restriction" follow-link t mouse-face mode-line-highlight keymap (keymap (mode-line keymap (mouse-2 . mpc-songs-search)))))) run-mode-hooks mpc-songs-mode-hook local-abbrev-table mpc-songs-format mpc-songs-format-description] 8 (#$ . 65540) nil]) (defalias 'mpc-songpointer-set #[257 "\302p\303\"\211\205' \206' \304 !\205' \305 !p=\205' \306! X\205' \307!W\310\301!\2044 \311\301!\210\312 \313\223\210\211\205V \205V \306!V\204R \307\303\"Y\205V \314\"\207" [mpc-songpointer-set-visible overlay-arrow-position get-buffer-window t markerp marker-buffer window-start window-end local-variable-p make-local-variable make-marker nil set-window-point] 7 "\n\n(fn POS)"]) (defalias 'mpc-songpointer-refresh #[0 "\301\302 \303\"\304!\205A r\211q\210\305ed\306\307\310\236A!$\211\2050 \212\211b\210\305\311\312!d\306\307\310\236A!$)\211\203; \313\314\315\"\202> \316!\266\202)\207" [mpc-status mpc-proc-buffer mpc-proc songs buffer-live-p text-property-any mpc-file mpc-songs-hashcons file line-beginning-position 2 mpc-proc-cmd "playlist" mpc-songpointer-refresh-hairy mpc-songpointer-set] 9 "\n\n(fn)"]) (defalias 'mpc-songpointer-context #[514 "r\211q\210eb\210\301\302\236A\206 \303!y\210\304\211\212\305\211W\2038 \211\306\307\304\310#\2030 \311\312\313!!B\262\210\211T\262\202 \266)\313y\210\305\211W\203` \211\314\307\304\310#\203X \311\312\313!!B\262\210\211T\262\202@ \266GW\205m \211GW?\205v \237\237B\266\202)\207" [mpc-status string-to-number song "0" nil 0 re-search-backward "^[0-9]+:\\(.*\\)" t mpc-songs-hashcons match-string 1 re-search-forward] 11 "\n\n(fn SIZE PLBUF)"]) (defalias 'mpc-songpointer-score #[514 "\300b\210@\211\203' \211@\301\302y!\203 \303`\304\"=\203 T\262A\266\202\202 \210b\210A\211\203N \211@\301\305y!\203G \303`\304\"=\203G T\262A\266\202\202- \210\211\207" [0 zerop -1 get-text-property mpc-file 1] 8 "\n\n(fn CONTEXT POS)"]) (defalias 'mpc-songpointer-refresh-hairy #[0 "p\301\302 \303\"\304!\205\215 r\211q\210\305\306\307ed\310\311\312\236A!$\305\212\211b\210\307\313\314!d\310\311\312\236A!$)\211\262\203\207 \315\"\211W\204\203 \211V\203P \262\211\262\202\203 W\204\203 T\262\316 \"\211\204m S\262\202\202 \211\262\315\"\262\212b\210\313\305!\262)\210\210\202 \317!\266\205)\207" [mpc-status mpc-proc-buffer mpc-proc songs buffer-live-p 0 (nil) text-property-any mpc-file mpc-songs-hashcons file line-beginning-position 2 mpc-songpointer-score mpc-songpointer-context mpc-songpointer-set] 14 "\n\n(fn)"]) (defalias 'mpc-current-refresh #[0 "\302 \210\303\236\205\n \304\305\306\307D\310\306\311\305EDC\217\210\312\313!\207" [mpc-status mpc-current-updating mpc-status-buffer-refresh updating_db " Updating-DB" #1=#:err funcall #[0 "\302\236\205 \303\304\305\236A!\303\306\236A\307\310\236A\311\312\236A\313\260 \211\207" [mpc-status mpc-current-song file " " mpc-secs-to-time time Title " (" Artist " / " Album ")"] 9 "\n\n(fn)"] error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] force-mode-line-update t] 6 "\n\n(fn)"]) (defalias 'mpc-songs-buf #[0 "\300\301 \302\"\303!\203 \211\202$ r\304\305!\211\262q\210\300\301 \302#\210\306 \210)\211\207" [mpc-proc-buffer mpc-proc songs buffer-live-p get-buffer-create "*MPC-Songs*" mpc-songs-mode] 5 "\n\n(fn)"]) #@41 Tell MPD to refresh its database. (fn) (defalias 'mpc-update #[0 "\300 \207" [mpc-cmd-update] 1 (#$ . 71388) nil]) #@33 Quit Music Player Daemon. (fn) (defalias 'mpc-quit #[0 "\302\303\205 \304\305\"\"\302\306\"\307 \310\211\2034 \211@\211\203- \311!>\204- \311!B\262A\266\202\202 \210\211\203W \203W rq\210 )\203W \312@!\210\313rq\210 )!\210\202\242 \211\211\203\241 \211@\314\315!\211\203{ \211@\316! >\204t \310\262A\266\202\202b \210\211\203\231 \317\320\321\322\323\324\325!\326\"\327\330%D\331\320\332\317EDC\217\210\210A\266\202\202X \210\333\334\"\210\335 \210\205\261 \336!\207" [mpc-proc mpc-previous-window-config mapcar cdr process-get buffers #[257 "\300\301\"\207" [get-buffer-window 0] 4 "\n\n(fn BUF)"] mpc-songs-buf nil window-frame select-frame set-window-configuration t window-list window-buffer #1=#:err funcall make-byte-code 0 "\301\300!\207" vconcat vector [delete-frame] 2 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] mapc kill-buffer mpc-status-stop delete-process] 16 (#$ . 71510) nil]) #@48 Stop playing the current queue of songs. (fn) (defalias 'mpc-stop #[0 "\300 \210\301 \210\302 \207" [mpc-cmd-stop mpc-cmd-clear mpc-status-refresh] 1 (#$ . 72457) nil]) #@22 Pause playing. (fn) (defalias 'mpc-pause #[0 "\300\301!\207" [mpc-cmd-pause "1"] 2 (#$ . 72633) nil]) #@23 Resume playing. (fn) (defalias 'mpc-resume #[0 "\300\301!\207" [mpc-cmd-pause "0"] 2 (#$ . 72742) nil]) #@43 Start playing whatever is selected. (fn) (defalias 'mpc-play #[0 "\300\301 \236A\302\235\203 \303 \207\304 \210\305 \203\" \300\301 \236A\306\235\205% \307 \207\310\311!\207" [state mpc-cmd-status ("pause") mpc-resume mpc-cmd-clear mpc-playlist-add ("stop") mpc-cmd-play error "Don't know what to play"] 2 (#$ . 72853) nil]) #@43 Jump to the next song in the queue. (fn) (defalias 'mpc-next #[0 "\300\301!\210\302 \207" [mpc-proc-cmd "next" mpc-status-refresh] 2 (#$ . 73186) nil]) #@75 Jump to the beginning of the current song, or to the previous song. (fn) (defalias 'mpc-prev #[0 "\301\236A\211\203 \302!\303V\203 \304\305\306\236A\303E!\210\202! \304\307!\210\310 \207" [mpc-status time string-to-number 0 mpc-proc-cmd "seekid" songid "previous" mpc-status-refresh] 5 (#$ . 73345) nil]) (defvar mpc-last-seek-time '(0 . 0)) #@40 Fast forward. (fn EVENT SPEEDUP STEP) (defalias 'mpc--faster #[771 "\303\304!!\245\305\306!>\204[ \307 \211@Z\211\310_W?\205V \211\311W\203( \202* \312 \313\236A\211\205C \314W\203= A\202C \315\316\236A!\\\211\262B\317\320E\321\"\266\203\266\202\202\232 \312 \313\236A\211\205k \315\316\236A!C\322\323\324\325\326\327\330\f\n\n#\331\"\332\333%#\334\335 \211\262\n!\211\242)\336=\204\201 \337!\262\266\202\262\207" [mpc-last-seek-time mpc-status object abs float down event-modifiers float-time 0.9 1.0 mpc-cmd-status songid 1.0 string-to-number time mpc-proc-cmd "seekid" mpc-status-refresh run-with-timer t make-byte-code 0 "\303\304\301\302\211@\300\\\240E\305\"\207" vconcat vector [mpc-proc-cmd "seekid" mpc-status-refresh] 6 "\n\n(fn)" event-basic-type read-event mouse-movement cancel-timer] 19 (#$ . 73699) (list last-nonmenu-event)]) (defvar mpc--faster-toggle-timer nil) (defalias 'mpc--faster-stop #[0 "\205 \301!\210\302\211\207" [mpc--faster-toggle-timer cancel-timer nil] 2 "\n\n(fn)"]) (defalias 'mpc--faster-toggle-refresh #[0 "\301\236A\302\232\205 \303 \207" [mpc-status state "stop" mpc--faster-stop] 2 "\n\n(fn)"]) (defalias 'mpc--songduration #[0 "\301\302\236A\303\304\"\204 \305\306\"\202 \211\307\225\310O\262!\207" [mpc-status string-to-number time string-match ":" error "Unexpected time format %S" 0 nil] 5 "\n\n(fn)"]) (defvar mpc--faster-toggle-forward nil) (defvar mpc--faster-acceleration 0.5) (defalias 'mpc--faster-toggle #[514 "C\211\302@!\240\210\203 \303 \202M \304 \210\305 \210\306C\306C\306C\306C\306C\307\310\311\312\313\n\n\n\n\n\n&\314\"\315\316%\310V\211 \210\317\320\321#\211\262\266\205\207" [mpc--faster-toggle-timer mpc--faster-toggle-forward float mpc--faster-stop mpc-status-refresh mpc-proc-sync nil make-byte-code 0 "\306#\236A\305@\232\203 \305@\301@\232\204 \301@\262\211\204! \307 \202\342 \301@\232\204B \301\240\210\303\310\311#\236A!\240\210\302\312 \240\210\304\313 \240\202\342 \303@\302@Y\203a $\203a \314#\236A\315\232?\205\342 \316\317\320\"\202\342 \303@\321X\203\207 $\204\207 \305\301@\240\210\316\322\323\321\324\325\326\301\302\303\304$\327\"\330\331%\"\202\342 \300\211@%\\\240\210\332\300@\313 \304@Z_!\211\333X\203\242 \333\262\304\211@\300@\245\\\240\210$\204\265 \211[\262\303\302@\303@\\^\240\210\303@\302@Y?\205\340 \334\335\323\321\336\325\326\301\303\"\337\"\340\331%D\341\335\342\334EDC\217\262\207" vconcat vector [songid mpc--faster-stop string-to-number time mpc--songduration float-time state "play" mpc-proc-cmd "next" mpc-status-refresh 0 "previous" make-byte-code "\304\305\306\307\310\311\300\301\302\303$\312\"\313\314%!\207" vconcat vector [mpc-status-refresh make-byte-code 0 "\300\305\f\236A\240\210\302\301\306 \240\240\210\303\307 \240\210\310\311\300@\302@E!\207" vconcat vector [mpc-status songid mpc--songduration float-time mpc-proc-cmd "seekid"] 4 "\n\n(fn)"] 10 "\n\n(fn)" truncate 1 #1=#:err funcall "\302\303\300@\301@E\304\"\207" [mpc-proc-cmd "seekid" mpc-status-refresh] 4 mpc-proc-error #[257 "\300 \207" [mpc-status-refresh] 2 "\n\n(fn IGNORED)"] mpc-status mpc--faster-toggle-forward mpc--faster-acceleration] 12 "\n\n(fn)" run-with-timer t 0.3] 19 "\n\n(fn SPEEDUP STEP)"]) (defvar mpc-faster-speedup 8) #@27 Fast forward. (fn EVENT) (defalias 'mpc-ffwd #[257 "\301\302\"\207" [mpc-faster-speedup mpc--faster-toggle 1] 4 (#$ . 76990) (list last-nonmenu-event)]) #@26 Fast rewind. (fn EVENT) (defalias 'mpc-rewind #[257 "\301\302\"\207" [mpc-faster-speedup mpc--faster-toggle -1] 4 (#$ . 77151) (list last-nonmenu-event)]) (defalias 'mpc-play-at-point #[256 "\300!\210\301 \207" [mpc-select mpc-play] 3 "\n\n(fn &optional EVENT)" (list last-nonmenu-event)]) #@36 DWIM for a drag EVENT. (fn EVENT) (defalias 'mpc-drag-n-drop #[257 "\303!\304!\305\211@)!\305\211@)!rq\210\3068\2061 A@:\203. A@@\2021 A@)b\210\307`\310\"\203@ \311 \202t \312\313!\203Z \307`\314\"\203Z \307`\314\"\307`\315\"BC\202t \203q \316 \204q \317\320\321 \322 \323 {\"\"\202t \324\325!)rq\210\3068\206\222 A@:\203\217 A@@\202\222 A@)b\210 \326=\203\323 \316 \204\250 n\203\256 l\203\256 \324\327!\202\263 \322 \323 {\330\317\331\"\"\210\332\333G#\210\211\326\334 \236A\235\205\316 \335 \262\202R\312\313!\203O\n\204\344 \324\336!\210\202J=\203\307`\315\"\337\317\340\"\n#\210\332\341G\"\266\202J\307`\315\"\n;\203\321\326\n\"\202\342\343!\330\317\331\"\n\"\210\337\344G\345\211W\2039\211\211G\\B\262\210\211T\262\202!\266\211\237\262\n#\210\332\346G\"\266\335 \202R\324\347!)\207" [position mpc-tag mpc-songs-playlist event-start event-end window-buffer 5 get-text-property mpc-select mpc-songs-selection derived-mode-p mpc-songs-mode mpc-file mpc-file-pos mpc-tagbrowser-all-p mapcar #[257 "\300\236AC\207" [file] 3 "\n\n(fn SONG)"] mpc-cmd-find line-beginning-position line-end-position error "Unsupported starting position for drag'n'drop gesture" Playlist "Not a playlist" mpc-cmd-add car message "Added %d songs to %s" mpc-constraints-get-current mpc-songs-refresh "The songs shown do not belong to a playlist" mpc-cmd-move cdr "Moved %d songs" mpc-proc-cmd-to-alist "playlist" nil 0 "Added %d songs" "Unsupported drag'n'drop gesture"] 16 (#$ . 77450) "e"]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable mpc-frame-alist funcall function #[0 "\300\207" [((name . "MPC") (tool-bar-lines . 1) (font . "Sans"))] 1 "\n\n(fn)"] "Alist of frame parameters for the MPC frame." :type alist] 6) #@33 Main entry point for MPC. (fn) (defalias 'mpc #[0 "\302 \303\304\"\211\203 \305!\210\202u \306\307 !\204 \310 \203- \311\312\313D\314\312\315\311EDC\217\210\2029 rq\210\316\300!\210\317 )\307 \320 \211\204F \314\321!\210\322\"\210\323\324\"\210\325 \210\322\326\211A\262@!\"\210\323\324\"\210\211\203s \320\327\330#\262\202T \266\331 \266\332 \210\333 \207" [mpc-previous-window-config mpc-browser-tags mpc-songs-buf get-buffer-window 0 select-window window-dedicated-p selected-window window-minibuffer-p #1=#:err funcall #[0 "\301\302!!\207" [mpc-frame-alist select-frame make-frame] 3 "\n\n(fn)"] error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] make-local-variable current-window-configuration split-window "Need at least one entry in `mpc-browser-tags'" set-window-buffer set-window-dedicated-p soft mpc-status-buffer-show mpc-tagbrowser-buf nil horiz balance-windows-area mpc-songs-refresh mpc-status-refresh] 10 (#$ . 79246) (byte-code "\203 \302\303\304\211 $\304\207" [current-prefix-arg mpc-host read-string "MPD host and port: " nil] 5)]) (provide 'mpc)