;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require emms emms-tag-editor] 2) #@41 Name of buffer used by `emms-show-all'. (defvar emms-show-all-buffer-name "Emms Track Information" (#$ . 161)) #@47 If t, kill the show-all buffer when quitting. (defvar emms-show-all-kill-buffer-on-quit-p nil (#$ . 278)) #@40 Declare so as to silence the compiler. (defvar emms-show-all-track-alist nil (#$ . 390)) #@34 Keymap for `emms-show-all-mode'. (defvar emms-show-all-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\207" [text-mode-map make-sparse-keymap set-keymap-parent define-key "q" emms-show-all-mode-bury-buffer "E" emms-show-all-edit-track] 5) (#$ . 485)) (defvar emms-show-all-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [emms-show-all-mode-hook variable-documentation put "Hook run after entering Emms-Show-All mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp emms-show-all-mode-map definition-name emms-show-all-mode] 4) (defvar emms-show-all-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [emms-show-all-mode-abbrev-table emms-show-all-mode-map variable-documentation put purecopy "Keymap for `emms-show-all-mode'." boundp emms-show-all-mode-syntax-table definition-name emms-show-all-mode (lambda (#1=#:def-tmp-var) (defvar emms-show-all-mode-syntax-table #1#)) make-syntax-table "Syntax table for `emms-show-all-mode'." (lambda (#1#) (defvar emms-show-all-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `emms-show-all-mode'." derived-mode-parent text-mode] 5) #@237 Major mode for `emms-show-all' \{emms-show-all-mode-map} In addition to any hooks its parent mode `text-mode' might have run, this mode runs the hook `emms-show-all-mode-hook', as the final or penultimate step during initialization. (defalias 'emms-show-all-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 emms-show-all-mode-map emms-show-all-mode-syntax-table emms-show-all-mode-abbrev-table make-local-variable t text-mode emms-show-all-mode "Emms-Show-All" 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 emms-show-all-mode-hook local-abbrev-table] 5 (#$ . 2013) nil]) #@29 Edit the track being shown. (defalias 'emms-show-all-edit-track #[0 "\301 \210\302!\207" [emms-show-all-track-alist emms-show-all-mode-bury-buffer emms-tag-editor-edit-track] 3 (#$ . 3020) nil]) #@44 Bury, and optionally kill the show buffer. (defalias 'emms-show-all-mode-bury-buffer #[0 "\301\302 \205\303\"\207" [emms-show-all-kill-buffer-on-quit-p quit-restore-window selected-window kill] 3 (#$ . 3223) nil]) #@29 Prepare the display buffer. (defalias 'emms-show-all-setup-buffer #[0 "\304!r\211q\210\305\306!\204\307\306!\210\310\n\311=\204\311 \210\310\312 \210*\207" [emms-show-all-buffer-name buffer-read-only major-mode inhibit-read-only get-buffer-create local-variable-p emms-show-all-track-alist make-local-variable t emms-show-all-mode erase-buffer] 3 (#$ . 3446)]) #@43 Format information for TRACK. (fn TRACK) (defalias 'emms-show-all-format #[257 "\301\302\303\304\"\"\211\203 \211@\305\306@A#P\262A\266\202\202\210\207" [emms-tag-editor-tags #1="" mapcar make-closure #[257 "\301\302@\"\303\300@\"\206\304B\207" [V0 format "%s" emms-track-get #1#] 5 "\n\n(fn TAG)"] format "%-17s: %s\n"] 9 (#$ . 3820)]) #@61 Insert information for TRACK in current buffer. (fn TRACK) (defalias 'emms-show-all-insert #[257 "\300!\211\301\267\202\302!c\207\303\304!!c\207\305!\306\304!Q\207" [emms-track-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file 9 url 14)) emms-show-all-format emms-format-url-track-name emms-track-name symbol-name ": "] 6 (#$ . 4178)]) #@44 Display information for TRACK. (fn TRACK) (defalias 'emms-show-all-track #[257 "\302 r\211q\210\303\304!\210)\305p!)\207" [inhibit-read-only emms-show-all-track-alist emms-show-all-setup-buffer t emms-show-all-insert pop-to-buffer] 4 (#$ . 4574)]) #@44 Describe the current EMMS track in detail. (defalias 'emms-show-all #[0 "\203 \301\302 !\207\303\304!\207" [emms-player-playing-p emms-show-all-track emms-playlist-current-selected-track message "nothing playing right now"] 2 (#$ . 4833) nil]) (provide 'emms-show-all)