;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require ivy libmpdel mpdel-core mpdel-song] 2) #@66 Wrap ENTITY into an object suitable for `ivy-read'. (fn ENTITY) (defalias 'ivy-mpdel--wrap #[257 "\300\301!!B\207" [substring-no-properties libmpdel-entity-name] 4 (#$ . 201)]) #@72 Wrap all ENTITIES into objects suitable for `ivy-read'. (fn ENTITIES) (defalias 'ivy-mpdel--wrap-all #[257 "\300\301\"\207" [mapcar ivy-mpdel--wrap] 4 (#$ . 387)]) #@51 Return the entity wrapped within PAIR. (fn PAIR) (defalias 'ivy-mpdel--unwrap #[257 "\211A\207" [] 2 (#$ . 559)]) #@83 Return a function applying FUNCTION after unwrapping its argument. (fn FUNCTION) (defalias 'ivy-mpdel--apply-unwrapped #[257 "\300\301\"\207" [make-closure #[257 "\300\301!!\207" [V0 ivy-mpdel--unwrap] 4 "\n\n(fn PAIR)"]] 4 (#$ . 680)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\210\306\301\304\310\304\311%\210\300\312\302\312\313\304#\314#\210\306\312\304\313\304\315%\207" [defalias ivy-mpdel--main-action cl-generic-define (entity) nil "Return a function called when selecting ENTITY.\n\n(fn ENTITY)" cl-generic-define-method #[257 "\300!\207" [ivy-mpdel-list] 3 "\n\n(fn ENTITY)"] ((song libmpdel-song)) #[257 "\300!\207" [mpdel-song-open] 3 "\n\n(fn SONG)"] ivy-mpdel--caller (_entity) "Return a symbol representing ivy's caller for _ENTITY.\n\n(fn ENTITY)" #[257 "\300\207" [ivy-mpdel-list] 2 "\n\n(fn ENTITY)"]] 6) #@61 Start ivy-mpdel interface on parent of ENTITY. (fn ENTITY) (defalias 'ivy-mpdel--list-parent #[257 "\300!\211\205\n\300!\211\204\205\301\206!\207" [libmpdel-entity-parent ivy-mpdel-list] 5 (#$ . 1544)]) #@93 Select a child of ENTITY. If ENTITY is nil, select from all artists. (fn &optional ENTITY) (defalias 'ivy-mpdel-list #[256 "\300\206\301\302\303\"\"\207" [libmpdel-list artists make-closure #[257 "\301\302\303!\304\305\306!\307\310\300!&\207" [V0 ivy-read "Entity: " ivy-mpdel--wrap-all :action ivy-mpdel--apply-unwrapped ivy-mpdel--main-action :caller ivy-mpdel--caller] 9 "\n\n(fn CHILDREN)"]] 6 (#$ . 1766) nil]) #@38 Select music from a list of artists. (defalias 'ivy-mpdel-artists #[0 "\300\301!\207" [ivy-mpdel-list artists] 2 (#$ . 2195) nil]) #@50 Select music from a stored playlist or edit one. (defalias 'ivy-mpdel-stored-playlists #[0 "\300\301!\207" [ivy-mpdel-list stored-playlists] 2 (#$ . 2332) nil]) (byte-code "\301\302\303\304\305!\306BB\307\304\310!\311BB\312\304\313!\314BB\315\304\313!\316BB\317\304\320!\321BB\322\304\323!\324BB\257\"\210\325\326\327#\210\325\330\331#\210\332\333!\207" [mpdel-core-map ivy-add-actions ivy-mpdel-list "a" ivy-mpdel--apply-unwrapped libmpdel-current-playlist-add ("Add to current playlist") "A" libmpdel-stored-playlist-add ("Add to a stored playlist") "r" libmpdel-current-playlist-replace ("Replace current playlist") "R" ("Replace stored playlist") "p" libmpdel-current-playlist-insert ("Insert after currently-played song") "^" ivy-mpdel--list-parent ("List parent entity") define-key "i" ivy-mpdel-artists "I" ivy-mpdel-stored-playlists provide ivy-mpdel] 10)