425 lines
32 KiB
Plaintext
425 lines
32 KiB
Plaintext
|
;ELC
|
|||
|
|
;;; Compiled
|
|||
|
|
;;; in Emacs version 26.1
|
|||
|
|
;;; with all optimizations.
|
|||
|
|
|
|||
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|||
|
|
|
|||
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
|||
|
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|||
|
|
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
|
|||
|
|
|
|||
|
|
(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)
|
|||
|
|
#@147 Whether PACKAGE is a `package-desc' object.
|
|||
|
|
|
|||
|
|
Like `package-desc-p', but return nil, if `package-desc-p' is not
|
|||
|
|
defined as function.
|
|||
|
|
|
|||
|
|
(fn PACKAGE)
|
|||
|
|
(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)])
|
|||
|
|
(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)
|
|||
|
|
#@32 Get the directory of packages.
|
|||
|
|
(defalias 'epl-package-dir #[0 "\207" [package-user-dir] 1 (#$ . 1782)])
|
|||
|
|
#@40 Get the default directory of packages.
|
|||
|
|
(defalias 'epl-default-package-dir #[0 "\300\301\302N@!\207" [eval package-user-dir standard-value] 3 (#$ . 1893)])
|
|||
|
|
#@64 Change the directory of packages to DIRECTORY.
|
|||
|
|
|
|||
|
|
(fn DIRECTORY)
|
|||
|
|
(defalias 'epl-change-package-dir #[257 "\211\301 \207" [package-user-dir epl-initialize] 2 (#$ . 2054)])
|
|||
|
|
#@41 Remember the load path for `epl-reset'.
|
|||
|
|
(defvar epl--load-path-before-initialize nil (#$ . 2230))
|
|||
|
|
#@126 Load Emacs Lisp packages and activate them.
|
|||
|
|
|
|||
|
|
With NO-ACTIVATE non-nil, do not activate packages.
|
|||
|
|
|
|||
|
|
(fn &optional NO-ACTIVATE)
|
|||
|
|
(defalias 'epl-initialize #[256 "\302!\207" [load-path epl--load-path-before-initialize package-initialize] 3 (#$ . 2335)])
|
|||
|
|
(defalias 'epl-refresh 'package-refresh-contents)
|
|||
|
|
#@57 Add a package archive with NAME and URL.
|
|||
|
|
|
|||
|
|
(fn NAME URL)
|
|||
|
|
(defalias 'epl-add-archive #[514 "\300\301B\"\207" [add-to-list package-archives] 6 (#$ . 2643)])
|
|||
|
|
#@142 Reset the package system.
|
|||
|
|
|
|||
|
|
Clear the list of installed and available packages, the list of
|
|||
|
|
package archives and reset the package directory.
|
|||
|
|
(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)])
|
|||
|
|
#@74 compiler-macro for inlining `epl-requirement-p'.
|
|||
|
|
|
|||
|
|
(fn CL-WHOLE-ARG CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-requirement-p 'compiler-macro 'epl-requirement-p--cmacro)
|
|||
|
|
#@13
|
|||
|
|
|
|||
|
|
(fn CL-X)
|
|||
|
|
(defalias 'epl-requirement-p #[257 "\301!>\205 \302\207" [cl-struct-epl-requirement-tags type-of t] 3 (#$ . 3594)])
|
|||
|
|
(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)
|
|||
|
|
#@77 compiler-macro for inlining `epl-requirement-name'.
|
|||
|
|
|
|||
|
|
(fn CL-WHOLE-ARG CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-requirement-name 'compiler-macro 'epl-requirement-name--cmacro)
|
|||
|
|
#@105 Access slot "name" of `(epl-requirement (:constructor epl-requirement-create))' struct CL-X.
|
|||
|
|
|
|||
|
|
(fn CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(byte-code "\300\301\302\303#\300\207" [function-put epl-requirement-name side-effect-free t] 4)
|
|||
|
|
#@80 compiler-macro for inlining `epl-requirement-version'.
|
|||
|
|
|
|||
|
|
(fn CL-WHOLE-ARG CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-requirement-version 'compiler-macro 'epl-requirement-version--cmacro)
|
|||
|
|
#@108 Access slot "version" of `(epl-requirement (:constructor epl-requirement-create))' struct CL-X.
|
|||
|
|
|
|||
|
|
(fn CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(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)
|
|||
|
|
#@98 compiler-macro for inlining `epl-requirement-create'.
|
|||
|
|
|
|||
|
|
(fn CL-WHOLE &cl-quote &key NAME VERSION)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-requirement-create 'compiler-macro 'epl-requirement-create--cmacro)
|
|||
|
|
#@76 Constructor for objects of type `epl-requirement'.
|
|||
|
|
|
|||
|
|
(fn &key NAME VERSION)
|
|||
|
|
(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)])
|
|||
|
|
(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)
|
|||
|
|
#@60 The version of a REQUIREMENT, as string.
|
|||
|
|
|
|||
|
|
(fn REQUIREMENT)
|
|||
|
|
(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)])
|
|||
|
|
#@70 compiler-macro for inlining `epl-package-p'.
|
|||
|
|
|
|||
|
|
(fn CL-WHOLE-ARG CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-package-p 'compiler-macro 'epl-package-p--cmacro)
|
|||
|
|
#@13
|
|||
|
|
|
|||
|
|
(fn CL-X)
|
|||
|
|
(defalias 'epl-package-p #[257 "\301!>\205 \302\207" [cl-struct-epl-package-tags type-of t] 3 (#$ . 7771)])
|
|||
|
|
(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)
|
|||
|
|
#@73 compiler-macro for inlining `epl-package-name'.
|
|||
|
|
|
|||
|
|
(fn CL-WHOLE-ARG CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-package-name 'compiler-macro 'epl-package-name--cmacro)
|
|||
|
|
#@97 Access slot "name" of `(epl-package (:constructor epl-package-create))' struct CL-X.
|
|||
|
|
|
|||
|
|
(fn CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(byte-code "\300\301\302\303#\300\207" [function-put epl-package-name side-effect-free t] 4)
|
|||
|
|
#@80 compiler-macro for inlining `epl-package-description'.
|
|||
|
|
|
|||
|
|
(fn CL-WHOLE-ARG CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-package-description 'compiler-macro 'epl-package-description--cmacro)
|
|||
|
|
#@104 Access slot "description" of `(epl-package (:constructor epl-package-create))' struct CL-X.
|
|||
|
|
|
|||
|
|
(fn CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(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)
|
|||
|
|
#@98 compiler-macro for inlining `epl-package-create'.
|
|||
|
|
|
|||
|
|
(fn CL-WHOLE &cl-quote &key NAME DESCRIPTION)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-package-create 'compiler-macro 'epl-package-create--cmacro)
|
|||
|
|
#@76 Constructor for objects of type `epl-package'.
|
|||
|
|
|
|||
|
|
(fn &key NAME DESCRIPTION)
|
|||
|
|
(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)])
|
|||
|
|
(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)
|
|||
|
|
#@218 Cast VAR to a package description in BODY.
|
|||
|
|
|
|||
|
|
VAR is a symbol, bound to an `epl-package' object. This macro
|
|||
|
|
casts this object to the `description' object, and binds the
|
|||
|
|
description to VAR in BODY.
|
|||
|
|
|
|||
|
|
(fn VAR &rest BODY)
|
|||
|
|
(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)]))
|
|||
|
|
(byte-code "\300\301\302\303#\300\207" [function-put epl-package-as-description lisp-indent-function 1] 4)
|
|||
|
|
#@71 Whether the description of PACKAGE is a `package-desc'.
|
|||
|
|
|
|||
|
|
(fn PACKAGE)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-package--package-desc-p 'byte-optimizer 'byte-compile-inline-expand)
|
|||
|
|
#@60 Get the version of PACKAGE, as version list.
|
|||
|
|
|
|||
|
|
(fn PACKAGE)
|
|||
|
|
(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)])
|
|||
|
|
#@58 Get the version from a PACKAGE, as string.
|
|||
|
|
|
|||
|
|
(fn PACKAGE)
|
|||
|
|
(defalias 'epl-package-version-string #[257 "\300\301!!\207" [package-version-join epl-package-version] 4 (#$ . 13101)])
|
|||
|
|
#@54 Get the summary of PACKAGE, as string.
|
|||
|
|
|
|||
|
|
(fn PACKAGE)
|
|||
|
|
(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)])
|
|||
|
|
#@65 Create a `epl-requirement' from a `package-desc' REQ.
|
|||
|
|
|
|||
|
|
(fn REQ)
|
|||
|
|
(defalias 'epl-requirement--from-req #[257 "\211A@\300\301@\302<\203 \202 \303!$\207" [epl-requirement-create :name :version version-to-list] 8 (#$ . 13801)])
|
|||
|
|
(put 'epl-requirement--from-req 'byte-optimizer 'byte-compile-inline-expand)
|
|||
|
|
#@107 Get the requirements of PACKAGE.
|
|||
|
|
|
|||
|
|
The requirements are a list of `epl-requirement' objects.
|
|||
|
|
|
|||
|
|
(fn PACKAGE)
|
|||
|
|
(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)])
|
|||
|
|
#@163 Get the directory PACKAGE is installed to.
|
|||
|
|
|
|||
|
|
Return the absolute path of the installation directory of
|
|||
|
|
PACKAGE, or nil, if PACKAGE is not installed.
|
|||
|
|
|
|||
|
|
(fn PACKAGE)
|
|||
|
|
(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)])
|
|||
|
|
#@67 Determine whether PKG1 is before PKG2 by version.
|
|||
|
|
|
|||
|
|
(fn PKG1 PKG2)
|
|||
|
|
(defalias 'epl-package-->= #[514 "\300\301!\301!\"?\207" [version-list-< epl-package-version] 6 (#$ . 15331)])
|
|||
|
|
#@140 Create an `epl-package' from a PACKAGE-DESC.
|
|||
|
|
|
|||
|
|
PACKAGE-DESC is a `package-desc' object, from recent package.el
|
|||
|
|
variants.
|
|||
|
|
|
|||
|
|
(fn PACKAGE-DESC)
|
|||
|
|
(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)])
|
|||
|
|
#@37 Parse a package.el INFO.
|
|||
|
|
|
|||
|
|
(fn INFO)
|
|||
|
|
(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)])
|
|||
|
|
#@191 Create an `epl-package' object from BUFFER.
|
|||
|
|
|
|||
|
|
BUFFER defaults to the current buffer.
|
|||
|
|
|
|||
|
|
Signal `epl-invalid-package' if the buffer does not contain a
|
|||
|
|
valid package file.
|
|||
|
|
|
|||
|
|
(fn &optional BUFFER)
|
|||
|
|
(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)])
|
|||
|
|
#@124 Parse the package headers the file at FILE-NAME.
|
|||
|
|
|
|||
|
|
Return an `epl-package' object with the header metadata.
|
|||
|
|
|
|||
|
|
(fn FILE-NAME)
|
|||
|
|
(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)])
|
|||
|
|
#@144 Parse the package tarball at FILE-NAME.
|
|||
|
|
|
|||
|
|
Return a `epl-package' object with the meta data of the tarball
|
|||
|
|
package in FILE-NAME.
|
|||
|
|
|
|||
|
|
(fn FILE-NAME)
|
|||
|
|
(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)])
|
|||
|
|
#@129 Parse the package at FILE-NAME.
|
|||
|
|
|
|||
|
|
Return an `epl-package' object with the meta data of the package
|
|||
|
|
at FILE-NAME.
|
|||
|
|
|
|||
|
|
(fn FILE-NAME)
|
|||
|
|
(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)])
|
|||
|
|
#@64 Parse a REQUIREMENT in a package descriptor.
|
|||
|
|
|
|||
|
|
(fn REQUIREMENT)
|
|||
|
|
(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)])
|
|||
|
|
#@171 Load a `epl-package' from a package DESCRIPTOR-FILE.
|
|||
|
|
|
|||
|
|
A package descriptor is a file defining a new package. Its name
|
|||
|
|
typically ends with -pkg.el.
|
|||
|
|
|
|||
|
|
(fn DESCRIPTOR-FILE)
|
|||
|
|
(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)])
|
|||
|
|
#@260 Determine whether a PACKAGE, of MIN-VERSION or newer, is installed.
|
|||
|
|
|
|||
|
|
PACKAGE is either a package name as symbol, or a package object.
|
|||
|
|
When a explicit MIN-VERSION is provided it overwrites the version of the PACKAGE object.
|
|||
|
|
|
|||
|
|
(fn PACKAGE &optional MIN-VERSION)
|
|||
|
|
(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)])
|
|||
|
|
#@112 Parse an ENTRY from the list of built-in packages.
|
|||
|
|
|
|||
|
|
Return the corresponding `epl-package' object.
|
|||
|
|
|
|||
|
|
(fn ENTRY)
|
|||
|
|
(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)])
|
|||
|
|
#@69 Get all built-in packages.
|
|||
|
|
|
|||
|
|
Return a list of `epl-package' objects.
|
|||
|
|
(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)])
|
|||
|
|
#@187 Find a built-in package with NAME.
|
|||
|
|
|
|||
|
|
NAME is a package name, as symbol.
|
|||
|
|
|
|||
|
|
Return the built-in package as `epl-package' object, or nil if
|
|||
|
|
there is no built-in package with NAME.
|
|||
|
|
|
|||
|
|
(fn NAME)
|
|||
|
|
(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)])
|
|||
|
|
#@402 Determine whether a PACKAGE is outdated.
|
|||
|
|
|
|||
|
|
A package is outdated, if there is an available package with a
|
|||
|
|
higher version.
|
|||
|
|
|
|||
|
|
PACKAGE is either a package name as symbol, or a package object.
|
|||
|
|
In the former case, test the installed or built-in package with
|
|||
|
|
the highest version number, in the later case, test the package
|
|||
|
|
object itself.
|
|||
|
|
|
|||
|
|
Return t, if the package is outdated, or nil otherwise.
|
|||
|
|
|
|||
|
|
(fn PACKAGE)
|
|||
|
|
(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)])
|
|||
|
|
#@345 Parse a list of packages from ENTRY.
|
|||
|
|
|
|||
|
|
ENTRY is a single entry in a package list, e.g. `package-alist',
|
|||
|
|
`package-archive-contents', etc. Typically it is a cons cell,
|
|||
|
|
but the exact format varies between package.el versions. This
|
|||
|
|
function tries to parse all known variants.
|
|||
|
|
|
|||
|
|
Return a list of `epl-package' objects parsed from ENTRY.
|
|||
|
|
|
|||
|
|
(fn ENTRY)
|
|||
|
|
(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)])
|
|||
|
|
#@64 Get all installed packages.
|
|||
|
|
|
|||
|
|
Return a list of package objects.
|
|||
|
|
(defalias 'epl-installed-packages #[0 "\301\302\303\304\"\"\207" [package-alist apply append mapcar epl--parse-package-list-entry] 5 (#$ . 22528)])
|
|||
|
|
#@56 Filter outdated packages from PACKAGES.
|
|||
|
|
|
|||
|
|
(fn PACKAGES)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl--filter-outdated-packages 'byte-optimizer 'byte-compile-inline-expand)
|
|||
|
|
#@95 Get all outdated packages, as in `epl-package-outdated-p'.
|
|||
|
|
|
|||
|
|
Return a list of package objects.
|
|||
|
|
(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)])
|
|||
|
|
#@114 Find a package by NAME in a package LIST.
|
|||
|
|
|
|||
|
|
Return a list of corresponding `epl-package' objects.
|
|||
|
|
|
|||
|
|
(fn NAME LIST)
|
|||
|
|
(defalias 'epl--find-package-in-list #[514 "\236\211\205\n \300!\207" [epl--parse-package-list-entry] 5 (#$ . 23349)])
|
|||
|
|
(put 'epl--find-package-in-list 'byte-optimizer 'byte-compile-inline-expand)
|
|||
|
|
#@224 Find the latest installed package by NAME.
|
|||
|
|
|
|||
|
|
NAME is a package name, as symbol.
|
|||
|
|
|
|||
|
|
Return the installed package with the highest version number as
|
|||
|
|
`epl-package' object, or nil, if no package with NAME is
|
|||
|
|
installed.
|
|||
|
|
|
|||
|
|
(fn NAME)
|
|||
|
|
(defalias 'epl-find-installed-package #[257 "\300!@\207" [epl-find-installed-packages] 3 (#$ . 23668)])
|
|||
|
|
(make-obsolete 'epl-find-installed-package 'epl-find-installed-packages "0.7")
|
|||
|
|
#@232 Find all installed packages by NAME.
|
|||
|
|
|
|||
|
|
NAME is a package name, as symbol.
|
|||
|
|
|
|||
|
|
Return a list of all installed packages with NAME, sorted by
|
|||
|
|
version number in descending order. Return nil, if there are no
|
|||
|
|
packages with NAME.
|
|||
|
|
|
|||
|
|
(fn NAME)
|
|||
|
|
(defalias 'epl-find-installed-packages #[257 "\211\236\211\205\f \301!\207" [package-alist epl--parse-package-list-entry] 6 (#$ . 24082)])
|
|||
|
|
#@81 Get all packages available for installation.
|
|||
|
|
|
|||
|
|
Return a list of package objects.
|
|||
|
|
(defalias 'epl-available-packages #[0 "\301\302\303\304\"\"\207" [package-archive-contents apply append mapcar epl--parse-package-list-entry] 5 (#$ . 24462)])
|
|||
|
|
#@223 Find available packages for NAME.
|
|||
|
|
|
|||
|
|
NAME is a package name, as symbol.
|
|||
|
|
|
|||
|
|
Return a list of available packages for NAME, sorted by version
|
|||
|
|
number in descending order. Return nil, if there are no packages
|
|||
|
|
for NAME.
|
|||
|
|
|
|||
|
|
(fn NAME)
|
|||
|
|
(defalias 'epl-find-available-packages #[257 "\211\236\211\205\f \301!\207" [package-archive-contents epl--parse-package-list-entry] 6 (#$ . 24709)])
|
|||
|
|
#@70 compiler-macro for inlining `epl-upgrade-p'.
|
|||
|
|
|
|||
|
|
(fn CL-WHOLE-ARG CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-upgrade-p 'compiler-macro 'epl-upgrade-p--cmacro)
|
|||
|
|
#@13
|
|||
|
|
|
|||
|
|
(fn CL-X)
|
|||
|
|
(defalias 'epl-upgrade-p #[257 "\301!>\205 \302\207" [cl-struct-epl-upgrade-tags type-of t] 3 (#$ . 25432)])
|
|||
|
|
(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)
|
|||
|
|
#@78 compiler-macro for inlining `epl-upgrade-installed'.
|
|||
|
|
|
|||
|
|
(fn CL-WHOLE-ARG CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-upgrade-installed 'compiler-macro 'epl-upgrade-installed--cmacro)
|
|||
|
|
#@102 Access slot "installed" of `(epl-upgrade (:constructor epl-upgrade-create))' struct CL-X.
|
|||
|
|
|
|||
|
|
(fn CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(byte-code "\300\301\302\303#\300\207" [function-put epl-upgrade-installed side-effect-free t] 4)
|
|||
|
|
#@78 compiler-macro for inlining `epl-upgrade-available'.
|
|||
|
|
|
|||
|
|
(fn CL-WHOLE-ARG CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-upgrade-available 'compiler-macro 'epl-upgrade-available--cmacro)
|
|||
|
|
#@102 Access slot "available" of `(epl-upgrade (:constructor epl-upgrade-create))' struct CL-X.
|
|||
|
|
|
|||
|
|
(fn CL-X)
|
|||
|
|
(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)])
|
|||
|
|
(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)
|
|||
|
|
#@101 compiler-macro for inlining `epl-upgrade-create'.
|
|||
|
|
|
|||
|
|
(fn CL-WHOLE &cl-quote &key INSTALLED AVAILABLE)
|
|||
|
|
(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)])
|
|||
|
|
(put 'epl-upgrade-create 'compiler-macro 'epl-upgrade-create--cmacro)
|
|||
|
|
#@79 Constructor for objects of type `epl-upgrade'.
|
|||
|
|
|
|||
|
|
(fn &key INSTALLED AVAILABLE)
|
|||
|
|
(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)])
|
|||
|
|
(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)
|
|||
|
|
#@221 Find all upgradable PACKAGES.
|
|||
|
|
|
|||
|
|
PACKAGES is a list of package objects to upgrade, defaulting to
|
|||
|
|
all installed packages.
|
|||
|
|
|
|||
|
|
Return a list of `epl-upgrade' objects describing all upgradable
|
|||
|
|
packages.
|
|||
|
|
|
|||
|
|
(fn &optional PACKAGES)
|
|||
|
|
(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)])
|
|||
|
|
(defalias 'epl-built-in-p 'package-built-in-p)
|
|||
|
|
#@70 Install a package from FILE, like `package-install-file'.
|
|||
|
|
|
|||
|
|
(fn FILE)
|
|||
|
|
(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)])
|
|||
|
|
#@70 Kill the buffer associated with autoloads for PACKAGE.
|
|||
|
|
|
|||
|
|
(fn PACKAGE)
|
|||
|
|
(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)])
|
|||
|
|
#@168 Install a PACKAGE.
|
|||
|
|
|
|||
|
|
PACKAGE is a `epl-package' object. If FORCE is given and
|
|||
|
|
non-nil, install PACKAGE, even if it is already installed.
|
|||
|
|
|
|||
|
|
(fn PACKAGE &optional FORCE)
|
|||
|
|
(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)])
|
|||
|
|
#@79 Delete a PACKAGE.
|
|||
|
|
|
|||
|
|
PACKAGE is a `epl-package' object to delete.
|
|||
|
|
|
|||
|
|
(fn PACKAGE)
|
|||
|
|
(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)])
|
|||
|
|
#@321 Upgrade PACKAGES.
|
|||
|
|
|
|||
|
|
PACKAGES is a list of package objects to upgrade, defaulting to
|
|||
|
|
all installed packages.
|
|||
|
|
|
|||
|
|
The old versions of the updated packages are deleted, unless
|
|||
|
|
PRESERVE-OBSOLETE is non-nil.
|
|||
|
|
|
|||
|
|
Return a list of all performed upgrades, as a list of
|
|||
|
|
`epl-upgrade' objects.
|
|||
|
|
|
|||
|
|
(fn &optional PACKAGES PRESERVE-OBSOLETE)
|
|||
|
|
(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)])
|
|||
|
|
(provide 'epl)
|