;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require epl lisp-mnt find-func json url-http] 2) #@110 Format VERSION as human-readable string. Return a human-readable string representing VERSION. (fn VERSION) (defalias 'pkg-info-format-version #[257 "\300!\207" [package-version-join] 3 (#$ . 217)]) #@113 Show and return VERSION. When SHOW is non-nil, show VERSION in minibuffer. Return VERSION. (fn VERSION SHOW) (defalias 'pkg-info--show-version-and-return #[514 "\211\203\300<\203\301!\202!\210\207" [message pkg-info-format-version] 5 (#$ . 425)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pkg-info--show-version-and-return speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@33 Read a library from minibuffer. (defalias 'pkg-info--read-library #[0 "\301\302\303\304\305 #\"\207" [load-path completing-read "Load library: " apply-partially locate-file-completion-table get-load-suffixes] 6 (#$ . 850)]) #@39 Read a function name from minibuffer. (defalias 'pkg-info--read-function #[0 "\301\302\303\304$\211\305\230?\205\306!\207" [obarray completing-read "Function: " boundp :require-match "" intern] 5 (#$ . 1081)]) #@38 Read a package name from minibuffer. (defalias 'pkg-info--read-package #[0 "\300 \301\302\303\"\304\"\211@\305\306\307\310\307\211&\207" [epl-installed-packages sort mapcar #[257 "\300\301H!\207" [symbol-name 1] 4 "\n\n(fn PKG)"] string< completing-read "Installed package: " nil require-match] 11 (#$ . 1301)]) #@176 Get the source file of LIBRARY. LIBRARY is either a symbol denoting a named feature, or a library name as string. Return the source file of LIBRARY as string. (fn LIBRARY) (defalias 'pkg-info-library-source #[257 "\3009\203\f\301!\202 !\207" [find-library-name symbol-name] 4 (#$ . 1626)]) #@246 Get the source file of the library defining FUNCTION. FUNCTION is a function symbol. Return the file name of the library as string. Signal an error if the library does not exist, or if the definition of FUNCTION was not found. (fn FUNCTION) (defalias 'pkg-info-defining-library #[257 "\300!\204 \301\302\300D\"\210\303\304\"\211\204\305\306\"\210\207" [functionp signal wrong-type-argument symbol-file defun error "Can't find definition of %s"] 5 (#$ . 1931)]) #@203 Read the X-Original-Version header from FILE. Return the value as version list, or return nil if FILE lacks this header. Signal an error, if the value of the header is not a valid version. (fn FILE) (defalias 'pkg-info-x-original-version #[257 "\300\301\302\"r\211q\210\303\304\"\216\305!\210\306\307!*\262\211\205\310!\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents lm-header "X-Original-Version" version-to-list] 5 (#$ . 2410)]) #@598 Get the original version in the header of LIBRARY. The original version is stored in the X-Original-Version header. This header is added by the MELPA package archive to preserve upstream version numbers. LIBRARY is either a symbol denoting a named feature, or a library name as string. If SHOW is non-nil, show the version in the minibuffer. Return the version from the header of LIBRARY as list. Signal an error if the LIBRARY was not found or had no X-Original-Version header. See Info node `(elisp)Library Headers' for more information about library headers. (fn LIBRARY &optional SHOW) (defalias 'pkg-info-library-original-version #[513 "\300\301!!\211\203 \211\211\203\302<\203\303!\202!\210\207\304\305\"\207" [pkg-info-x-original-version pkg-info-library-source message pkg-info-format-version error "Library %s has no original version"] 8 (#$ . 2949) (byte-code "\300 \301D\207" [pkg-info--read-library t] 2)]) #@423 Get the version in the header of LIBRARY. LIBRARY is either a symbol denoting a named feature, or a library name as string. If SHOW is non-nil, show the version in the minibuffer. Return the version from the header of LIBRARY as list. Signal an error if the LIBRARY was not found or had no proper header. See Info node `(elisp)Library Headers' for more information about library headers. (fn LIBRARY &optional SHOW) (defalias 'pkg-info-library-version #[513 "\300!\301\302!!\211\211\203\303<\203\304!\202!\210\207" [pkg-info-library-source epl-package-version epl-package-from-file message pkg-info-format-version] 9 (#$ . 3896) (byte-code "\300 \301D\207" [pkg-info--read-library t] 2)]) #@633 Get the original version of the library defining FUNCTION. The original version is stored in the X-Original-Version header. This header is added by the MELPA package archive to preserve upstream version numbers. If SHOW is non-nil, show the version in mini-buffer. This function is mainly intended to find the version of a major or minor mode, i.e. (pkg-info-defining-library-version 'flycheck-mode) Return the version of the library defining FUNCTION. Signal an error if FUNCTION is not a valid function, if its defining library was not found, or if the library had no proper version header. (fn FUNCTION &optional SHOW) (defalias 'pkg-info-defining-library-original-version #[513 "\300\301!\"\207" [pkg-info-library-original-version pkg-info-defining-library] 5 (#$ . 4611) (byte-code "\300 \301D\207" [pkg-info--read-function t] 2)]) #@470 Get the version of the library defining FUNCTION. If SHOW is non-nil, show the version in mini-buffer. This function is mainly intended to find the version of a major or minor mode, i.e. (pkg-info-defining-library-version 'flycheck-mode) Return the version of the library defining FUNCTION. Signal an error if FUNCTION is not a valid function, if its defining library was not found, or if the library had no proper version header. (fn FUNCTION &optional SHOW) (defalias 'pkg-info-defining-library-version #[513 "\300\301!\"\207" [pkg-info-library-version pkg-info-defining-library] 5 (#$ . 5467) (byte-code "\300 \301D\207" [pkg-info--read-function t] 2)]) #@193 Get the version of an installed PACKAGE. If SHOW is non-nil, show the version in the minibuffer. Return the version as list, or nil if PACKAGE is not installed. (fn PACKAGE &optional SHOW) (defalias 'pkg-info-package-version #[513 ";\203 \300!\202\f\301!@\211\204\302\303\"\210\304!\211\2030\305<\203-\306!\202.!\210\207" [intern epl-find-installed-packages error "Can't find installed package %s" epl-package-version message pkg-info-format-version] 9 (#$ . 6142) (byte-code "\300 \301D\207" [pkg-info--read-package t] 2)]) #@768 Obtain complete version info for LIBRARY and PACKAGE. LIBRARY is a symbol denoting a named feature, or a library name as string. PACKAGE is a symbol denoting an ELPA package. If omitted or nil, default to LIBRARY. If SHOW is non-nil, show the version in the minibuffer. When called interactively, prompt for LIBRARY. When called interactively with prefix argument, prompt for PACKAGE as well. Return a string with complete version information for LIBRARY. This version information contains the version from the headers of LIBRARY, and the version of the installed PACKAGE, the LIBRARY is part of. If PACKAGE is not installed, or if the PACKAGE version is the same as the LIBRARY version, do not include a package version. (fn LIBRARY &optional PACKAGE SHOW) (defalias 'pkg-info-version-info #[769 "\206;\203\300!\202\3011\302!0\202\210\303\211\206$\304!\3051/\306!0\2021\210\303\211\203H\307\"\204H\310\311\312!\312!#\202K\312!\211\211\203a\313<\203^\312!\202_!\210\207" [intern (error) pkg-info-library-original-version nil pkg-info-library-version (error) pkg-info-package-version version-list-= format "%s (package: %s)" pkg-info-format-version message] 13 (#$ . 6695) (byte-code "\301 \205\302 \303E\207" [current-prefix-arg pkg-info--read-library pkg-info--read-package t] 3)]) #@44 The URL from which to fetch MELPA recipes. (defconst pkg-info-melpa-recipe-url "http://melpa.org/recipes.json" (#$ . 8033)) #@28 An alist of MELPA recipes. (defvar pkg-info-melpa-recipes nil (#$ . 8163)) #@44 Retrieve MELPA recipes from MELPA archive. (defalias 'pkg-info-retrieve-melpa-recipes #[0 "\302!r\211q\210\303\304\"\216\305 \211\306=\204\307\310#\210 b\210\311 \262*\207" [pkg-info-melpa-recipe-url url-http-end-of-headers url-retrieve-synchronously make-closure #[0 "\300\205 \301\300!\205 \302\300!\207" [V0 buffer-live-p kill-buffer] 2] url-http-parse-response 200 error "Failed to retrieve MELPA recipes from %s (code %s)" json-read] 6 (#$ . 8244)]) #@20 Get MELPA recipes. (defalias 'pkg-info-get-melpa-recipes #[0 "\206\301 \211\207" [pkg-info-melpa-recipes pkg-info-retrieve-melpa-recipes] 2 (#$ . 8714)]) #@89 Get the MELPA recipe for PACKAGE. Return nil if PACKAGE is not on MELPA. (fn PACKAGE) (defalias 'pkg-info-get-melpa-recipe #[257 "\211\300 \236A\207" [pkg-info-get-melpa-recipes] 3 (#$ . 8878)]) #@50 Get the MELPA fetcher for PACKAGE. (fn PACKAGE) (defalias 'pkg-info-get-melpa-fetcher #[257 "\300\301!\236A\207" [fetcher pkg-info-get-melpa-recipe] 4 (#$ . 9081)]) #@70 Determine whether PACKAGE is build from the EmacsWiki. (fn PACKAGE) (defalias 'pkg-info-wiki-package-p #[257 "\300!\301\232\207" [pkg-info-get-melpa-fetcher "wiki"] 3 (#$ . 9254)]) (provide 'pkg-info)