| 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\303\304!\204 \305\304\306\"\210\300\207" [require cl-lib package fboundp define-error defalias #[770 "\211\204 \300\262\211:\203 \301\302\303\304\"\"\202 \211\305NB\306\305\307\310B!!#\210\2052 \306\311#\207" [error apply append mapcar #[257 "\211\300N\206 \301\302\"B\207" [error-conditions error "Unknown signal `%s'"] 5 "\n\n(fn PARENT)"] error-conditions put delete-dups copy-sequence error-message] 11 "Define NAME as a new error signal.\nMESSAGE is a string that will be output to the echo area if such an error\nis signaled without being caught by a `condition-case'.\nPARENT is either a signal or a list of signals from which it inherits.\nDefaults to `error'.\n\n(fn NAME MESSAGE &optional PARENT)"]] 3) | |
| 16 | #@147 Whether PACKAGE is a `package-desc' object. | |
| 17 | ||
| 18 | Like `package-desc-p', but return nil, if `package-desc-p' is not | |
| 19 | defined as function. | |
| 20 | ||
| 21 | (fn PACKAGE) | |
| 22 | (defalias 'epl--package-desc-p #[257 "\301\302!\205 \303!>\205 \304\207" [cl-struct-package-desc-tags fboundp package-desc-p type-of t] 3 (#$ . 1179)]) | |
| 23 | (byte-code "\300\301\302\303#\210\304\305\306\"\210\304\307\310\305#\210\304\311\312\307#\207" [put epl--package-desc-p byte-optimizer byte-compile-inline-expand define-error epl-error "EPL error" epl-invalid-package "Invalid EPL package" epl-invalid-package-file "Invalid EPL package file"] 4) | |
| 24 | #@32 Get the directory of packages. | |
| 25 | (defalias 'epl-package-dir #[0 "\207" [package-user-dir] 1 (#$ . 1782)]) | |
| 26 | #@40 Get the default directory of packages. | |
| 27 | (defalias 'epl-default-package-dir #[0 "\300\301\302N@!\207" [eval package-user-dir standard-value] 3 (#$ . 1893)]) | |
| 28 | #@64 Change the directory of packages to DIRECTORY. | |
| 29 | ||
| 30 | (fn DIRECTORY) | |
| 31 | (defalias 'epl-change-package-dir #[257 "\211\301 \207" [package-user-dir epl-initialize] 2 (#$ . 2054)]) | |
| 32 | #@41 Remember the load path for `epl-reset'. | |
| 33 | (defvar epl--load-path-before-initialize nil (#$ . 2230)) | |
| 34 | #@126 Load Emacs Lisp packages and activate them. | |
| 35 | ||
| 36 | With NO-ACTIVATE non-nil, do not activate packages. | |
| 37 | ||
| 38 | (fn &optional NO-ACTIVATE) | |
| 39 | (defalias 'epl-initialize #[256 "\302!\207" [load-path epl--load-path-before-initialize package-initialize] 3 (#$ . 2335)]) | |
| 40 | (defalias 'epl-refresh 'package-refresh-contents) | |
| 41 | #@57 Add a package archive with NAME and URL. | |
| 42 | ||
| 43 | (fn NAME URL) | |
| 44 | (defalias 'epl-add-archive #[514 "\300\301B\"\207" [add-to-list package-archives] 6 (#$ . 2643)]) | |
| 45 | #@142 Reset the package system. | |
| 46 | ||
| 47 | Clear the list of installed and available packages, the list of | |
| 48 | package archives and reset the package directory. | |
| 49 | (defalias 'epl-reset #[0 "\306\211\306 \307\305!\203 \306\310\311 !\207" [package-alist package-archives package-archive-contents epl--load-path-before-initialize load-path package-obsolete-alist nil boundp epl-change-package-dir epl-default-package-dir] 3 (#$ . 2806)]) | |
| 50 | #@74 compiler-macro for inlining `epl-requirement-p'. | |
| 51 | ||
| 52 | (fn CL-WHOLE-ARG CL-X) | |
| 53 | (defalias 'epl-requirement-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-requirement-p (and (memq (type-of cl-x) cl-struct-epl-requirement-tags) t)) nil] 9 (#$ . 3230)]) | |
| 54 | (put 'epl-requirement-p 'compiler-macro 'epl-requirement-p--cmacro) | |
| 55 | #@13 | |
| 56 | ||
| 57 | (fn CL-X) | |
| 58 | (defalias 'epl-requirement-p #[257 "\301!>\205 \302\207" [cl-struct-epl-requirement-tags type-of t] 3 (#$ . 3594)]) | |
| 59 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put epl-requirement-p side-effect-free error-free put epl-requirement cl-deftype-satisfies] 5) | |
| 60 | #@77 compiler-macro for inlining `epl-requirement-name'. | |
| 61 | ||
| 62 | (fn CL-WHOLE-ARG CL-X) | |
| 63 | (defalias 'epl-requirement-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-requirement-name (or (epl-requirement-p cl-x) (signal 'wrong-type-argument (list 'epl-requirement cl-x))) (aref cl-x 1)) nil] 9 (#$ . 3888)]) | |
| 64 | (put 'epl-requirement-name 'compiler-macro 'epl-requirement-name--cmacro) | |
| 65 | #@105 Access slot "name" of `(epl-requirement (:constructor epl-requirement-create))' struct CL-X. | |
| 66 | ||
| 67 | (fn CL-X) | |
| 68 | (defalias 'epl-requirement-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epl-requirement-tags type-of signal wrong-type-argument epl-requirement 1] 5 (#$ . 4310)]) | |
| 69 | (byte-code "\300\301\302\303#\300\207" [function-put epl-requirement-name side-effect-free t] 4) | |
| 70 | #@80 compiler-macro for inlining `epl-requirement-version'. | |
| 71 | ||
| 72 | (fn CL-WHOLE-ARG CL-X) | |
| 73 | (defalias 'epl-requirement-version--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-requirement-version (or (epl-requirement-p cl-x) (signal 'wrong-type-argument (list 'epl-requirement cl-x))) (aref cl-x 2)) nil] 9 (#$ . 4707)]) | |
| 74 | (put 'epl-requirement-version 'compiler-macro 'epl-requirement-version--cmacro) | |
| 75 | #@108 Access slot "version" of `(epl-requirement (:constructor epl-requirement-create))' struct CL-X. | |
| 76 | ||
| 77 | (fn CL-X) | |
| 78 | (defalias 'epl-requirement-version #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epl-requirement-tags type-of signal wrong-type-argument epl-requirement 2] 5 (#$ . 5144)]) | |
| 79 | (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put epl-requirement-version side-effect-free t defalias copy-epl-requirement copy-sequence] 4) | |
| 80 | #@98 compiler-macro for inlining `epl-requirement-create'. | |
| 81 | ||
| 82 | (fn CL-WHOLE &cl-quote &key NAME VERSION) | |
| 83 | (defalias 'epl-requirement-create--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202 \304>A@\203. \305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :name :version (:name :version :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :version)" cl--defsubst-expand (name version) (cl-block epl-requirement-create (record 'epl-requirement name version))] 12 (#$ . 5604)]) | |
| 84 | (put 'epl-requirement-create 'compiler-macro 'epl-requirement-create--cmacro) | |
| 85 | #@76 Constructor for objects of type `epl-requirement'. | |
| 86 | ||
| 87 | (fn &key NAME VERSION) | |
| 88 | (defalias 'epl-requirement-create #[128 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202 \304>A@\203. \305\262\202 \306\307@\"\210\202 \210\310\311#\207" [plist-member :name :version (:name :version :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :version)" record epl-requirement] 7 (#$ . 6261)]) | |
| 89 | (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put epl-requirement-create side-effect-free t cl-struct-define epl-requirement "Structure describing a requirement.\n\nSlots:\n\n`name' The name of the required package, as symbol.\n\n`version' The version of the required package, as version list." cl-structure-object record nil ((cl-tag-slot) (name) (version)) cl-struct-epl-requirement-tags] 11) | |
| 90 | #@60 The version of a REQUIREMENT, as string. | |
| 91 | ||
| 92 | (fn REQUIREMENT) | |
| 93 | (defalias 'epl-requirement-version-string #[257 "\301\302!>\204 \303\304\305D\"\210\306H!\207" [cl-struct-epl-requirement-tags package-version-join type-of signal wrong-type-argument epl-requirement 2] 6 (#$ . 7143)]) | |
| 94 | #@70 compiler-macro for inlining `epl-package-p'. | |
| 95 | ||
| 96 | (fn CL-WHOLE-ARG CL-X) | |
| 97 | (defalias 'epl-package-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-package-p (and (memq (type-of cl-x) cl-struct-epl-package-tags) t)) nil] 9 (#$ . 7431)]) | |
| 98 | (put 'epl-package-p 'compiler-macro 'epl-package-p--cmacro) | |
| 99 | #@13 | |
| 100 | ||
| 101 | (fn CL-X) | |
| 102 | (defalias 'epl-package-p #[257 "\301!>\205 \302\207" [cl-struct-epl-package-tags type-of t] 3 (#$ . 7771)]) | |
| 103 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put epl-package-p side-effect-free error-free put epl-package cl-deftype-satisfies] 5) | |
| 104 | #@73 compiler-macro for inlining `epl-package-name'. | |
| 105 | ||
| 106 | (fn CL-WHOLE-ARG CL-X) | |
| 107 | (defalias 'epl-package-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-package-name (or (epl-package-p cl-x) (signal 'wrong-type-argument (list 'epl-package cl-x))) (aref cl-x 1)) nil] 9 (#$ . 8049)]) | |
| 108 | (put 'epl-package-name 'compiler-macro 'epl-package-name--cmacro) | |
| 109 | #@97 Access slot "name" of `(epl-package (:constructor epl-package-create))' struct CL-X. | |
| 110 | ||
| 111 | (fn CL-X) | |
| 112 | (defalias 'epl-package-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epl-package-tags type-of signal wrong-type-argument epl-package 1] 5 (#$ . 8442)]) | |
| 113 | (byte-code "\300\301\302\303#\300\207" [function-put epl-package-name side-effect-free t] 4) | |
| 114 | #@80 compiler-macro for inlining `epl-package-description'. | |
| 115 | ||
| 116 | (fn CL-WHOLE-ARG CL-X) | |
| 117 | (defalias 'epl-package-description--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-package-description (or (epl-package-p cl-x) (signal 'wrong-type-argument (list 'epl-package cl-x))) (aref cl-x 2)) nil] 9 (#$ . 8815)]) | |
| 118 | (put 'epl-package-description 'compiler-macro 'epl-package-description--cmacro) | |
| 119 | #@104 Access slot "description" of `(epl-package (:constructor epl-package-create))' struct CL-X. | |
| 120 | ||
| 121 | (fn CL-X) | |
| 122 | (defalias 'epl-package-description #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epl-package-tags type-of signal wrong-type-argument epl-package 2] 5 (#$ . 9244)]) | |
| 123 | (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put epl-package-description side-effect-free t defalias copy-epl-package copy-sequence] 4) | |
| 124 | #@98 compiler-macro for inlining `epl-package-create'. | |
| 125 | ||
| 126 | (fn CL-WHOLE &cl-quote &key NAME DESCRIPTION) | |
| 127 | (defalias 'epl-package-create--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202 \304>A@\203. \305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :name :description (:name :description :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :description)" cl--defsubst-expand (name description) (cl-block epl-package-create (record 'epl-package name description))] 12 (#$ . 9688)]) | |
| 128 | (put 'epl-package-create 'compiler-macro 'epl-package-create--cmacro) | |
| 129 | #@76 Constructor for objects of type `epl-package'. | |
| 130 | ||
| 131 | (fn &key NAME DESCRIPTION) | |
| 132 | (defalias 'epl-package-create #[128 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202 \304>A@\203. \305\262\202 \306\307@\"\210\202 \210\310\311#\207" [plist-member :name :description (:name :description :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :description)" record epl-package] 7 (#$ . 10345)]) | |
| 133 | (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put epl-package-create side-effect-free t cl-struct-define epl-package "Structure representing a package.\n\nSlots:\n\n`name' The package name, as symbol.\n\n`description' The package description.\n\nThe format package description varies between package.el\nvariants. For `package-desc' variants, it is simply the\ncorresponding `package-desc' object. For legacy variants, it is\na vector `[VERSION REQS DOCSTRING]'.\n\nDo not access `description' directly, but instead use the\n`epl-package' accessors." cl-structure-object record nil ((cl-tag-slot) (name) (description)) cl-struct-epl-package-tags] 11) | |
| 134 | #@218 Cast VAR to a package description in BODY. | |
| 135 | ||
| 136 | VAR is a symbol, bound to an `epl-package' object. This macro | |
| 137 | casts this object to the `description' object, and binds the | |
| 138 | description to VAR in BODY. | |
| 139 | ||
| 140 | (fn VAR &rest BODY) | |
| 141 | (defalias 'epl-package-as-description '(macro . #[385 "9\204\f \300\301\302D\"\210\303\304D\305\306DDCBB\300\307\310\311EEF\207" [signal wrong-type-argument symbolp if epl-package-p let epl-package-description 'wrong-type-argument list #'epl-package-p] 10 (#$ . 11491)])) | |
| 142 | (byte-code "\300\301\302\303#\300\207" [function-put epl-package-as-description lisp-indent-function 1] 4) | |
| 143 | #@71 Whether the description of PACKAGE is a `package-desc'. | |
| 144 | ||
| 145 | (fn PACKAGE) | |
| 146 | (defalias 'epl-package--package-desc-p #[257 "\302!>\204 \303\304\305D\"\210\211\306H\307\310!\205! \302! >\205! \311\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags type-of signal wrong-type-argument epl-package 2 fboundp package-desc-p t] 5 (#$ . 12102)]) | |
| 147 | (put 'epl-package--package-desc-p 'byte-optimizer 'byte-compile-inline-expand) | |
| 148 | #@60 Get the version of PACKAGE, as version list. | |
| 149 | ||
| 150 | (fn PACKAGE) | |
| 151 | (defalias 'epl-package-version #[257 "\302!>\203T \302!>\204 \303\304\305D\"\210\211\306H\307\310!\2035 \302! >\204/ \303\304\311D\"\210\211\306H\202S \307\312!\203O \312!\211<\203G \211\202J \313!\262\202S \314\315\"\207\303\304\316D\"\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags type-of signal wrong-type-argument epl-package 2 fboundp package-desc-version package-desc package-desc-vers version-to-list error "Cannot get version from %S" epl-package-p] 6 (#$ . 12533)]) | |
| 152 | #@58 Get the version from a PACKAGE, as string. | |
| 153 | ||
| 154 | (fn PACKAGE) | |
| 155 | (defalias 'epl-package-version-string #[257 "\300\301!!\207" [package-version-join epl-package-version] 4 (#$ . 13101)]) | |
| 156 | #@54 Get the summary of PACKAGE, as string. | |
| 157 | ||
| 158 | (fn PACKAGE) | |
| 159 | (defalias 'epl-package-summary #[257 "\302!>\203F \302!>\204 \303\304\305D\"\210\211\306H\307\310!\2035 \302! >\204/ \303\304\311D\"\210\211\312H\202E \307\313!\203A \313!\202E \314\315\"\207\303\304\316D\"\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags type-of signal wrong-type-argument epl-package 2 fboundp package-desc-summary package-desc 3 package-desc-doc error "Cannot get summary from %S" epl-package-p] 6 (#$ . 13286)]) | |
| 160 | #@65 Create a `epl-requirement' from a `package-desc' REQ. | |
| 161 | ||
| 162 | (fn REQ) | |
| 163 | (defalias 'epl-requirement--from-req #[257 "\211A@\300\301@\302<\203 \202 \303!$\207" [epl-requirement-create :name :version version-to-list] 8 (#$ . 13801)]) | |
| 164 | (put 'epl-requirement--from-req 'byte-optimizer 'byte-compile-inline-expand) | |
| 165 | #@107 Get the requirements of PACKAGE. | |
| 166 | ||
| 167 | The requirements are a list of `epl-requirement' objects. | |
| 168 | ||
| 169 | (fn PACKAGE) | |
| 170 | (defalias 'epl-package-requirements #[257 "\302!>\2030 \302!>\204 \303\304\305D\"\210\211\306H\307\310\302! >\204+ \303\304\311D\"\210\312H\"\207\303\304\313D\"\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags type-of signal wrong-type-argument epl-package 2 mapcar epl-requirement--from-req package-desc 4 epl-package-p] 8 (#$ . 14114)]) | |
| 171 | #@163 Get the directory PACKAGE is installed to. | |
| 172 | ||
| 173 | Return the absolute path of the installation directory of | |
| 174 | PACKAGE, or nil, if PACKAGE is not installed. | |
| 175 | ||
| 176 | (fn PACKAGE) | |
| 177 | (defalias 'epl-package-directory #[257 "\302\303!\203M \304\211!>\204 \305\306\307D\"\210\310H! >\2048 \305\306\311\304!>\2042 \305\306\307D\"\210\310HD\"\210\304!>\204G \305\306\307D\"\210\211\310H\312H\207\302\313!\203m \313\314\304!>\204d \305\306\307D\"\210\315H!\316!\"\207\317\320\"\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags fboundp package-desc-dir type-of signal wrong-type-argument epl-package 2 package-desc 7 package--dir symbol-name 1 epl-package-version-string error "Cannot get package directory from %S"] 8 (#$ . 14588)]) | |
| 178 | #@67 Determine whether PKG1 is before PKG2 by version. | |
| 179 | ||
| 180 | (fn PKG1 PKG2) | |
| 181 | (defalias 'epl-package-->= #[514 "\300\301!\301!\"?\207" [version-list-< epl-package-version] 6 (#$ . 15331)]) | |
| 182 | #@140 Create an `epl-package' from a PACKAGE-DESC. | |
| 183 | ||
| 184 | PACKAGE-DESC is a `package-desc' object, from recent package.el | |
| 185 | variants. | |
| 186 | ||
| 187 | (fn PACKAGE-DESC) | |
| 188 | (defalias 'epl-package--from-package-desc #[257 "\301\302!\2032 \211\301\303!\205 \304!>\205 \305\262\2032 \306\307\304!>\204, \310\311\312D\"\210\313H#\207\310\311\314D\"\207" [cl-struct-package-desc-tags fboundp package-desc-name package-desc-p type-of t record epl-package signal wrong-type-argument package-desc 1 epl--package-desc-p] 7 (#$ . 15517)]) | |
| 189 | #@37 Parse a package.el INFO. | |
| 190 | ||
| 191 | (fn INFO) | |
| 192 | (defalias 'epl-package--parse-info #[257 "\211\301\302!\205 \303!>\205 \304\262\203 \305!\207\306\307H!\310\311H\312H\313H#\314\315#\207" [cl-struct-package-desc-tags fboundp package-desc-p type-of t epl-package--from-package-desc intern 0 vector 3 1 2 record epl-package] 7 (#$ . 16029)]) | |
| 193 | #@191 Create an `epl-package' object from BUFFER. | |
| 194 | ||
| 195 | BUFFER defaults to the current buffer. | |
| 196 | ||
| 197 | Signal `epl-invalid-package' if the buffer does not contain a | |
| 198 | valid package file. | |
| 199 | ||
| 200 | (fn &optional BUFFER) | |
| 201 | (defalias 'epl-package-from-buffer #[256 "r\211\206 pq\210\3001 \301 0\202 \302\303A\"\262)\304!\207" [(error) package-buffer-info signal epl-invalid-package epl-package--parse-info] 5 (#$ . 16375)]) | |
| 202 | #@124 Parse the package headers the file at FILE-NAME. | |
| 203 | ||
| 204 | Return an `epl-package' object with the header metadata. | |
| 205 | ||
| 206 | (fn FILE-NAME) | |
| 207 | (defalias 'epl-package-from-lisp-file #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210\31214 \3131' \314p!00\202< 0\315\316AB\"\262\202< \315@A\"\262*\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 (error) (epl-invalid-package) epl-package-from-buffer signal epl-invalid-package-file] 8 (#$ . 16778)]) | |
| 208 | #@144 Parse the package tarball at FILE-NAME. | |
| 209 | ||
| 210 | Return a `epl-package' object with the meta data of the tarball | |
| 211 | package in FILE-NAME. | |
| 212 | ||
| 213 | (fn FILE-NAME) | |
| 214 | (defalias 'epl-package-from-tar-file #[257 "\3001 \301\302!!0\207\210\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314!\210\315 \210\301\302 !*\207" [(wrong-number-of-arguments) epl-package--parse-info package-tar-file-info generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents-literally tar-mode] 8 (#$ . 17342)]) | |
| 215 | #@129 Parse the package at FILE-NAME. | |
| 216 | ||
| 217 | Return an `epl-package' object with the meta data of the package | |
| 218 | at FILE-NAME. | |
| 219 | ||
| 220 | (fn FILE-NAME) | |
| 221 | (defalias 'epl-package-from-file #[257 "\301\302\303\304#)\266\203\203 \305!\207\306!\207" [inhibit-changing-match-data "\\.tar\\'" nil t string-match epl-package-from-tar-file epl-package-from-lisp-file] 8 (#$ . 17909)]) | |
| 222 | #@64 Parse a REQUIREMENT in a package descriptor. | |
| 223 | ||
| 224 | (fn REQUIREMENT) | |
| 225 | (defalias 'epl-package--parse-descriptor-requirement #[257 "\211\211G\300U\203 \211A\262\242\202 \301\302\303GD\"@\304!D\207" [2 signal wrong-number-of-arguments nil version-to-list] 7 (#$ . 18273)]) | |
| 226 | #@171 Load a `epl-package' from a package DESCRIPTOR-FILE. | |
| 227 | ||
| 228 | A package descriptor is a file defining a new package. Its name | |
| 229 | typically ends with -pkg.el. | |
| 230 | ||
| 231 | (fn DESCRIPTOR-FILE) | |
| 232 | (defalias 'epl-package-from-descriptor-file #[257 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210eb\210\313p!\211@\314=\204) \315\316\"\210\317\320!\203U \317\321!\203U \322\320A\"\323\324\325!>\204K \326\327\330D\"\210\331H#\262\202\225 \211A\211G\332U\203g \211A\262\242\202n \326\333\334GD\"\211A\262\242\211A\262\242@\335\336\337!\340\307\341!\342\343A@\"#$\266\205\262*\207" [cl-struct-package-desc-tags generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents read define-package error "%S is no valid package descriptor" fboundp package-desc-from-define package-desc-name apply record epl-package type-of signal wrong-type-argument package-desc 1 4 wrong-number-of-arguments nil epl-package-create :name intern :description version-to-list mapcar epl-package--parse-descriptor-requirement] 17 (#$ . 18551)]) | |
| 233 | #@260 Determine whether a PACKAGE, of MIN-VERSION or newer, is installed. | |
| 234 | ||
| 235 | PACKAGE is either a package name as symbol, or a package object. | |
| 236 | When a explicit MIN-VERSION is provided it overwrites the version of the PACKAGE object. | |
| 237 | ||
| 238 | (fn PACKAGE &optional MIN-VERSION) | |
| 239 | (defalias 'epl-package-installed-p #[513 "\301!>\203 \301!>\204 \302\303\304D\"\210\305H\202 \206- \301!>\205- \306!\307\"\207" [cl-struct-epl-package-tags type-of signal wrong-type-argument epl-package 1 epl-package-version package-installed-p] 7 (#$ . 19673)]) | |
| 240 | #@112 Parse an ENTRY from the list of built-in packages. | |
| 241 | ||
| 242 | Return the corresponding `epl-package' object. | |
| 243 | ||
| 244 | (fn ENTRY) | |
| 245 | (defalias 'epl--parse-built-in-entry #[257 "\300\301!\203\f \302\301!!\207\303\304@A#\207" [fboundp package--from-builtin epl-package--from-package-desc record epl-package] 5 (#$ . 20218)]) | |
| 246 | #@69 Get all built-in packages. | |
| 247 | ||
| 248 | Return a list of `epl-package' objects. | |
| 249 | (defalias 'epl-built-in-packages #[0 "\301\302!\210\303\304\"\207" [package--builtins package-built-in-p foo mapcar epl--parse-built-in-entry] 3 (#$ . 20528)]) | |
| 250 | #@187 Find a built-in package with NAME. | |
| 251 | ||
| 252 | NAME is a package name, as symbol. | |
| 253 | ||
| 254 | Return the built-in package as `epl-package' object, or nil if | |
| 255 | there is no built-in package with NAME. | |
| 256 | ||
| 257 | (fn NAME) | |
| 258 | (defalias 'epl-find-built-in-package #[257 "\301!\205 \302\236!\207" [package--builtins package-built-in-p epl--parse-built-in-entry] 4 (#$ . 20764)]) | |
| 259 | #@402 Determine whether a PACKAGE is outdated. | |
| 260 | ||
| 261 | A package is outdated, if there is an available package with a | |
| 262 | higher version. | |
| 263 | ||
| 264 | PACKAGE is either a package name as symbol, or a package object. | |
| 265 | In the former case, test the installed or built-in package with | |
| 266 | the highest version number, in the later case, test the package | |
| 267 | object itself. | |
| 268 | ||
| 269 | Return t, if the package is outdated, or nil otherwise. | |
| 270 | ||
| 271 | (fn PACKAGE) | |
| 272 | (defalias 'epl-package-outdated-p #[257 "\301!>\203\f \211\202 \302!@\206 \303!\304\301!>\204& \305\306\307D\"\210\310H!@\205; \211\205; \311\312!\312!\"\207" [cl-struct-epl-package-tags type-of epl-find-installed-packages epl-find-built-in-package epl-find-available-packages signal wrong-type-argument epl-package 1 version-list-< epl-package-version] 7 (#$ . 21112)]) | |
| 273 | #@345 Parse a list of packages from ENTRY. | |
| 274 | ||
| 275 | ENTRY is a single entry in a package list, e.g. `package-alist', | |
| 276 | `package-archive-contents', etc. Typically it is a cons cell, | |
| 277 | but the exact format varies between package.el versions. This | |
| 278 | function tries to parse all known variants. | |
| 279 | ||
| 280 | Return a list of `epl-package' objects parsed from ENTRY. | |
| 281 | ||
| 282 | (fn ENTRY) | |
| 283 | (defalias 'epl--parse-package-list-entry #[257 "\211A\211<\203 \300\301\302\"\303\"\202% \304!\203! \305\306@#C\202% \307\310\"\207" [sort mapcar epl-package--from-package-desc epl-package-->= vectorp record epl-package error "Cannot parse entry %S"] 6 (#$ . 21904)]) | |
| 284 | #@64 Get all installed packages. | |
| 285 | ||
| 286 | Return a list of package objects. | |
| 287 | (defalias 'epl-installed-packages #[0 "\301\302\303\304\"\"\207" [package-alist apply append mapcar epl--parse-package-list-entry] 5 (#$ . 22528)]) | |
| 288 | #@56 Filter outdated packages from PACKAGES. | |
| 289 | ||
| 290 | (fn PACKAGES) | |
| 291 | (defalias 'epl--filter-outdated-packages #[257 "\300\211\203 \211@\301!\203 \211B\262A\266\202\202 \210\211\237\207" [nil epl-package-outdated-p] 6 (#$ . 22746)]) | |
| 292 | (put 'epl--filter-outdated-packages 'byte-optimizer 'byte-compile-inline-expand) | |
| 293 | #@95 Get all outdated packages, as in `epl-package-outdated-p'. | |
| 294 | ||
| 295 | Return a list of package objects. | |
| 296 | (defalias 'epl-outdated-packages #[0 "\300 \301\211\203 \211@\302!\203 \211B\262A\266\202\202 \210\211\237\207" [epl-installed-packages nil epl-package-outdated-p] 6 (#$ . 23059)]) | |
| 297 | #@114 Find a package by NAME in a package LIST. | |
| 298 | ||
| 299 | Return a list of corresponding `epl-package' objects. | |
| 300 | ||
| 301 | (fn NAME LIST) | |
| 302 | (defalias 'epl--find-package-in-list #[514 "\236\211\205\n \300!\207" [epl--parse-package-list-entry] 5 (#$ . 23349)]) | |
| 303 | (put 'epl--find-package-in-list 'byte-optimizer 'byte-compile-inline-expand) | |
| 304 | #@224 Find the latest installed package by NAME. | |
| 305 | ||
| 306 | NAME is a package name, as symbol. | |
| 307 | ||
| 308 | Return the installed package with the highest version number as | |
| 309 | `epl-package' object, or nil, if no package with NAME is | |
| 310 | installed. | |
| 311 | ||
| 312 | (fn NAME) | |
| 313 | (defalias 'epl-find-installed-package #[257 "\300!@\207" [epl-find-installed-packages] 3 (#$ . 23668)]) | |
| 314 | (make-obsolete 'epl-find-installed-package 'epl-find-installed-packages "0.7") | |
| 315 | #@232 Find all installed packages by NAME. | |
| 316 | ||
| 317 | NAME is a package name, as symbol. | |
| 318 | ||
| 319 | Return a list of all installed packages with NAME, sorted by | |
| 320 | version number in descending order. Return nil, if there are no | |
| 321 | packages with NAME. | |
| 322 | ||
| 323 | (fn NAME) | |
| 324 | (defalias 'epl-find-installed-packages #[257 "\211\236\211\205\f \301!\207" [package-alist epl--parse-package-list-entry] 6 (#$ . 24082)]) | |
| 325 | #@81 Get all packages available for installation. | |
| 326 | ||
| 327 | Return a list of package objects. | |
| 328 | (defalias 'epl-available-packages #[0 "\301\302\303\304\"\"\207" [package-archive-contents apply append mapcar epl--parse-package-list-entry] 5 (#$ . 24462)]) | |
| 329 | #@223 Find available packages for NAME. | |
| 330 | ||
| 331 | NAME is a package name, as symbol. | |
| 332 | ||
| 333 | Return a list of available packages for NAME, sorted by version | |
| 334 | number in descending order. Return nil, if there are no packages | |
| 335 | for NAME. | |
| 336 | ||
| 337 | (fn NAME) | |
| 338 | (defalias 'epl-find-available-packages #[257 "\211\236\211\205\f \301!\207" [package-archive-contents epl--parse-package-list-entry] 6 (#$ . 24709)]) | |
| 339 | #@70 compiler-macro for inlining `epl-upgrade-p'. | |
| 340 | ||
| 341 | (fn CL-WHOLE-ARG CL-X) | |
| 342 | (defalias 'epl-upgrade-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-upgrade-p (and (memq (type-of cl-x) cl-struct-epl-upgrade-tags) t)) nil] 9 (#$ . 25091)]) | |
| 343 | (put 'epl-upgrade-p 'compiler-macro 'epl-upgrade-p--cmacro) | |
| 344 | #@13 | |
| 345 | ||
| 346 | (fn CL-X) | |
| 347 | (defalias 'epl-upgrade-p #[257 "\301!>\205 \302\207" [cl-struct-epl-upgrade-tags type-of t] 3 (#$ . 25432)]) | |
| 348 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put epl-upgrade-p side-effect-free error-free put epl-upgrade cl-deftype-satisfies] 5) | |
| 349 | #@78 compiler-macro for inlining `epl-upgrade-installed'. | |
| 350 | ||
| 351 | (fn CL-WHOLE-ARG CL-X) | |
| 352 | (defalias 'epl-upgrade-installed--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-upgrade-installed (or (epl-upgrade-p cl-x) (signal 'wrong-type-argument (list 'epl-upgrade cl-x))) (aref cl-x 1)) nil] 9 (#$ . 25711)]) | |
| 353 | (put 'epl-upgrade-installed 'compiler-macro 'epl-upgrade-installed--cmacro) | |
| 354 | #@102 Access slot "installed" of `(epl-upgrade (:constructor epl-upgrade-create))' struct CL-X. | |
| 355 | ||
| 356 | (fn CL-X) | |
| 357 | (defalias 'epl-upgrade-installed #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epl-upgrade-tags type-of signal wrong-type-argument epl-upgrade 1] 5 (#$ . 26131)]) | |
| 358 | (byte-code "\300\301\302\303#\300\207" [function-put epl-upgrade-installed side-effect-free t] 4) | |
| 359 | #@78 compiler-macro for inlining `epl-upgrade-available'. | |
| 360 | ||
| 361 | (fn CL-WHOLE-ARG CL-X) | |
| 362 | (defalias 'epl-upgrade-available--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-upgrade-available (or (epl-upgrade-p cl-x) (signal 'wrong-type-argument (list 'epl-upgrade cl-x))) (aref cl-x 2)) nil] 9 (#$ . 26520)]) | |
| 363 | (put 'epl-upgrade-available 'compiler-macro 'epl-upgrade-available--cmacro) | |
| 364 | #@102 Access slot "available" of `(epl-upgrade (:constructor epl-upgrade-create))' struct CL-X. | |
| 365 | ||
| 366 | (fn CL-X) | |
| 367 | (defalias 'epl-upgrade-available #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epl-upgrade-tags type-of signal wrong-type-argument epl-upgrade 2] 5 (#$ . 26940)]) | |
| 368 | (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put epl-upgrade-available side-effect-free t defalias copy-epl-upgrade copy-sequence] 4) | |
| 369 | #@101 compiler-macro for inlining `epl-upgrade-create'. | |
| 370 | ||
| 371 | (fn CL-WHOLE &cl-quote &key INSTALLED AVAILABLE) | |
| 372 | (defalias 'epl-upgrade-create--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202 \304>A@\203. \305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :installed :available (:installed :available :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:installed :available)" cl--defsubst-expand (installed available) (cl-block epl-upgrade-create (record 'epl-upgrade installed available))] 12 (#$ . 27380)]) | |
| 373 | (put 'epl-upgrade-create 'compiler-macro 'epl-upgrade-create--cmacro) | |
| 374 | #@79 Constructor for objects of type `epl-upgrade'. | |
| 375 | ||
| 376 | (fn &key INSTALLED AVAILABLE) | |
| 377 | (defalias 'epl-upgrade-create #[128 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202 \304>A@\203. \305\262\202 \306\307@\"\210\202 \210\310\311#\207" [plist-member :installed :available (:installed :available :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:installed :available)" record epl-upgrade] 7 (#$ . 28056)]) | |
| 378 | (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put epl-upgrade-create side-effect-free t cl-struct-define epl-upgrade "Structure describing an upgradable package.\nSlots:\n\n`installed' The installed package\n\n`available' The package available for installation." cl-structure-object record nil ((cl-tag-slot) (installed) (available)) cl-struct-epl-upgrade-tags] 11) | |
| 379 | #@221 Find all upgradable PACKAGES. | |
| 380 | ||
| 381 | PACKAGES is a list of package objects to upgrade, defaulting to | |
| 382 | all installed packages. | |
| 383 | ||
| 384 | Return a list of `epl-upgrade' objects describing all upgradable | |
| 385 | packages. | |
| 386 | ||
| 387 | (fn &optional PACKAGES) | |
| 388 | (defalias 'epl-find-upgrades #[256 "\211\206 \301 \302\211\203M \211@\303!\304!>\204 \305\306\307D\"\210\310H\311!@\211\205. \303!\211\203D \312\"\203D \313\314#B\262\266A\266\202\202 \210\211\237\207" [cl-struct-epl-package-tags epl-installed-packages nil epl-package-version type-of signal wrong-type-argument epl-package 1 epl-find-available-packages version-list-< record epl-upgrade] 13 (#$ . 28927)]) | |
| 389 | (defalias 'epl-built-in-p 'package-built-in-p) | |
| 390 | #@70 Install a package from FILE, like `package-install-file'. | |
| 391 | ||
| 392 | (fn FILE) | |
| 393 | (defalias 'epl-install-file #[257 "\302\303C\"\210\304!\211\305!>\204 \306\307\310D\"\210\211\311H\312\313!\205+ \305! >\205+ \314\266\202?\2054 \315!\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags apply package-install-file epl-package-from-file type-of signal wrong-type-argument epl-package 2 fboundp package-desc-p t epl--kill-autoload-buffer] 7 (#$ . 29628) (byte-code "\300\301\302!A@!\207" [advice-eval-interactive-spec interactive-form package-install-file] 3)]) | |
| 394 | #@70 Kill the buffer associated with autoloads for PACKAGE. | |
| 395 | ||
| 396 | (fn PACKAGE) | |
| 397 | (defalias 'epl--kill-autoload-buffer #[257 "\302\303\304!>\204 \305\306\307D\"\210\310H\"\311\312!\"\313 !\211\205& \314!)\207" [cl-struct-epl-package-tags generated-autoload-file format "%s-autoloads.el" type-of signal wrong-type-argument epl-package 1 expand-file-name epl-package-directory find-buffer-visiting kill-buffer] 7 (#$ . 30196)]) | |
| 398 | #@168 Install a PACKAGE. | |
| 399 | ||
| 400 | PACKAGE is a `epl-package' object. If FORCE is given and | |
| 401 | non-nil, install PACKAGE, even if it is already installed. | |
| 402 | ||
| 403 | (fn PACKAGE &optional FORCE) | |
| 404 | (defalias 'epl-package-install #[513 "\211\204 \302!?\205_ \303!>\204 \304\305\306D\"\210\211\307H\310\311!\205- \303! >\205- \312\266\202\203G \313\303!>\204B \304\305\306D\"\210\307H!\207\313\303!>\204W \304\305\306D\"\210\314H!\210\315!\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags epl-package-installed-p type-of signal wrong-type-argument epl-package 2 fboundp package-desc-p t package-install 1 epl--kill-autoload-buffer] 7 (#$ . 30625)]) | |
| 405 | #@79 Delete a PACKAGE. | |
| 406 | ||
| 407 | PACKAGE is a `epl-package' object to delete. | |
| 408 | ||
| 409 | (fn PACKAGE) | |
| 410 | (defalias 'epl-package-delete #[257 "\304\211\305! >\204 \306\307\310D\"\210\211\311H\312\313!\205$ \305!\n>\205$ \314\266\202\203@ \315\305! >\2049 \306\307\310D\"\210\311H!\202~ \316\305! >\204P \306\307\310D\"\210\317H!\320!\315\"\210\305! >\204k \306\307\310D\"\210\317H \236\211\205z \321 \"\211\262\266\202)\207" [delete-by-moving-to-trash cl-struct-epl-package-tags cl-struct-package-desc-tags package-alist nil type-of signal wrong-type-argument epl-package 2 fboundp package-desc-p t package-delete symbol-name 1 epl-package-version-string delq] 7 (#$ . 31276)]) | |
| 411 | #@321 Upgrade PACKAGES. | |
| 412 | ||
| 413 | PACKAGES is a list of package objects to upgrade, defaulting to | |
| 414 | all installed packages. | |
| 415 | ||
| 416 | The old versions of the updated packages are deleted, unless | |
| 417 | PRESERVE-OBSOLETE is non-nil. | |
| 418 | ||
| 419 | Return a list of all performed upgrades, as a list of | |
| 420 | `epl-upgrade' objects. | |
| 421 | ||
| 422 | (fn &optional PACKAGES PRESERVE-OBSOLETE) | |
| 423 | (defalias 'epl-upgrade #[512 "\301!\211\211\203@ \211@\302\303!>\204 \304\305\306D\"\210\307H\310\"\210\2049 \311\303!>\2044 \304\305\306D\"\210\312H!\210A\266\202\202 \210\211\207" [cl-struct-epl-upgrade-tags epl-find-upgrades epl-package-install type-of signal wrong-type-argument epl-upgrade 2 force epl-package-delete 1] 10 (#$ . 31953)]) | |
| 424 | (provide 'epl) | |
