| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (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) | |
| 16 | #@110 Format VERSION as human-readable string. | |
| 17 | ||
| 18 | Return a human-readable string representing VERSION. | |
| 19 | ||
| 20 | (fn VERSION) | |
| 21 | (defalias 'pkg-info-format-version #[257 "\300!\207" [package-version-join] 3 (#$ . 538)]) | |
| 22 | #@113 Show and return VERSION. | |
| 23 | ||
| 24 | When SHOW is non-nil, show VERSION in minibuffer. | |
| 25 | ||
| 26 | Return VERSION. | |
| 27 | ||
| 28 | (fn VERSION SHOW) | |
| 29 | (defalias 'pkg-info--show-version-and-return #[514 "\211\203 \300<\203 \301!\202 !\210\207" [message pkg-info-format-version] 5 (#$ . 746)]) | |
| 30 | (put 'pkg-info--show-version-and-return 'byte-optimizer 'byte-compile-inline-expand) | |
| 31 | #@33 Read a library from minibuffer. | |
| 32 | (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 (#$ . 1097)]) | |
| 33 | #@39 Read a function name from minibuffer. | |
| 34 | (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 (#$ . 1329)]) | |
| 35 | #@38 Read a package name from minibuffer. | |
| 36 | (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 "\301\302!>\204 \303\304\305D\"\210\306H!\207" [cl-struct-epl-package-tags symbol-name type-of signal wrong-type-argument epl-package 1] 6 "\n\n(fn PKG)"] string< completing-read "Installed package: " nil require-match] 11 (#$ . 1549)]) | |
| 37 | #@176 Get the source file of LIBRARY. | |
| 38 | ||
| 39 | LIBRARY is either a symbol denoting a named feature, or a library | |
| 40 | name as string. | |
| 41 | ||
| 42 | Return the source file of LIBRARY as string. | |
| 43 | ||
| 44 | (fn LIBRARY) | |
| 45 | (defalias 'pkg-info-library-source #[257 "\3009\203\f \301!\202 !\207" [find-library-name symbol-name] 4 (#$ . 1982)]) | |
| 46 | #@246 Get the source file of the library defining FUNCTION. | |
| 47 | ||
| 48 | FUNCTION is a function symbol. | |
| 49 | ||
| 50 | Return the file name of the library as string. Signal an error | |
| 51 | if the library does not exist, or if the definition of FUNCTION | |
| 52 | was not found. | |
| 53 | ||
| 54 | (fn FUNCTION) | |
| 55 | (defalias 'pkg-info-defining-library #[257 "\300!\204 \301\302\300D\"\210\303\304\"\211\204 \305\306\"\210\211\207" [functionp signal wrong-type-argument symbol-file defun error "Can't find definition of %s"] 5 (#$ . 2287)]) | |
| 56 | #@203 Read the X-Original-Version header from FILE. | |
| 57 | ||
| 58 | Return the value as version list, or return nil if FILE lacks | |
| 59 | this header. Signal an error, if the value of the header is not | |
| 60 | a valid version. | |
| 61 | ||
| 62 | (fn FILE) | |
| 63 | (defalias 'pkg-info-x-original-version #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210\312\313!*\262\211\205$ \314!\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents lm-header "X-Original-Version" version-to-list] 8 (#$ . 2770)]) | |
| 64 | #@598 Get the original version in the header of LIBRARY. | |
| 65 | ||
| 66 | The original version is stored in the X-Original-Version header. | |
| 67 | This header is added by the MELPA package archive to preserve | |
| 68 | upstream version numbers. | |
| 69 | ||
| 70 | LIBRARY is either a symbol denoting a named feature, or a library | |
| 71 | name as string. | |
| 72 | ||
| 73 | If SHOW is non-nil, show the version in the minibuffer. | |
| 74 | ||
| 75 | Return the version from the header of LIBRARY as list. Signal an | |
| 76 | error if the LIBRARY was not found or had no X-Original-Version | |
| 77 | header. | |
| 78 | ||
| 79 | See Info node `(elisp)Library Headers' for more information | |
| 80 | about library headers. | |
| 81 | ||
| 82 | (fn LIBRARY &optional SHOW) | |
| 83 | (defalias 'pkg-info-library-original-version #[513 "\300\301!!\211\203$ \211\211\203 \302<\203 \303!\202 !\210\266\202\202( \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 (#$ . 3335) (byte-code "\300 \301D\207" [pkg-info--read-library t] 2)]) | |
| 84 | #@423 Get the version in the header of LIBRARY. | |
| 85 | ||
| 86 | LIBRARY is either a symbol denoting a named feature, or a library | |
| 87 | name as string. | |
| 88 | ||
| 89 | If SHOW is non-nil, show the version in the minibuffer. | |
| 90 | ||
| 91 | Return the version from the header of LIBRARY as list. Signal an | |
| 92 | error if the LIBRARY was not found or had no proper header. | |
| 93 | ||
| 94 | See Info node `(elisp)Library Headers' for more information | |
| 95 | about library headers. | |
| 96 | ||
| 97 | (fn LIBRARY &optional SHOW) | |
| 98 | (defalias 'pkg-info-library-version #[513 "\300!\301\302!!\211\211\203 \303<\203 \304!\202 !\210\266\202\207" [pkg-info-library-source epl-package-version epl-package-from-file message pkg-info-format-version] 9 (#$ . 4292) (byte-code "\300 \301D\207" [pkg-info--read-library t] 2)]) | |
| 99 | #@633 Get the original version of the library defining FUNCTION. | |
| 100 | ||
| 101 | The original version is stored in the X-Original-Version header. | |
| 102 | This header is added by the MELPA package archive to preserve | |
| 103 | upstream version numbers. | |
| 104 | ||
| 105 | If SHOW is non-nil, show the version in mini-buffer. | |
| 106 | ||
| 107 | This function is mainly intended to find the version of a major | |
| 108 | or minor mode, i.e. | |
| 109 | ||
| 110 | (pkg-info-defining-library-version 'flycheck-mode) | |
| 111 | ||
| 112 | Return the version of the library defining FUNCTION. Signal an | |
| 113 | error if FUNCTION is not a valid function, if its defining | |
| 114 | library was not found, or if the library had no proper version | |
| 115 | header. | |
| 116 | ||
| 117 | (fn FUNCTION &optional SHOW) | |
| 118 | (defalias 'pkg-info-defining-library-original-version #[513 "\300\301!\"\207" [pkg-info-library-original-version pkg-info-defining-library] 5 (#$ . 5015) (byte-code "\300 \301D\207" [pkg-info--read-function t] 2)]) | |
| 119 | #@470 Get the version of the library defining FUNCTION. | |
| 120 | ||
| 121 | If SHOW is non-nil, show the version in mini-buffer. | |
| 122 | ||
| 123 | This function is mainly intended to find the version of a major | |
| 124 | or minor mode, i.e. | |
| 125 | ||
| 126 | (pkg-info-defining-library-version 'flycheck-mode) | |
| 127 | ||
| 128 | Return the version of the library defining FUNCTION. Signal an | |
| 129 | error if FUNCTION is not a valid function, if its defining | |
| 130 | library was not found, or if the library had no proper version | |
| 131 | header. | |
| 132 | ||
| 133 | (fn FUNCTION &optional SHOW) | |
| 134 | (defalias 'pkg-info-defining-library-version #[513 "\300\301!\"\207" [pkg-info-library-version pkg-info-defining-library] 5 (#$ . 5871) (byte-code "\300 \301D\207" [pkg-info--read-function t] 2)]) | |
| 135 | #@193 Get the version of an installed PACKAGE. | |
| 136 | ||
| 137 | If SHOW is non-nil, show the version in the minibuffer. | |
| 138 | ||
| 139 | Return the version as list, or nil if PACKAGE is not installed. | |
| 140 | ||
| 141 | (fn PACKAGE &optional SHOW) | |
| 142 | (defalias 'pkg-info-package-version #[513 ";\203 \300!\202\f \301!@\211\204 \302\303\"\210\304!\211\2030 \305<\203- \306!\202. !\210\266\202\207" [intern epl-find-installed-packages error "Can't find installed package %s" epl-package-version message pkg-info-format-version] 9 (#$ . 6546) (byte-code "\300 \301D\207" [pkg-info--read-package t] 2)]) | |
| 143 | #@768 Obtain complete version info for LIBRARY and PACKAGE. | |
| 144 | ||
| 145 | LIBRARY is a symbol denoting a named feature, or a library name | |
| 146 | as string. PACKAGE is a symbol denoting an ELPA package. If | |
| 147 | omitted or nil, default to LIBRARY. | |
| 148 | ||
| 149 | If SHOW is non-nil, show the version in the minibuffer. | |
| 150 | ||
| 151 | When called interactively, prompt for LIBRARY. When called | |
| 152 | interactively with prefix argument, prompt for PACKAGE as well. | |
| 153 | ||
| 154 | Return a string with complete version information for LIBRARY. | |
| 155 | This version information contains the version from the headers of | |
| 156 | LIBRARY, and the version of the installed PACKAGE, the LIBRARY is | |
| 157 | part of. If PACKAGE is not installed, or if the PACKAGE version | |
| 158 | is the same as the LIBRARY version, do not include a package | |
| 159 | version. | |
| 160 | ||
| 161 | (fn LIBRARY &optional PACKAGE SHOW) | |
| 162 | (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\266\202\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 (#$ . 7107) (byte-code "\301 \205 \302 \303E\207" [current-prefix-arg pkg-info--read-library pkg-info--read-package t] 3)]) | |
| 163 | #@44 The URL from which to fetch MELPA recipes. | |
| 164 | (defconst pkg-info-melpa-recipe-url "http://melpa.org/recipes.json" (#$ . 8453)) | |
| 165 | #@28 An alist of MELPA recipes. | |
| 166 | (defvar pkg-info-melpa-recipes nil (#$ . 8583)) | |
| 167 | #@44 Retrieve MELPA recipes from MELPA archive. | |
| 168 | (defalias 'pkg-info-retrieve-melpa-recipes #[0 "\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312 \211\313\232\204! \314\315#\210 b\210\316 \262*\207" [pkg-info-melpa-recipe-url url-http-end-of-headers url-retrieve-synchronously make-byte-code 0 "\300\205 \301\300!\205 \302\300!\207" vconcat vector [buffer-live-p kill-buffer] 2 url-http-parse-response 200 error "Failed to retrieve MELPA recipes from %s (code %s)" json-read] 7 (#$ . 8664)]) | |
| 169 | #@20 Get MELPA recipes. | |
| 170 | (defalias 'pkg-info-get-melpa-recipes #[0 "\206 \301 \211\207" [pkg-info-melpa-recipes pkg-info-retrieve-melpa-recipes] 2 (#$ . 9170)]) | |
| 171 | #@89 Get the MELPA recipe for PACKAGE. | |
| 172 | ||
| 173 | Return nil if PACKAGE is not on MELPA. | |
| 174 | ||
| 175 | (fn PACKAGE) | |
| 176 | (defalias 'pkg-info-get-melpa-recipe #[257 "\211\300 \236A\207" [pkg-info-get-melpa-recipes] 3 (#$ . 9334)]) | |
| 177 | #@50 Get the MELPA fetcher for PACKAGE. | |
| 178 | ||
| 179 | (fn PACKAGE) | |
| 180 | (defalias 'pkg-info-get-melpa-fetcher #[257 "\300\301!\236A\207" [fetcher pkg-info-get-melpa-recipe] 4 (#$ . 9537)]) | |
| 181 | #@70 Determine whether PACKAGE is build from the EmacsWiki. | |
| 182 | ||
| 183 | (fn PACKAGE) | |
| 184 | (defalias 'pkg-info-wiki-package-p #[257 "\300!\301\232\207" [pkg-info-get-melpa-fetcher "wiki"] 3 (#$ . 9710)]) | |
| 185 | (provide 'pkg-info) | |
