* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
;;; package.el --- Simple package system for Emacs -*- lexical-binding:t -*-
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-01-01 22:26:41 +00:00
|
|
|
|
;; Copyright (C) 2007-2015 Free Software Foundation, Inc.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;; Author: Tom Tromey <tromey@redhat.com>
|
2013-06-26 00:44:35 +00:00
|
|
|
|
;; Daniel Hackney <dan@haxney.org>
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; Created: 10 Mar 2007
|
2013-04-04 01:51:33 +00:00
|
|
|
|
;; Version: 1.0.1
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; Keywords: tools
|
2013-12-10 00:54:38 +00:00
|
|
|
|
;; Package-Requires: ((tabulated-list "1.0"))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
2012-09-24 16:36:42 +00:00
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2012-09-24 16:36:42 +00:00
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
|
;; (at your option) any later version.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2012-09-24 16:36:42 +00:00
|
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Change Log:
|
|
|
|
|
|
|
|
|
|
|
|
;; 2 Apr 2007 - now using ChangeLog file
|
|
|
|
|
|
;; 15 Mar 2007 - updated documentation
|
|
|
|
|
|
;; 14 Mar 2007 - Changed how obsolete packages are handled
|
|
|
|
|
|
;; 13 Mar 2007 - Wrote package-install-from-buffer
|
|
|
|
|
|
;; 12 Mar 2007 - Wrote package-menu mode
|
|
|
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
|
|
|
|
;; The idea behind package.el is to be able to download packages and
|
|
|
|
|
|
;; install them. Packages are versioned and have versioned
|
|
|
|
|
|
;; dependencies. Furthermore, this supports built-in packages which
|
|
|
|
|
|
;; may or may not be newer than user-specified packages. This makes
|
|
|
|
|
|
;; it possible to upgrade Emacs and automatically disable packages
|
|
|
|
|
|
;; which have moved from external to core. (Note though that we don't
|
|
|
|
|
|
;; currently register any of these, so this feature does not actually
|
|
|
|
|
|
;; work.)
|
|
|
|
|
|
|
|
|
|
|
|
;; A package is described by its name and version. The distribution
|
|
|
|
|
|
;; format is either a tar file or a single .el file.
|
|
|
|
|
|
|
|
|
|
|
|
;; A tar file should be named "NAME-VERSION.tar". The tar file must
|
|
|
|
|
|
;; unpack into a directory named after the package and version:
|
|
|
|
|
|
;; "NAME-VERSION". It must contain a file named "PACKAGE-pkg.el"
|
|
|
|
|
|
;; which consists of a call to define-package. It may also contain a
|
|
|
|
|
|
;; "dir" file and the info files it references.
|
|
|
|
|
|
|
2010-07-28 18:54:42 +00:00
|
|
|
|
;; A .el file is named "NAME-VERSION.el" in the remote archive, but is
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; installed as simply "NAME.el" in a directory named "NAME-VERSION".
|
|
|
|
|
|
|
2010-07-28 18:54:42 +00:00
|
|
|
|
;; The downloader downloads all dependent packages. By default,
|
|
|
|
|
|
;; packages come from the official GNU sources, but others may be
|
|
|
|
|
|
;; added by customizing the `package-archives' alist. Packages get
|
|
|
|
|
|
;; byte-compiled at install time.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;; At activation time we will set up the load-path and the info path,
|
|
|
|
|
|
;; and we will load the package's autoloads. If a package's
|
|
|
|
|
|
;; dependencies are not available, we will not activate that package.
|
|
|
|
|
|
|
|
|
|
|
|
;; Conceptually a package has multiple state transitions:
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; * Download. Fetching the package from ELPA.
|
|
|
|
|
|
;; * Install. Untar the package, or write the .el file, into
|
|
|
|
|
|
;; ~/.emacs.d/elpa/ directory.
|
|
|
|
|
|
;; * Byte compile. Currently this phase is done during install,
|
|
|
|
|
|
;; but we may change this.
|
|
|
|
|
|
;; * Activate. Evaluate the autoloads for the package to make it
|
|
|
|
|
|
;; available to the user.
|
|
|
|
|
|
;; * Load. Actually load the package and run some code from it.
|
|
|
|
|
|
|
|
|
|
|
|
;; Other external functions you may want to use:
|
|
|
|
|
|
;;
|
2010-11-03 23:21:51 +00:00
|
|
|
|
;; M-x list-packages
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; Enters a mode similar to buffer-menu which lets you manage
|
|
|
|
|
|
;; packages. You can choose packages for install (mark with "i",
|
|
|
|
|
|
;; then "x" to execute) or deletion (not implemented yet), and you
|
|
|
|
|
|
;; can see what packages are available. This will automatically
|
|
|
|
|
|
;; fetch the latest list of packages from ELPA.
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; M-x package-install-from-buffer
|
|
|
|
|
|
;; Install a package consisting of a single .el file that appears
|
|
|
|
|
|
;; in the current buffer. This only works for packages which
|
|
|
|
|
|
;; define a Version header properly; package.el also supports the
|
|
|
|
|
|
;; extension headers Package-Version (in case Version is an RCS id
|
|
|
|
|
|
;; or similar), and Package-Requires (if the package requires other
|
|
|
|
|
|
;; packages).
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; M-x package-install-file
|
|
|
|
|
|
;; Install a package from the indicated file. The package can be
|
|
|
|
|
|
;; either a tar file or a .el file. A tar file must contain an
|
|
|
|
|
|
;; appropriately-named "-pkg.el" file; a .el file must be properly
|
|
|
|
|
|
;; formatted as with package-install-from-buffer.
|
|
|
|
|
|
|
|
|
|
|
|
;;; Thanks:
|
|
|
|
|
|
;;; (sorted by sort-lines):
|
|
|
|
|
|
|
|
|
|
|
|
;; Jim Blandy <jimb@red-bean.com>
|
|
|
|
|
|
;; Karl Fogel <kfogel@red-bean.com>
|
|
|
|
|
|
;; Kevin Ryde <user42@zip.com.au>
|
|
|
|
|
|
;; Lawrence Mitchell
|
|
|
|
|
|
;; Michael Olson <mwolson@member.fsf.org>
|
|
|
|
|
|
;; Sebastian Tennant <sebyte@smolny.plus.com>
|
|
|
|
|
|
;; Stefan Monnier <monnier@iro.umontreal.ca>
|
|
|
|
|
|
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
|
|
|
|
|
|
;; Phil Hagelberg <phil@hagelb.org>
|
|
|
|
|
|
|
|
|
|
|
|
;;; ToDo:
|
|
|
|
|
|
|
|
|
|
|
|
;; - putting info dirs at the start of the info path means
|
|
|
|
|
|
;; users see a weird ordering of categories. OTOH we want to
|
|
|
|
|
|
;; override later entries. maybe emacs needs to enforce
|
|
|
|
|
|
;; the standard layout?
|
|
|
|
|
|
;; - put bytecode in a separate directory tree
|
|
|
|
|
|
;; - perhaps give users a way to recompile their bytecode
|
|
|
|
|
|
;; or do it automatically when emacs changes
|
|
|
|
|
|
;; - give users a way to know whether a package is installed ok
|
|
|
|
|
|
;; - give users a way to view a package's documentation when it
|
|
|
|
|
|
;; only appears in the .el
|
|
|
|
|
|
;; - use/extend checkdoc so people can tell if their package will work
|
|
|
|
|
|
;; - "installed" instead of a blank in the status column
|
|
|
|
|
|
;; - tramp needs its files to be compiled in a certain order.
|
|
|
|
|
|
;; how to handle this? fix tramp?
|
|
|
|
|
|
;; - on emacs 21 we don't kill the -autoloads.el buffer. what about 22?
|
|
|
|
|
|
;; - maybe we need separate .elc directories for various emacs versions
|
|
|
|
|
|
;; and also emacs-vs-xemacs. That way conditional compilation can
|
|
|
|
|
|
;; work. But would this break anything?
|
|
|
|
|
|
;; - should store the package's keywords in archive-contents, then
|
|
|
|
|
|
;; let the users filter the package-menu by keyword. See
|
|
|
|
|
|
;; finder-by-keyword. (We could also let people view the
|
|
|
|
|
|
;; Commentary, but it isn't clear how useful this is.)
|
|
|
|
|
|
;; - William Xu suggests being able to open a package file without
|
|
|
|
|
|
;; installing it
|
|
|
|
|
|
;; - Interface with desktop.el so that restarting after an install
|
|
|
|
|
|
;; works properly
|
|
|
|
|
|
;; - Use hierarchical layout. PKG/etc PKG/lisp PKG/info
|
|
|
|
|
|
;; ... except maybe lisp?
|
|
|
|
|
|
;; - It may be nice to have a macro that expands to the package's
|
|
|
|
|
|
;; private data dir, aka ".../etc". Or, maybe data-directory
|
|
|
|
|
|
;; needs to be a list (though this would be less nice)
|
|
|
|
|
|
;; a few packages want this, eg sokoban
|
|
|
|
|
|
;; - package menu needs:
|
|
|
|
|
|
;; ability to know which packages are built-in & thus not deletable
|
|
|
|
|
|
;; it can sometimes print odd results, like 0.3 available but 0.4 active
|
|
|
|
|
|
;; why is that?
|
|
|
|
|
|
;; - Allow multiple versions on the server...?
|
|
|
|
|
|
;; [ why bother? ]
|
|
|
|
|
|
;; - Don't install a package which will invalidate dependencies overall
|
|
|
|
|
|
;; - Allow something like (or (>= emacs 21.0) (>= xemacs 21.5))
|
|
|
|
|
|
;; [ currently thinking, why bother.. KISS ]
|
|
|
|
|
|
;; - Allow optional package dependencies
|
|
|
|
|
|
;; then if we require 'bbdb', bbdb-specific lisp in lisp/bbdb
|
|
|
|
|
|
;; and just don't compile to add to load path ...?
|
|
|
|
|
|
;; - Our treatment of the info path is somewhat bogus
|
|
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
2013-06-12 00:49:33 +00:00
|
|
|
|
(eval-when-compile (require 'cl-lib))
|
* lisp/epg.el: Use cl-defstruct.
(epg-make-data-from-file, epg-make-data-from-string, epg-data-file)
(epg-data-string): Define via cl-defstruct.
(epg--gv-nreverse): New macro.
(epg-context--make): New constructor (provided vi cl-defstruct).
(epg-make-context): Rewrite using it.
(epg-context-protocol, epg-context-program)
(epg-context-home-directory, epg-context-armor, epg-context-textmode)
(epg-context-include-certs, epg-context-cipher-algorithm)
(epg-context-digest-algorithm, epg-context-compress-algorithm)
(epg-context-passphrase-callback, epg-context-progress-callback)
(epg-context-signers, epg-context-sig-notations, epg-context-process)
(epg-context-output-file, epg-context-result, epg-context-operation)
(epg-context-pinentry-mode): Define using cl-defstruct.
(epg-context-set-protocol, epg-context-set-program)
(epg-context-set-include-certs, epg-context-set-cipher-algorithm)
(epg-context-set-digest-algorithm)
(epg-context-set-sig-notations, epg-context-set-process)
(epg-context-set-output-file, epg-context-set-result)
(epg-context-set-operation, epg-context-set-pinentry-mode)
(epg-context-set-compress-algorithm): Remove. Use setf instead.
(epg-context-set-armor, epg-context-set-textmode)
(epg-context-set-signers): Redefine using setf
and declare as obsolete.
(epg-context-set-passphrase-callback)
(epg-context-set-progress-callback): Use setf.
(epg-signature-notations): Rename from epg-sig-notations.
(epg-make-signature, epg-signature-status, epg-signature-key-id)
(epg-signature-validity, epg-signature-fingerprint)
(epg-signature-creation-time, epg-signature-expiration-time)
(epg-signature-pubkey-algorithm, epg-signature-digest-algorithm)
(epg-signature-class, epg-signature-version): Define vi cl-defstruct.
(epg-signature-set-status, epg-signature-set-key-id)
(epg-signature-set-validity, epg-signature-set-fingerprint)
(epg-signature-set-creation-time, epg-signature-set-expiration-time)
(epg-signature-set-pubkey-algorithm)
(epg-signature-set-digest-algorithm, epg-signature-set-class)
(epg-signature-set-version, epg-signature-set-notations): Remove.
Use setf instead.
(epg-make-new-signature, epg-new-signature-type)
(epg-new-signature-pubkey-algorithm)
(epg-new-signature-digest-algorithm, epg-new-signature-class)
(epg-new-signature-creation-time, epg-new-signature-fingerprint):
Define using cl-defstruct.
(epg-make-key, epg-key-owner-trust, epg-key-sub-key-list)
(epg-key-user-id-list): Define using cl-defstruct.
(epg-key-set-sub-key-list, epg-key-set-user-id-list): Remove.
Use setf instead.
(epg-make-sub-key, epg-sub-key-validity, epg-sub-key-capability)
(epg-sub-key-secret-p, epg-sub-key-algorithm, epg-sub-key-length)
(epg-sub-key-id, epg-sub-key-creation-time)
(epg-sub-key-expiration-time, epg-sub-key-fingerprint): Define using
cl-defstruct.
(epg-sub-key-set-fingerprint): Remove. Use setf instead.
(epg-make-user-id, epg-user-id-validity, epg-user-id-string)
(epg-user-id-signature-list): Define using cl-defstruct.
(epg-user-id-set-signature-list): Remove. Use setf instead.
(epg-make-key-signature, epg-key-signature-validity)
(epg-key-signature-pubkey-algorithm, epg-key-signature-key-id)
(epg-key-signature-creation-time, epg-key-signature-expiration-time)
(epg-key-signature-user-id, epg-key-signature-class)
(epg-key-signature-exportable-p): Define using cl-defstruct.
(epg-make-sig-notation, epg-sig-notation-name)
(epg-sig-notation-value, epg-sig-notation-human-readable)
(epg-sig-notation-critical): Define using cl-defstruct.
(epg-sig-notation-set-value): Remove. Use setf instead.
(epg-make-import-status, epg-import-status-fingerprint)
(epg-import-status-reason, epg-import-status-new)
(epg-import-status-user-id, epg-import-status-signature)
(epg-import-status-sub-key, epg-import-status-secret): Define using
cl-defstruct.
(epg-make-import-result, epg-import-result-considered)
(epg-import-result-no-user-id, epg-import-result-imported)
(epg-import-result-imported-rsa, epg-import-result-unchanged)
(epg-import-result-new-user-ids, epg-import-result-new-sub-keys)
(epg-import-result-new-signatures, epg-import-result-new-revocations)
(epg-import-result-secret-read, epg-import-result-secret-imported)
(epg-import-result-secret-unchanged, epg-import-result-not-imported)
(epg-import-result-imports): Define using cl-defstruct.
* lisp/emacs-lisp/package.el: Require EPG during macroexpansion.
(package--check-signature, package-import-keyring): Use setf instead of
epg-context-set-home-directory.
2014-10-23 21:38:56 +00:00
|
|
|
|
(eval-when-compile (require 'epg)) ;For setf accessors.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(require 'tabulated-list)
|
2014-10-24 23:02:25 +00:00
|
|
|
|
(require 'macroexp)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(defgroup package nil
|
|
|
|
|
|
"Manager for Emacs Lisp packages."
|
|
|
|
|
|
:group 'applications
|
|
|
|
|
|
:version "24.1")
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defcustom package-enable-at-startup t
|
|
|
|
|
|
"Whether to activate installed packages when Emacs starts.
|
|
|
|
|
|
If non-nil, packages are activated after reading the init file
|
|
|
|
|
|
and before `after-init-hook'. Activation is not done if
|
|
|
|
|
|
`user-init-file' is nil (e.g. Emacs was started with \"-q\").
|
|
|
|
|
|
|
|
|
|
|
|
Even if the value is nil, you can type \\[package-initialize] to
|
|
|
|
|
|
activate the package system at any time."
|
|
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:group 'package
|
|
|
|
|
|
:version "24.1")
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom package-load-list '(all)
|
|
|
|
|
|
"List of packages for `package-initialize' to load.
|
|
|
|
|
|
Each element in this list should be a list (NAME VERSION), or the
|
|
|
|
|
|
symbol `all'. The symbol `all' says to load the latest installed
|
|
|
|
|
|
versions of all packages not specified by other elements.
|
|
|
|
|
|
|
|
|
|
|
|
For an element (NAME VERSION), NAME is a package name (a symbol).
|
|
|
|
|
|
VERSION should be t, a string, or nil.
|
2013-06-21 14:12:56 +00:00
|
|
|
|
If VERSION is t, the most recent version is activated.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
If VERSION is a string, only that version is ever loaded.
|
|
|
|
|
|
Any other version, even if newer, is silently ignored.
|
|
|
|
|
|
Hence, the package is \"held\" at that version.
|
|
|
|
|
|
If VERSION is nil, the package is not loaded (it is \"disabled\")."
|
|
|
|
|
|
:type '(repeat symbol)
|
2010-07-28 18:54:42 +00:00
|
|
|
|
:risky t
|
2010-06-17 02:08:10 +00:00
|
|
|
|
:group 'package
|
|
|
|
|
|
:version "24.1")
|
|
|
|
|
|
|
|
|
|
|
|
(defvar Info-directory-list)
|
|
|
|
|
|
(declare-function info-initialize "info" ())
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(declare-function url-http-file-exists-p "url-http" (url))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(declare-function lm-header "lisp-mnt" (header))
|
|
|
|
|
|
(declare-function lm-commentary "lisp-mnt" (&optional file))
|
|
|
|
|
|
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(defcustom package-archives '(("gnu" . "http://elpa.gnu.org/packages/"))
|
|
|
|
|
|
"An alist of archives from which to fetch.
|
|
|
|
|
|
The default value points to the GNU Emacs package repository.
|
2011-03-06 03:22:06 +00:00
|
|
|
|
|
|
|
|
|
|
Each element has the form (ID . LOCATION).
|
|
|
|
|
|
ID is an archive name, as a string.
|
|
|
|
|
|
LOCATION specifies the base location for the archive.
|
|
|
|
|
|
If it starts with \"http:\", it is treated as a HTTP URL;
|
|
|
|
|
|
otherwise it should be an absolute directory name.
|
2011-12-06 08:31:42 +00:00
|
|
|
|
(Other types of URL are currently not supported.)
|
|
|
|
|
|
|
|
|
|
|
|
Only add locations that you trust, since fetching and installing
|
|
|
|
|
|
a package can run arbitrary code."
|
2010-07-28 18:54:42 +00:00
|
|
|
|
:type '(alist :key-type (string :tag "Archive name")
|
2011-03-06 03:22:06 +00:00
|
|
|
|
:value-type (string :tag "URL or directory name"))
|
2010-07-28 18:54:42 +00:00
|
|
|
|
:risky t
|
|
|
|
|
|
:group 'package
|
|
|
|
|
|
:version "24.1")
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2014-12-07 21:28:38 +00:00
|
|
|
|
(defcustom package-archive-priorities nil
|
|
|
|
|
|
"An alist of priorities for packages.
|
|
|
|
|
|
|
|
|
|
|
|
Each element has the form (ARCHIVE-ID . PRIORITY).
|
|
|
|
|
|
|
|
|
|
|
|
When installing packages, the package with the highest version
|
|
|
|
|
|
number from the archive with the highest priority is
|
|
|
|
|
|
selected. When higher versions are available from archives with
|
|
|
|
|
|
lower priorities, the user has to select those manually.
|
|
|
|
|
|
|
|
|
|
|
|
Archives not in this list have the priority 0."
|
2015-01-17 10:58:58 +00:00
|
|
|
|
:type '(alist :key-type (string :tag "Archive name")
|
|
|
|
|
|
:value-type (integer :tag "Priority (default is 0)"))
|
2014-12-07 21:28:38 +00:00
|
|
|
|
:risky t
|
|
|
|
|
|
:group 'package
|
|
|
|
|
|
:version "25.1")
|
|
|
|
|
|
|
2013-04-04 01:51:33 +00:00
|
|
|
|
(defcustom package-pinned-packages nil
|
2014-06-03 04:41:20 +00:00
|
|
|
|
"An alist of packages that are pinned to specific archives.
|
|
|
|
|
|
This can be useful if you have multiple package archives enabled,
|
|
|
|
|
|
and want to control which archive a given package gets installed from.
|
|
|
|
|
|
|
|
|
|
|
|
Each element of the alist has the form (PACKAGE . ARCHIVE), where:
|
|
|
|
|
|
PACKAGE is a symbol representing a package
|
|
|
|
|
|
ARCHIVE is a string representing an archive (it should be the car of
|
|
|
|
|
|
an element in `package-archives', e.g. \"gnu\").
|
|
|
|
|
|
|
|
|
|
|
|
Adding an entry to this variable means that only ARCHIVE will be
|
|
|
|
|
|
considered as a source for PACKAGE. If other archives provide PACKAGE,
|
|
|
|
|
|
they are ignored (for this package). If ARCHIVE does not contain PACKAGE,
|
|
|
|
|
|
the package will be unavailable."
|
2013-04-04 01:51:33 +00:00
|
|
|
|
:type '(alist :key-type (symbol :tag "Package")
|
|
|
|
|
|
:value-type (string :tag "Archive name"))
|
2014-06-03 04:41:20 +00:00
|
|
|
|
;; I don't really see why this is risky...
|
|
|
|
|
|
;; I suppose it could prevent you receiving updates for a package,
|
|
|
|
|
|
;; via an entry (PACKAGE . NON-EXISTING). Which could be an issue
|
|
|
|
|
|
;; if PACKAGE has a known vulnerability that is fixed in newer versions.
|
2013-04-04 01:51:33 +00:00
|
|
|
|
:risky t
|
|
|
|
|
|
:group 'package
|
|
|
|
|
|
:version "24.4")
|
|
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(defconst package-archive-version 1
|
|
|
|
|
|
"Version number of the package archive understood by this file.
|
|
|
|
|
|
Lower version numbers than this will probably be understood as well.")
|
|
|
|
|
|
|
|
|
|
|
|
;; We don't prime the cache since it tends to get out of date.
|
|
|
|
|
|
(defvar package-archive-contents nil
|
|
|
|
|
|
"Cache of the contents of the Emacs Lisp Package Archive.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
This is an alist mapping package names (symbols) to
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
non-empty lists of `package-desc' structures.")
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(put 'package-archive-contents 'risky-local-variable t)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
(defcustom package-user-dir (locate-user-emacs-file "elpa")
|
|
|
|
|
|
"Directory containing the user's Emacs Lisp packages.
|
|
|
|
|
|
The directory name should be absolute.
|
|
|
|
|
|
Apart from this directory, Emacs also looks for system-wide
|
|
|
|
|
|
packages in `package-directory-list'."
|
|
|
|
|
|
:type 'directory
|
2010-07-28 18:54:42 +00:00
|
|
|
|
:risky t
|
2010-06-17 02:08:10 +00:00
|
|
|
|
:group 'package
|
|
|
|
|
|
:version "24.1")
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom package-directory-list
|
|
|
|
|
|
;; Defaults are subdirs named "elpa" in the site-lisp dirs.
|
|
|
|
|
|
(let (result)
|
|
|
|
|
|
(dolist (f load-path)
|
2010-09-04 17:54:48 +00:00
|
|
|
|
(and (stringp f)
|
|
|
|
|
|
(equal (file-name-nondirectory f) "site-lisp")
|
|
|
|
|
|
(push (expand-file-name "elpa" f) result)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(nreverse result))
|
|
|
|
|
|
"List of additional directories containing Emacs Lisp packages.
|
|
|
|
|
|
Each directory name should be absolute.
|
|
|
|
|
|
|
|
|
|
|
|
These directories contain packages intended for system-wide; in
|
|
|
|
|
|
contrast, `package-user-dir' contains packages for personal use."
|
|
|
|
|
|
:type '(repeat directory)
|
2010-07-28 18:54:42 +00:00
|
|
|
|
:risky t
|
2010-06-17 02:08:10 +00:00
|
|
|
|
:group 'package
|
|
|
|
|
|
:version "24.1")
|
|
|
|
|
|
|
2014-10-02 15:13:05 +00:00
|
|
|
|
(defvar epg-gpg-program)
|
|
|
|
|
|
|
2014-09-27 16:25:53 +00:00
|
|
|
|
(defcustom package-check-signature
|
|
|
|
|
|
(if (progn (require 'epg-config) (executable-find epg-gpg-program))
|
|
|
|
|
|
'allow-unsigned)
|
2014-06-05 06:15:44 +00:00
|
|
|
|
"Non-nil means to check package signatures when installing.
|
|
|
|
|
|
The value `allow-unsigned' means to still install a package even if
|
|
|
|
|
|
it is unsigned.
|
|
|
|
|
|
|
|
|
|
|
|
This also applies to the \"archive-contents\" file that lists the
|
|
|
|
|
|
contents of the archive."
|
2013-10-03 07:11:27 +00:00
|
|
|
|
:type '(choice (const nil :tag "Never")
|
|
|
|
|
|
(const allow-unsigned :tag "Allow unsigned")
|
|
|
|
|
|
(const t :tag "Check always"))
|
|
|
|
|
|
:risky t
|
|
|
|
|
|
:group 'package
|
2014-05-30 05:08:10 +00:00
|
|
|
|
:version "24.4")
|
2013-10-03 07:11:27 +00:00
|
|
|
|
|
|
|
|
|
|
(defcustom package-unsigned-archives nil
|
2014-06-05 06:15:44 +00:00
|
|
|
|
"List of archives where we do not check for package signatures."
|
2013-10-03 07:11:27 +00:00
|
|
|
|
:type '(repeat (string :tag "Archive name"))
|
|
|
|
|
|
:risky t
|
|
|
|
|
|
:group 'package
|
2014-05-30 05:08:10 +00:00
|
|
|
|
:version "24.4")
|
2013-10-03 07:11:27 +00:00
|
|
|
|
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(defcustom package-selected-packages nil
|
|
|
|
|
|
"Store here packages installed explicitely by user.
|
|
|
|
|
|
This variable will be feeded automatically by emacs,
|
|
|
|
|
|
when installing a new package.
|
|
|
|
|
|
This variable will be used by `package-autoremove' to decide
|
|
|
|
|
|
which packages are no more needed.
|
|
|
|
|
|
You can use it to (re)install packages on other machines
|
|
|
|
|
|
by running `package-user-selected-packages-install'."
|
|
|
|
|
|
:group 'package
|
|
|
|
|
|
:type '(repeat (choice symbol)))
|
|
|
|
|
|
|
2013-06-12 00:49:33 +00:00
|
|
|
|
(defvar package--default-summary "No description available.")
|
|
|
|
|
|
|
|
|
|
|
|
(cl-defstruct (package-desc
|
|
|
|
|
|
;; Rename the default constructor from `make-package-desc'.
|
|
|
|
|
|
(:constructor package-desc-create)
|
|
|
|
|
|
;; Has the same interface as the old `define-package',
|
|
|
|
|
|
;; which is still used in the "foo-pkg.el" files. Extra
|
|
|
|
|
|
;; options can be supported by adding additional keys.
|
|
|
|
|
|
(:constructor
|
|
|
|
|
|
package-desc-from-define
|
|
|
|
|
|
(name-string version-string &optional summary requirements
|
2013-09-29 19:41:00 +00:00
|
|
|
|
&rest rest-plist
|
2013-06-12 00:49:33 +00:00
|
|
|
|
&aux
|
|
|
|
|
|
(name (intern name-string))
|
|
|
|
|
|
(version (version-to-list version-string))
|
|
|
|
|
|
(reqs (mapcar #'(lambda (elt)
|
|
|
|
|
|
(list (car elt)
|
|
|
|
|
|
(version-to-list (cadr elt))))
|
|
|
|
|
|
(if (eq 'quote (car requirements))
|
|
|
|
|
|
(nth 1 requirements)
|
2013-09-29 19:41:00 +00:00
|
|
|
|
requirements)))
|
|
|
|
|
|
(kind (plist-get rest-plist :kind))
|
|
|
|
|
|
(archive (plist-get rest-plist :archive))
|
|
|
|
|
|
(extras (let (alist)
|
|
|
|
|
|
(while rest-plist
|
2013-10-01 15:52:53 +00:00
|
|
|
|
(unless (memq (car rest-plist) '(:kind :archive))
|
|
|
|
|
|
(let ((value (cadr rest-plist)))
|
|
|
|
|
|
(when value
|
2014-01-15 04:58:06 +00:00
|
|
|
|
(push (cons (car rest-plist)
|
|
|
|
|
|
(if (eq (car-safe value) 'quote)
|
2014-03-22 08:43:30 +00:00
|
|
|
|
(cadr value)
|
2014-01-15 04:58:06 +00:00
|
|
|
|
value))
|
2013-10-01 15:52:53 +00:00
|
|
|
|
alist))))
|
2013-09-29 19:41:00 +00:00
|
|
|
|
(setq rest-plist (cddr rest-plist)))
|
|
|
|
|
|
alist)))))
|
2013-06-12 00:49:33 +00:00
|
|
|
|
"Structure containing information about an individual package.
|
|
|
|
|
|
Slots:
|
|
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
`name' Name of the package, as a symbol.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
|
|
|
|
|
`version' Version of the package, as a version list.
|
|
|
|
|
|
|
|
|
|
|
|
`summary' Short description of the package, typically taken from
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
the first line of the file.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
`reqs' Requirements of the package. A list of (PACKAGE
|
|
|
|
|
|
VERSION-LIST) naming the dependent package and the minimum
|
|
|
|
|
|
required version.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
`kind' The distribution format of the package. Currently, it is
|
|
|
|
|
|
either `single' or `tar'.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
|
|
|
|
|
`archive' The name of the archive (as a string) whence this
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
package came.
|
2013-06-14 03:20:18 +00:00
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
`dir' The directory where the package is installed (if installed),
|
2013-09-29 19:41:00 +00:00
|
|
|
|
`builtin' if it is built-in, or nil otherwise.
|
|
|
|
|
|
|
2013-10-03 07:11:27 +00:00
|
|
|
|
`extras' Optional alist of additional keyword-value pairs.
|
|
|
|
|
|
|
|
|
|
|
|
`signed' Flag to indicate that the package is signed by provider."
|
2013-06-12 00:49:33 +00:00
|
|
|
|
name
|
|
|
|
|
|
version
|
|
|
|
|
|
(summary package--default-summary)
|
|
|
|
|
|
reqs
|
|
|
|
|
|
kind
|
2013-06-14 03:20:18 +00:00
|
|
|
|
archive
|
2013-09-29 19:41:00 +00:00
|
|
|
|
dir
|
2013-10-03 07:11:27 +00:00
|
|
|
|
extras
|
|
|
|
|
|
signed)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
|
|
|
|
|
|
;; Pseudo fields.
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(defun package-desc-full-name (pkg-desc)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(format "%s-%s"
|
|
|
|
|
|
(package-desc-name pkg-desc)
|
|
|
|
|
|
(package-version-join (package-desc-version pkg-desc))))
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(defun package-desc-suffix (pkg-desc)
|
|
|
|
|
|
(pcase (package-desc-kind pkg-desc)
|
|
|
|
|
|
(`single ".el")
|
|
|
|
|
|
(`tar ".tar")
|
2015-01-14 14:57:32 +00:00
|
|
|
|
(`dir "")
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(kind (error "Unknown package kind: %s" kind))))
|
|
|
|
|
|
|
2014-01-16 12:23:14 +00:00
|
|
|
|
(defun package-desc--keywords (pkg-desc)
|
|
|
|
|
|
(let ((keywords (cdr (assoc :keywords (package-desc-extras pkg-desc)))))
|
2014-01-15 04:58:06 +00:00
|
|
|
|
(if (eq (car-safe keywords) 'quote)
|
2014-01-16 16:44:17 +00:00
|
|
|
|
(nth 1 keywords)
|
2014-01-15 04:58:06 +00:00
|
|
|
|
keywords)))
|
|
|
|
|
|
|
2013-06-12 00:49:33 +00:00
|
|
|
|
;; Package descriptor format used in finder-inf.el and package--builtins.
|
|
|
|
|
|
(cl-defstruct (package--bi-desc
|
|
|
|
|
|
(:constructor package-make-builtin (version summary))
|
|
|
|
|
|
(:type vector))
|
|
|
|
|
|
version
|
|
|
|
|
|
reqs
|
|
|
|
|
|
summary)
|
|
|
|
|
|
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(defvar package--builtins nil
|
|
|
|
|
|
"Alist of built-in packages.
|
2010-11-03 23:21:51 +00:00
|
|
|
|
The actual value is initialized by loading the library
|
|
|
|
|
|
`finder-inf'; this is not done until it is needed, e.g. by the
|
|
|
|
|
|
function `package-built-in-p'.
|
|
|
|
|
|
|
2013-06-12 00:49:33 +00:00
|
|
|
|
Each element has the form (PKG . PACKAGE-BI-DESC), where PKG is a package
|
|
|
|
|
|
name (a symbol) and DESC is a `package--bi-desc' structure.")
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(put 'package--builtins 'risky-local-variable t)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(defvar package-alist nil
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Alist of all packages available for activation.
|
2013-06-21 14:12:56 +00:00
|
|
|
|
Each element has the form (PKG . DESCS), where PKG is a package
|
|
|
|
|
|
name (a symbol) and DESCS is a non-empty list of `package-desc' structure,
|
|
|
|
|
|
sorted by decreasing versions.
|
2010-08-29 22:15:09 +00:00
|
|
|
|
|
|
|
|
|
|
This variable is set automatically by `package-load-descriptor',
|
|
|
|
|
|
called via `package-initialize'. To change which packages are
|
|
|
|
|
|
loaded and/or activated, customize `package-load-list'.")
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(put 'package-alist 'risky-local-variable t)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(defvar package-activated-list nil
|
2013-06-15 15:36:11 +00:00
|
|
|
|
;; FIXME: This should implicitly include all builtin packages.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"List of the names of currently activated packages.")
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(put 'package-activated-list 'risky-local-variable t)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2011-03-10 23:40:46 +00:00
|
|
|
|
(defun package-version-join (vlist)
|
|
|
|
|
|
"Return the version string corresponding to the list VLIST.
|
|
|
|
|
|
This is, approximately, the inverse of `version-to-list'.
|
|
|
|
|
|
\(Actually, it returns only one of the possible inverses, since
|
|
|
|
|
|
`version-to-list' is a many-to-one operation.)"
|
|
|
|
|
|
(if (null vlist)
|
|
|
|
|
|
""
|
|
|
|
|
|
(let ((str-list (list "." (int-to-string (car vlist)))))
|
|
|
|
|
|
(dolist (num (cdr vlist))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((>= num 0)
|
|
|
|
|
|
(push (int-to-string num) str-list)
|
|
|
|
|
|
(push "." str-list))
|
2013-11-02 10:55:22 +00:00
|
|
|
|
((< num -4)
|
2011-03-10 23:40:46 +00:00
|
|
|
|
(error "Invalid version list `%s'" vlist))
|
|
|
|
|
|
(t
|
|
|
|
|
|
;; pre, or beta, or alpha
|
|
|
|
|
|
(cond ((equal "." (car str-list))
|
|
|
|
|
|
(pop str-list))
|
|
|
|
|
|
((not (string-match "[0-9]+" (car str-list)))
|
|
|
|
|
|
(error "Invalid version list `%s'" vlist)))
|
|
|
|
|
|
(push (cond ((= num -1) "pre")
|
|
|
|
|
|
((= num -2) "beta")
|
2013-11-02 10:55:22 +00:00
|
|
|
|
((= num -3) "alpha")
|
|
|
|
|
|
((= num -4) "snapshot"))
|
2011-03-10 23:40:46 +00:00
|
|
|
|
str-list))))
|
|
|
|
|
|
(if (equal "." (car str-list))
|
|
|
|
|
|
(pop str-list))
|
|
|
|
|
|
(apply 'concat (nreverse str-list)))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(defun package-load-descriptor (pkg-dir)
|
|
|
|
|
|
"Load the description file in directory PKG-DIR."
|
|
|
|
|
|
(let ((pkg-file (expand-file-name (package--description-file pkg-dir)
|
2013-10-03 07:11:27 +00:00
|
|
|
|
pkg-dir))
|
|
|
|
|
|
(signed-file (concat pkg-dir ".signed")))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(when (file-exists-p pkg-file)
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(insert-file-contents pkg-file)
|
|
|
|
|
|
(goto-char (point-min))
|
2013-06-17 17:36:21 +00:00
|
|
|
|
(let ((pkg-desc (package-process-define-package
|
|
|
|
|
|
(read (current-buffer)) pkg-file)))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(setf (package-desc-dir pkg-desc) pkg-dir)
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(if (file-exists-p signed-file)
|
|
|
|
|
|
(setf (package-desc-signed pkg-desc) t))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
pkg-desc)))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-load-all-descriptors ()
|
|
|
|
|
|
"Load descriptors for installed Emacs Lisp packages.
|
|
|
|
|
|
This looks for package subdirectories in `package-user-dir' and
|
|
|
|
|
|
`package-directory-list'. The variable `package-load-list'
|
|
|
|
|
|
controls which package subdirectories may be loaded.
|
|
|
|
|
|
|
|
|
|
|
|
In each valid package subdirectory, this function loads the
|
|
|
|
|
|
description file containing a call to `define-package', which
|
2013-06-21 14:12:56 +00:00
|
|
|
|
updates `package-alist'."
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(dolist (dir (cons package-user-dir package-directory-list))
|
|
|
|
|
|
(when (file-directory-p dir)
|
|
|
|
|
|
(dolist (subdir (directory-files dir))
|
|
|
|
|
|
(let ((pkg-dir (expand-file-name subdir dir)))
|
|
|
|
|
|
(when (file-directory-p pkg-dir)
|
|
|
|
|
|
(package-load-descriptor pkg-dir)))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-disabled-p (pkg-name version)
|
|
|
|
|
|
"Return whether PKG-NAME at VERSION can be activated.
|
|
|
|
|
|
The decision is made according to `package-load-list'.
|
|
|
|
|
|
Return nil if the package can be activated.
|
|
|
|
|
|
Return t if the package is completely disabled.
|
|
|
|
|
|
Return the max version (as a string) if the package is held at a lower version."
|
|
|
|
|
|
(let ((force (assq pkg-name package-load-list)))
|
|
|
|
|
|
(cond ((null force) (not (memq 'all package-load-list)))
|
|
|
|
|
|
((null (setq force (cadr force))) t) ; disabled
|
|
|
|
|
|
((eq force t) nil)
|
|
|
|
|
|
((stringp force) ; held
|
|
|
|
|
|
(unless (version-list-= version (version-to-list force))
|
|
|
|
|
|
force))
|
|
|
|
|
|
(t (error "Invalid element in `package-load-list'")))))
|
2010-06-19 22:36:51 +00:00
|
|
|
|
|
2014-12-18 10:10:34 +00:00
|
|
|
|
(defun package-activate-1 (pkg-desc &optional reload)
|
|
|
|
|
|
"Activate package given by PKG-DESC, even if it was already active.
|
|
|
|
|
|
If RELOAD is non-nil, also `load' any files inside the package which
|
|
|
|
|
|
correspond to previously loaded files (those returned by
|
|
|
|
|
|
`package--list-loaded-files')."
|
2013-06-12 00:49:33 +00:00
|
|
|
|
(let* ((name (package-desc-name pkg-desc))
|
2013-08-28 17:57:12 +00:00
|
|
|
|
(pkg-dir (package-desc-dir pkg-desc))
|
|
|
|
|
|
(pkg-dir-dir (file-name-as-directory pkg-dir)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(unless pkg-dir
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(error "Internal error: unable to find directory for `%s'"
|
|
|
|
|
|
(package-desc-full-name pkg-desc)))
|
2013-08-28 17:57:12 +00:00
|
|
|
|
;; Add to load path, add autoloads, and activate the package.
|
2014-12-13 12:25:31 +00:00
|
|
|
|
(let* ((old-lp load-path)
|
|
|
|
|
|
(autoloads-file (expand-file-name
|
|
|
|
|
|
(format "%s-autoloads" name) pkg-dir))
|
2014-12-18 10:10:34 +00:00
|
|
|
|
(loaded-files-list (and reload (package--list-loaded-files pkg-dir))))
|
2014-12-18 20:24:39 +00:00
|
|
|
|
(with-demoted-errors "Error in package-activate-1: %s"
|
2014-12-13 12:25:31 +00:00
|
|
|
|
(load autoloads-file nil t))
|
2013-08-28 17:57:12 +00:00
|
|
|
|
(when (and (eq old-lp load-path)
|
|
|
|
|
|
(not (or (member pkg-dir load-path)
|
|
|
|
|
|
(member pkg-dir-dir load-path))))
|
|
|
|
|
|
;; Old packages don't add themselves to the `load-path', so we have to
|
|
|
|
|
|
;; do it ourselves.
|
2014-12-13 12:25:31 +00:00
|
|
|
|
(push pkg-dir load-path))
|
|
|
|
|
|
;; Call `load' on all files in `pkg-dir' already present in
|
|
|
|
|
|
;; `load-history'. This is done so that macros in these files are updated
|
|
|
|
|
|
;; to their new definitions. If another package is being installed which
|
|
|
|
|
|
;; depends on this new definition, not doing this update would cause
|
|
|
|
|
|
;; compilation errors and break the installation.
|
2014-12-18 20:24:39 +00:00
|
|
|
|
(with-demoted-errors "Error in package-activate-1: %s"
|
2014-12-13 12:25:31 +00:00
|
|
|
|
(mapc (lambda (feature) (load feature nil t))
|
|
|
|
|
|
;; Skip autoloads file since we already evaluated it above.
|
|
|
|
|
|
(remove (file-truename autoloads-file) loaded-files-list))))
|
2010-06-19 22:36:51 +00:00
|
|
|
|
;; Add info node.
|
2010-09-04 17:13:14 +00:00
|
|
|
|
(when (file-exists-p (expand-file-name "dir" pkg-dir))
|
|
|
|
|
|
;; FIXME: not the friendliest, but simple.
|
|
|
|
|
|
(require 'info)
|
|
|
|
|
|
(info-initialize)
|
|
|
|
|
|
(push pkg-dir Info-directory-list))
|
2013-06-12 00:49:33 +00:00
|
|
|
|
(push name package-activated-list)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; Don't return nil.
|
|
|
|
|
|
t))
|
|
|
|
|
|
|
2014-12-18 20:23:15 +00:00
|
|
|
|
(declare-function find-library-name "find-func" (library))
|
2014-12-13 11:48:08 +00:00
|
|
|
|
(defun package--list-loaded-files (dir)
|
|
|
|
|
|
"Recursively list all files in DIR which correspond to loaded features.
|
|
|
|
|
|
Returns the `file-name-sans-extension' of each file, relative to
|
|
|
|
|
|
DIR, sorted by most recently loaded last."
|
2014-12-17 21:57:09 +00:00
|
|
|
|
(let* ((history (delq nil
|
|
|
|
|
|
(mapcar (lambda (x)
|
|
|
|
|
|
(let ((f (car x)))
|
|
|
|
|
|
(and f (file-name-sans-extension f))))
|
|
|
|
|
|
load-history)))
|
2014-12-13 11:48:08 +00:00
|
|
|
|
(dir (file-truename dir))
|
|
|
|
|
|
;; List all files that have already been loaded.
|
|
|
|
|
|
(list-of-conflicts
|
2014-12-17 21:57:09 +00:00
|
|
|
|
(delq
|
2014-12-13 11:48:08 +00:00
|
|
|
|
nil
|
|
|
|
|
|
(mapcar
|
|
|
|
|
|
(lambda (x) (let* ((file (file-relative-name x dir))
|
|
|
|
|
|
;; Previously loaded file, if any.
|
|
|
|
|
|
(previous
|
|
|
|
|
|
(ignore-errors
|
|
|
|
|
|
(file-name-sans-extension
|
|
|
|
|
|
(file-truename (find-library-name file)))))
|
|
|
|
|
|
(pos (when previous (member previous history))))
|
|
|
|
|
|
;; Return (RELATIVE-FILENAME . HISTORY-POSITION)
|
|
|
|
|
|
(when pos
|
|
|
|
|
|
(cons (file-name-sans-extension file) (length pos)))))
|
|
|
|
|
|
(directory-files-recursively dir "\\`[^\\.].*\\.el\\'")))))
|
|
|
|
|
|
;; Turn the list of (FILENAME . POS) back into a list of features. Files in
|
|
|
|
|
|
;; subdirectories are returned relative to DIR (so not actually features).
|
|
|
|
|
|
(let ((default-directory (file-name-as-directory dir)))
|
|
|
|
|
|
(mapcar (lambda (x) (file-truename (car x)))
|
|
|
|
|
|
(sort list-of-conflicts
|
|
|
|
|
|
;; Sort the files by ascending HISTORY-POSITION.
|
|
|
|
|
|
(lambda (x y) (< (cdr x) (cdr y))))))))
|
|
|
|
|
|
|
2011-04-22 02:35:48 +00:00
|
|
|
|
(defun package-built-in-p (package &optional min-version)
|
|
|
|
|
|
"Return true if PACKAGE is built-in to Emacs.
|
|
|
|
|
|
Optional arg MIN-VERSION, if non-nil, should be a version list
|
|
|
|
|
|
specifying the minimum acceptable version."
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(if (package-desc-p package) ;; was built-in and then was converted
|
|
|
|
|
|
(eq 'builtin (package-desc-dir package))
|
|
|
|
|
|
(let ((bi (assq package package--builtin-versions)))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
(bi (version-list-<= min-version (cdr bi)))
|
2014-03-28 22:47:46 +00:00
|
|
|
|
((remove 0 min-version) nil)
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(t
|
|
|
|
|
|
(require 'finder-inf nil t) ; For `package--builtins'.
|
|
|
|
|
|
(assq package package--builtins))))))
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package--from-builtin (bi-desc)
|
|
|
|
|
|
(package-desc-create :name (pop bi-desc)
|
|
|
|
|
|
:version (package--bi-desc-version bi-desc)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
:summary (package--bi-desc-summary bi-desc)
|
|
|
|
|
|
:dir 'builtin))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-11-03 03:25:36 +00:00
|
|
|
|
;; This function goes ahead and activates a newer version of a package
|
|
|
|
|
|
;; if an older one was already activated. This is not ideal; we'd at
|
|
|
|
|
|
;; least need to check to see if the package has actually been loaded,
|
|
|
|
|
|
;; and not merely activated.
|
2013-06-21 14:12:56 +00:00
|
|
|
|
(defun package-activate (package &optional force)
|
|
|
|
|
|
"Activate package PACKAGE.
|
|
|
|
|
|
If FORCE is true, (re-)activate it if it's already activated."
|
|
|
|
|
|
(let ((pkg-descs (cdr (assq package package-alist))))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
;; Check if PACKAGE is available in `package-alist'.
|
2013-06-21 14:12:56 +00:00
|
|
|
|
(while
|
|
|
|
|
|
(when pkg-descs
|
|
|
|
|
|
(let ((available-version (package-desc-version (car pkg-descs))))
|
|
|
|
|
|
(or (package-disabled-p package available-version)
|
|
|
|
|
|
;; Prefer a builtin package.
|
|
|
|
|
|
(package-built-in-p package available-version))))
|
|
|
|
|
|
(setq pkg-descs (cdr pkg-descs)))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
;; If no such package is found, maybe it's built-in.
|
2013-06-21 14:12:56 +00:00
|
|
|
|
((null pkg-descs)
|
|
|
|
|
|
(package-built-in-p package))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
;; If the package is already activated, just return t.
|
2013-06-21 14:12:56 +00:00
|
|
|
|
((and (memq package package-activated-list) (not force))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
t)
|
|
|
|
|
|
;; Otherwise, proceed with activation.
|
|
|
|
|
|
(t
|
2013-06-21 14:12:56 +00:00
|
|
|
|
(let* ((pkg-vec (car pkg-descs))
|
|
|
|
|
|
(fail (catch 'dep-failure
|
|
|
|
|
|
;; Activate its dependencies recursively.
|
|
|
|
|
|
(dolist (req (package-desc-reqs pkg-vec))
|
2014-12-18 16:44:11 +00:00
|
|
|
|
(unless (package-activate (car req))
|
2013-06-21 14:12:56 +00:00
|
|
|
|
(throw 'dep-failure req))))))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(if fail
|
|
|
|
|
|
(warn "Unable to activate package `%s'.
|
2010-11-03 23:21:51 +00:00
|
|
|
|
Required package `%s-%s' is unavailable"
|
2010-11-03 03:25:36 +00:00
|
|
|
|
package (car fail) (package-version-join (cadr fail)))
|
|
|
|
|
|
;; If all goes well, activate the package itself.
|
2014-12-18 10:10:34 +00:00
|
|
|
|
(package-activate-1 pkg-vec force)))))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(defun define-package (_name-string _version-string
|
|
|
|
|
|
&optional _docstring _requirements
|
|
|
|
|
|
&rest _extra-properties)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Define a new package.
|
2010-11-03 03:25:36 +00:00
|
|
|
|
NAME-STRING is the name of the package, as a string.
|
2011-04-22 02:35:48 +00:00
|
|
|
|
VERSION-STRING is the version of the package, as a string.
|
2010-11-03 03:25:36 +00:00
|
|
|
|
DOCSTRING is a short description of the package, a string.
|
|
|
|
|
|
REQUIREMENTS is a list of dependencies on other packages.
|
2011-04-22 02:35:48 +00:00
|
|
|
|
Each requirement is of the form (OTHER-PACKAGE OTHER-VERSION),
|
|
|
|
|
|
where OTHER-VERSION is a string.
|
2010-08-31 01:53:46 +00:00
|
|
|
|
|
|
|
|
|
|
EXTRA-PROPERTIES is currently unused."
|
2013-06-14 03:20:18 +00:00
|
|
|
|
;; FIXME: Placeholder! Should we keep it?
|
|
|
|
|
|
(error "Don't call me!"))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-process-define-package (exp origin)
|
|
|
|
|
|
(unless (eq (car-safe exp) 'define-package)
|
|
|
|
|
|
(error "Can't find define-package in %s" origin))
|
|
|
|
|
|
(let* ((new-pkg-desc (apply #'package-desc-from-define (cdr exp)))
|
|
|
|
|
|
(name (package-desc-name new-pkg-desc))
|
|
|
|
|
|
(version (package-desc-version new-pkg-desc))
|
2013-06-21 14:12:56 +00:00
|
|
|
|
(old-pkgs (assq name package-alist)))
|
|
|
|
|
|
(if (null old-pkgs)
|
|
|
|
|
|
;; If there's no old package, just add this to `package-alist'.
|
|
|
|
|
|
(push (list name new-pkg-desc) package-alist)
|
|
|
|
|
|
;; If there is, insert the new package at the right place in the list.
|
2013-06-22 20:09:19 +00:00
|
|
|
|
(while
|
|
|
|
|
|
(if (and (cdr old-pkgs)
|
|
|
|
|
|
(version-list-< version
|
|
|
|
|
|
(package-desc-version (cadr old-pkgs))))
|
|
|
|
|
|
(setq old-pkgs (cdr old-pkgs))
|
|
|
|
|
|
(push new-pkg-desc (cdr old-pkgs))
|
|
|
|
|
|
nil)))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
new-pkg-desc))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-06-21 03:08:47 +00:00
|
|
|
|
;; From Emacs 22, but changed so it adds to load-path.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(defun package-autoload-ensure-default-file (file)
|
|
|
|
|
|
"Make sure that the autoload file FILE exists and if not create it."
|
|
|
|
|
|
(unless (file-exists-p file)
|
|
|
|
|
|
(write-region
|
|
|
|
|
|
(concat ";;; " (file-name-nondirectory file)
|
|
|
|
|
|
" --- automatically extracted autoloads\n"
|
|
|
|
|
|
";;\n"
|
2013-04-27 13:32:53 +00:00
|
|
|
|
";;; Code:\n"
|
|
|
|
|
|
"(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))\n"
|
2010-06-17 02:08:10 +00:00
|
|
|
|
" \n;; Local Variables:\n"
|
|
|
|
|
|
";; version-control: never\n"
|
|
|
|
|
|
";; no-byte-compile: t\n"
|
|
|
|
|
|
";; no-update-autoloads: t\n"
|
|
|
|
|
|
";; End:\n"
|
|
|
|
|
|
";;; " (file-name-nondirectory file)
|
|
|
|
|
|
" ends here\n")
|
2014-01-22 19:22:45 +00:00
|
|
|
|
nil file nil 'silent))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
file)
|
|
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(defvar generated-autoload-file)
|
|
|
|
|
|
(defvar version-control)
|
|
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(defun package-generate-autoloads (name pkg-dir)
|
2013-06-12 00:49:33 +00:00
|
|
|
|
(let* ((auto-name (format "%s-autoloads.el" name))
|
lisp/*: Add declarations, remove unused bindings, mark unused args.
* lisp/avoid.el (mouse-avoidance-mode): Mark unused arg.
(mouse-avoidance-nudge-mouse): Remove unused binding.
* lisp/imenu.el (imenu-default-goto-function): Mark unused args.
(imenu-progress-message): Remove obsolete macro; all callers changed.
* lisp/mouse.el (mouse-menu-major-mode-map):
* lisp/emacs-lisp/authors.el (authors-scan-change-log)
(authors-add-to-author-list):
* lisp/emacs-lisp/avl-tree.el (avl-tree--enter-balance):
* lisp/emacs-lisp/smie.el (smie-auto-fill):
* lisp/mail/sendmail.el (mail-bury):
* lisp/mail/unrmail.el (unrmail):
* lisp/net/tls.el (open-tls-stream):
* lisp/textmodes/picture.el (picture-mouse-set-point):
Remove unused bindings.
* lisp/subr.el (keymap-canonicalize): Remove unused binding.
(read-passwd): Mark unused arg.
* lisp/tutorial.el (tutorial--display-changes): Remove unused binding.
(tutorial--save-tutorial-to): Remove unused variable.
* lisp/emacs-lisp/package.el (define-package, package-menu-mark-delete)
(package-menu-mark-install, package-menu-mark-unmark): Mark unused args.
(package-generate-autoloads, package-menu--generate)
(package-menu--find-upgrades): Remove unused bindings.
* lisp/emulation/cua-rect.el (cua-restrict-regexp-rectangle)
(cua-restrict-prefix-rectangle): Doc fixes. Remove unused bindings.
(cua--mouse-ignore, cua--delete-rectangle, cua--extract-rectangle)
(cua--indent-rectangle, cua-open-rectangle, cua-close-rectangle)
(cua-blank-rectangle, cua-string-rectangle, cua-replace-in-rectangle)
(cua-incr-rectangle, cua-sequence-rectangle, cua--convert-rectangle-as)
(cua--rectangle-aux-replace, cua--left-fill-rectangle)
(cua-scroll-rectangle-up, cua-scroll-rectangle-down)
(cua-delete-char-rectangle): Mark unused args.
(cua-align-rectangle): Remove unused binding.
* lisp/mail/rmail.el (compilation--message->loc)
(epa--find-coding-system-for-mime-charset): Declare.
* lisp/net/dbus.el (dbus-register-service): Declare.
(dbus-name-owner-changed-handler): Remove unused binding.
* lisp/nxml/nxml-mode.el (nxml-electric-slash, nxml-in-mixed-content-p)
(nxml-compute-indent-from-matching-start-tag): Remove unused variables.
(nxml-scan-backward-within): Mark unused arg.
(nxml-dynamic-markup-word): Remove unused binding.
2012-04-19 17:20:26 +00:00
|
|
|
|
;;(ignore-name (concat name "-pkg.el"))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(generated-autoload-file (expand-file-name auto-name pkg-dir))
|
2014-05-28 09:58:47 +00:00
|
|
|
|
(backup-inhibited t)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(version-control 'never))
|
2013-04-27 13:32:53 +00:00
|
|
|
|
(package-autoload-ensure-default-file generated-autoload-file)
|
2012-10-28 20:41:49 +00:00
|
|
|
|
(update-directory-autoloads pkg-dir)
|
|
|
|
|
|
(let ((buf (find-buffer-visiting generated-autoload-file)))
|
2013-06-12 00:49:33 +00:00
|
|
|
|
(when buf (kill-buffer buf)))
|
|
|
|
|
|
auto-name))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2011-03-19 18:27:55 +00:00
|
|
|
|
(defvar tar-parse-info)
|
|
|
|
|
|
(declare-function tar-untar-buffer "tar-mode" ())
|
2013-05-11 02:27:28 +00:00
|
|
|
|
(declare-function tar-header-name "tar-mode" (tar-header) t)
|
|
|
|
|
|
(declare-function tar-header-link-type "tar-mode" (tar-header) t)
|
2011-03-19 18:27:55 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-untar-buffer (dir)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Untar the current buffer.
|
2011-03-19 18:27:55 +00:00
|
|
|
|
This uses `tar-untar-buffer' from Tar mode. All files should
|
|
|
|
|
|
untar into a directory named DIR; otherwise, signal an error."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(require 'tar-mode)
|
2011-03-19 18:27:55 +00:00
|
|
|
|
(tar-mode)
|
|
|
|
|
|
;; Make sure everything extracts into DIR.
|
2012-12-29 11:06:10 +00:00
|
|
|
|
(let ((regexp (concat "\\`" (regexp-quote (expand-file-name dir)) "/"))
|
|
|
|
|
|
(case-fold-search (memq system-type '(windows-nt ms-dos cygwin))))
|
2011-03-19 18:27:55 +00:00
|
|
|
|
(dolist (tar-data tar-parse-info)
|
2012-12-29 11:06:10 +00:00
|
|
|
|
(let ((name (expand-file-name (tar-header-name tar-data))))
|
|
|
|
|
|
(or (string-match regexp name)
|
|
|
|
|
|
;; Tarballs created by some utilities don't list
|
|
|
|
|
|
;; directories with a trailing slash (Bug#13136).
|
|
|
|
|
|
(and (string-equal dir name)
|
|
|
|
|
|
(eq (tar-header-link-type tar-data) 5))
|
|
|
|
|
|
(error "Package does not untar cleanly into directory %s/" dir)))))
|
2011-03-19 18:27:55 +00:00
|
|
|
|
(tar-untar-buffer))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2014-09-02 19:51:25 +00:00
|
|
|
|
(defun package-generate-description-file (pkg-desc pkg-file)
|
2013-06-21 03:08:47 +00:00
|
|
|
|
"Create the foo-pkg.el file for single-file packages."
|
2014-09-02 19:51:25 +00:00
|
|
|
|
(let* ((name (package-desc-name pkg-desc)))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(let ((print-level nil)
|
|
|
|
|
|
(print-quoted t)
|
|
|
|
|
|
(print-length nil))
|
|
|
|
|
|
(write-region
|
|
|
|
|
|
(concat
|
2014-05-25 16:53:28 +00:00
|
|
|
|
";;; -*- no-byte-compile: t -*-\n"
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(prin1-to-string
|
2013-09-29 19:41:00 +00:00
|
|
|
|
(nconc
|
|
|
|
|
|
(list 'define-package
|
|
|
|
|
|
(symbol-name name)
|
|
|
|
|
|
(package-version-join (package-desc-version pkg-desc))
|
|
|
|
|
|
(package-desc-summary pkg-desc)
|
|
|
|
|
|
(let ((requires (package-desc-reqs pkg-desc)))
|
|
|
|
|
|
(list 'quote
|
|
|
|
|
|
;; Turn version lists into string form.
|
|
|
|
|
|
(mapcar
|
|
|
|
|
|
(lambda (elt)
|
|
|
|
|
|
(list (car elt)
|
|
|
|
|
|
(package-version-join (cadr elt))))
|
|
|
|
|
|
requires))))
|
2014-09-02 19:51:25 +00:00
|
|
|
|
(package--alist-to-plist-args
|
2013-09-29 19:41:00 +00:00
|
|
|
|
(package-desc-extras pkg-desc))))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
"\n")
|
2014-01-22 19:22:45 +00:00
|
|
|
|
nil pkg-file nil 'silent))))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
|
2014-09-02 19:51:25 +00:00
|
|
|
|
(defun package--alist-to-plist-args (alist)
|
2014-10-24 23:02:25 +00:00
|
|
|
|
(mapcar 'macroexp-quote
|
2014-09-02 19:51:25 +00:00
|
|
|
|
(apply #'nconc
|
|
|
|
|
|
(mapcar (lambda (pair) (list (car pair) (cdr pair))) alist))))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(defun package-unpack (pkg-desc)
|
|
|
|
|
|
"Install the contents of the current buffer as a package."
|
|
|
|
|
|
(let* ((name (package-desc-name pkg-desc))
|
|
|
|
|
|
(dirname (package-desc-full-name pkg-desc))
|
2011-03-19 18:27:55 +00:00
|
|
|
|
(pkg-dir (expand-file-name dirname package-user-dir)))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(pcase (package-desc-kind pkg-desc)
|
2015-01-13 01:35:46 +00:00
|
|
|
|
(`dir
|
|
|
|
|
|
(make-directory pkg-dir t)
|
|
|
|
|
|
(let ((file-list
|
|
|
|
|
|
(directory-files
|
|
|
|
|
|
default-directory 'full "\\`[^.].*\\.el\\'" 'nosort)))
|
|
|
|
|
|
(dolist (source-file file-list)
|
|
|
|
|
|
(let ((target-el-file
|
|
|
|
|
|
(expand-file-name (file-name-nondirectory source-file) pkg-dir)))
|
|
|
|
|
|
(copy-file source-file target-el-file t)))
|
|
|
|
|
|
;; Now that the files have been installed, this package is
|
|
|
|
|
|
;; indistinguishable from a `tar' or a `single'. Let's make
|
|
|
|
|
|
;; things simple by ensuring we're one of them.
|
|
|
|
|
|
(setf (package-desc-kind pkg-desc)
|
|
|
|
|
|
(if (> (length file-list) 1) 'tar 'single))))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(`tar
|
|
|
|
|
|
(make-directory package-user-dir t)
|
|
|
|
|
|
;; FIXME: should we delete PKG-DIR if it exists?
|
|
|
|
|
|
(let* ((default-directory (file-name-as-directory package-user-dir)))
|
|
|
|
|
|
(package-untar-buffer dirname)))
|
|
|
|
|
|
(`single
|
|
|
|
|
|
(let ((el-file (expand-file-name (format "%s.el" name) pkg-dir)))
|
|
|
|
|
|
(make-directory pkg-dir t)
|
|
|
|
|
|
(package--write-file-no-coding el-file)))
|
|
|
|
|
|
(kind (error "Unknown package kind: %S" kind)))
|
|
|
|
|
|
(package--make-autoloads-and-stuff pkg-desc pkg-dir)
|
|
|
|
|
|
;; Update package-alist.
|
|
|
|
|
|
(let ((new-desc (package-load-descriptor pkg-dir)))
|
|
|
|
|
|
;; FIXME: Check that `new-desc' matches `desc'!
|
|
|
|
|
|
;; FIXME: Compilation should be done as a separate, optional, step.
|
|
|
|
|
|
;; E.g. for multi-package installs, we should first install all packages
|
|
|
|
|
|
;; and then compile them.
|
|
|
|
|
|
(package--compile new-desc))
|
|
|
|
|
|
;; Try to activate it.
|
2013-06-21 14:12:56 +00:00
|
|
|
|
(package-activate name 'force)
|
2013-06-21 03:08:47 +00:00
|
|
|
|
pkg-dir))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--make-autoloads-and-stuff (pkg-desc pkg-dir)
|
|
|
|
|
|
"Generate autoloads, description file, etc.. for PKG-DESC installed at PKG-DIR."
|
|
|
|
|
|
(package-generate-autoloads (package-desc-name pkg-desc) pkg-dir)
|
2014-09-02 19:51:25 +00:00
|
|
|
|
(let ((desc-file (expand-file-name (package--description-file pkg-dir)
|
|
|
|
|
|
pkg-dir)))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(unless (file-exists-p desc-file)
|
2014-09-02 19:51:25 +00:00
|
|
|
|
(package-generate-description-file pkg-desc desc-file)))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
;; FIXME: Create foo.info and dir file from foo.texi?
|
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--compile (pkg-desc)
|
|
|
|
|
|
"Byte-compile installed package PKG-DESC."
|
|
|
|
|
|
(package-activate-1 pkg-desc)
|
|
|
|
|
|
(byte-recompile-directory (package-desc-dir pkg-desc) 0 t))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2011-02-12 01:18:15 +00:00
|
|
|
|
(defun package--write-file-no-coding (file-name)
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(let ((buffer-file-coding-system 'no-conversion))
|
2014-01-22 19:22:45 +00:00
|
|
|
|
(write-region (point-min) (point-max) file-name nil 'silent)))
|
2010-07-28 18:54:42 +00:00
|
|
|
|
|
2011-03-06 03:22:06 +00:00
|
|
|
|
(defmacro package--with-work-buffer (location file &rest body)
|
|
|
|
|
|
"Run BODY in a buffer containing the contents of FILE at LOCATION.
|
|
|
|
|
|
LOCATION is the base location of a package archive, and should be
|
|
|
|
|
|
one of the URLs (or file names) specified in `package-archives'.
|
|
|
|
|
|
FILE is the name of a file relative to that base location.
|
|
|
|
|
|
|
|
|
|
|
|
This macro retrieves FILE from LOCATION into a temporary buffer,
|
|
|
|
|
|
and evaluates BODY while that buffer is current. This work
|
|
|
|
|
|
buffer is killed afterwards. Return the last value in BODY."
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(declare (indent 2) (debug t))
|
2014-03-26 15:21:17 +00:00
|
|
|
|
`(with-temp-buffer
|
|
|
|
|
|
(if (string-match-p "\\`https?:" ,location)
|
|
|
|
|
|
(url-insert-file-contents (concat ,location ,file))
|
|
|
|
|
|
(unless (file-name-absolute-p ,location)
|
|
|
|
|
|
(error "Archive location %s is not an absolute file name"
|
|
|
|
|
|
,location))
|
|
|
|
|
|
(insert-file-contents (expand-file-name ,file ,location)))
|
|
|
|
|
|
,@body))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(defun package--archive-file-exists-p (location file)
|
|
|
|
|
|
(let ((http (string-match "\\`https?:" location)))
|
|
|
|
|
|
(if http
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(require 'url-http)
|
|
|
|
|
|
(url-http-file-exists-p (concat location file)))
|
|
|
|
|
|
(file-exists-p (expand-file-name file location)))))
|
|
|
|
|
|
|
|
|
|
|
|
(declare-function epg-make-context "epg"
|
|
|
|
|
|
(&optional protocol armor textmode include-certs
|
|
|
|
|
|
cipher-algorithm
|
|
|
|
|
|
digest-algorithm
|
|
|
|
|
|
compress-algorithm))
|
|
|
|
|
|
(declare-function epg-verify-string "epg" (context signature
|
|
|
|
|
|
&optional signed-text))
|
|
|
|
|
|
(declare-function epg-context-result-for "epg" (context name))
|
|
|
|
|
|
(declare-function epg-signature-status "epg" (signature))
|
|
|
|
|
|
(declare-function epg-signature-to-string "epg" (signature))
|
|
|
|
|
|
|
2014-11-06 03:44:52 +00:00
|
|
|
|
(defun package--display-verify-error (context sig-file)
|
|
|
|
|
|
(unless (equal (epg-context-error-output context) "")
|
|
|
|
|
|
(with-output-to-temp-buffer "*Error*"
|
|
|
|
|
|
(with-current-buffer standard-output
|
|
|
|
|
|
(if (epg-context-result-for context 'verify)
|
|
|
|
|
|
(insert (format "Failed to verify signature %s:\n" sig-file)
|
|
|
|
|
|
(mapconcat #'epg-signature-to-string
|
|
|
|
|
|
(epg-context-result-for context 'verify)
|
|
|
|
|
|
"\n"))
|
|
|
|
|
|
(insert (format "Error while verifying signature %s:\n" sig-file)))
|
|
|
|
|
|
(insert "\nCommand output:\n" (epg-context-error-output context))))))
|
|
|
|
|
|
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(defun package--check-signature (location file)
|
|
|
|
|
|
"Check signature of the current buffer.
|
|
|
|
|
|
GnuPG keyring is located under \"gnupg\" in `package-user-dir'."
|
2014-01-08 14:19:27 +00:00
|
|
|
|
(let* ((context (epg-make-context 'OpenPGP))
|
|
|
|
|
|
(homedir (expand-file-name "gnupg" package-user-dir))
|
|
|
|
|
|
(sig-file (concat file ".sig"))
|
|
|
|
|
|
(sig-content (package--with-work-buffer location sig-file
|
|
|
|
|
|
(buffer-string))))
|
* lisp/epg.el: Use cl-defstruct.
(epg-make-data-from-file, epg-make-data-from-string, epg-data-file)
(epg-data-string): Define via cl-defstruct.
(epg--gv-nreverse): New macro.
(epg-context--make): New constructor (provided vi cl-defstruct).
(epg-make-context): Rewrite using it.
(epg-context-protocol, epg-context-program)
(epg-context-home-directory, epg-context-armor, epg-context-textmode)
(epg-context-include-certs, epg-context-cipher-algorithm)
(epg-context-digest-algorithm, epg-context-compress-algorithm)
(epg-context-passphrase-callback, epg-context-progress-callback)
(epg-context-signers, epg-context-sig-notations, epg-context-process)
(epg-context-output-file, epg-context-result, epg-context-operation)
(epg-context-pinentry-mode): Define using cl-defstruct.
(epg-context-set-protocol, epg-context-set-program)
(epg-context-set-include-certs, epg-context-set-cipher-algorithm)
(epg-context-set-digest-algorithm)
(epg-context-set-sig-notations, epg-context-set-process)
(epg-context-set-output-file, epg-context-set-result)
(epg-context-set-operation, epg-context-set-pinentry-mode)
(epg-context-set-compress-algorithm): Remove. Use setf instead.
(epg-context-set-armor, epg-context-set-textmode)
(epg-context-set-signers): Redefine using setf
and declare as obsolete.
(epg-context-set-passphrase-callback)
(epg-context-set-progress-callback): Use setf.
(epg-signature-notations): Rename from epg-sig-notations.
(epg-make-signature, epg-signature-status, epg-signature-key-id)
(epg-signature-validity, epg-signature-fingerprint)
(epg-signature-creation-time, epg-signature-expiration-time)
(epg-signature-pubkey-algorithm, epg-signature-digest-algorithm)
(epg-signature-class, epg-signature-version): Define vi cl-defstruct.
(epg-signature-set-status, epg-signature-set-key-id)
(epg-signature-set-validity, epg-signature-set-fingerprint)
(epg-signature-set-creation-time, epg-signature-set-expiration-time)
(epg-signature-set-pubkey-algorithm)
(epg-signature-set-digest-algorithm, epg-signature-set-class)
(epg-signature-set-version, epg-signature-set-notations): Remove.
Use setf instead.
(epg-make-new-signature, epg-new-signature-type)
(epg-new-signature-pubkey-algorithm)
(epg-new-signature-digest-algorithm, epg-new-signature-class)
(epg-new-signature-creation-time, epg-new-signature-fingerprint):
Define using cl-defstruct.
(epg-make-key, epg-key-owner-trust, epg-key-sub-key-list)
(epg-key-user-id-list): Define using cl-defstruct.
(epg-key-set-sub-key-list, epg-key-set-user-id-list): Remove.
Use setf instead.
(epg-make-sub-key, epg-sub-key-validity, epg-sub-key-capability)
(epg-sub-key-secret-p, epg-sub-key-algorithm, epg-sub-key-length)
(epg-sub-key-id, epg-sub-key-creation-time)
(epg-sub-key-expiration-time, epg-sub-key-fingerprint): Define using
cl-defstruct.
(epg-sub-key-set-fingerprint): Remove. Use setf instead.
(epg-make-user-id, epg-user-id-validity, epg-user-id-string)
(epg-user-id-signature-list): Define using cl-defstruct.
(epg-user-id-set-signature-list): Remove. Use setf instead.
(epg-make-key-signature, epg-key-signature-validity)
(epg-key-signature-pubkey-algorithm, epg-key-signature-key-id)
(epg-key-signature-creation-time, epg-key-signature-expiration-time)
(epg-key-signature-user-id, epg-key-signature-class)
(epg-key-signature-exportable-p): Define using cl-defstruct.
(epg-make-sig-notation, epg-sig-notation-name)
(epg-sig-notation-value, epg-sig-notation-human-readable)
(epg-sig-notation-critical): Define using cl-defstruct.
(epg-sig-notation-set-value): Remove. Use setf instead.
(epg-make-import-status, epg-import-status-fingerprint)
(epg-import-status-reason, epg-import-status-new)
(epg-import-status-user-id, epg-import-status-signature)
(epg-import-status-sub-key, epg-import-status-secret): Define using
cl-defstruct.
(epg-make-import-result, epg-import-result-considered)
(epg-import-result-no-user-id, epg-import-result-imported)
(epg-import-result-imported-rsa, epg-import-result-unchanged)
(epg-import-result-new-user-ids, epg-import-result-new-sub-keys)
(epg-import-result-new-signatures, epg-import-result-new-revocations)
(epg-import-result-secret-read, epg-import-result-secret-imported)
(epg-import-result-secret-unchanged, epg-import-result-not-imported)
(epg-import-result-imports): Define using cl-defstruct.
* lisp/emacs-lisp/package.el: Require EPG during macroexpansion.
(package--check-signature, package-import-keyring): Use setf instead of
epg-context-set-home-directory.
2014-10-23 21:38:56 +00:00
|
|
|
|
(setf (epg-context-home-directory context) homedir)
|
2014-11-06 03:44:52 +00:00
|
|
|
|
(condition-case error
|
|
|
|
|
|
(epg-verify-string context sig-content (buffer-string))
|
|
|
|
|
|
(error
|
|
|
|
|
|
(package--display-verify-error context sig-file)
|
|
|
|
|
|
(signal (car error) (cdr error))))
|
2014-06-26 07:10:22 +00:00
|
|
|
|
(let (good-signatures had-fatal-error)
|
|
|
|
|
|
;; The .sig file may contain multiple signatures. Success if one
|
|
|
|
|
|
;; of the signatures is good.
|
|
|
|
|
|
(dolist (sig (epg-context-result-for context 'verify))
|
|
|
|
|
|
(if (eq (epg-signature-status sig) 'good)
|
|
|
|
|
|
(push sig good-signatures)
|
|
|
|
|
|
;; If package-check-signature is allow-unsigned, don't
|
|
|
|
|
|
;; signal error when we can't verify signature because of
|
|
|
|
|
|
;; missing public key. Other errors are still treated as
|
|
|
|
|
|
;; fatal (bug#17625).
|
|
|
|
|
|
(unless (and (eq package-check-signature 'allow-unsigned)
|
|
|
|
|
|
(eq (epg-signature-status sig) 'no-pubkey))
|
|
|
|
|
|
(setq had-fatal-error t))))
|
2014-11-06 03:44:52 +00:00
|
|
|
|
(when (and (null good-signatures) had-fatal-error)
|
|
|
|
|
|
(package--display-verify-error context sig-file)
|
2014-11-06 06:29:24 +00:00
|
|
|
|
(error "Failed to verify signature %s" sig-file))
|
2014-11-06 03:44:52 +00:00
|
|
|
|
good-signatures)))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(defun package-install-from-archive (pkg-desc)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Download and install a tar package."
|
2015-01-14 14:57:32 +00:00
|
|
|
|
;; This won't happen, unless the archive is doing something wrong.
|
|
|
|
|
|
(when (eq (package-desc-kind pkg-desc) 'dir)
|
|
|
|
|
|
(error "Can't install directory package from archive"))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(let* ((location (package-archive-base pkg-desc))
|
|
|
|
|
|
(file (concat (package-desc-full-name pkg-desc)
|
|
|
|
|
|
(package-desc-suffix pkg-desc)))
|
|
|
|
|
|
(sig-file (concat file ".sig"))
|
|
|
|
|
|
good-signatures pkg-descs)
|
2011-03-06 03:22:06 +00:00
|
|
|
|
(package--with-work-buffer location file
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(if (and package-check-signature
|
|
|
|
|
|
(not (member (package-desc-archive pkg-desc)
|
|
|
|
|
|
package-unsigned-archives)))
|
|
|
|
|
|
(if (package--archive-file-exists-p location sig-file)
|
|
|
|
|
|
(setq good-signatures (package--check-signature location file))
|
|
|
|
|
|
(unless (eq package-check-signature 'allow-unsigned)
|
|
|
|
|
|
(error "Unsigned package: `%s'"
|
|
|
|
|
|
(package-desc-name pkg-desc)))))
|
|
|
|
|
|
(package-unpack pkg-desc))
|
|
|
|
|
|
;; Here the package has been installed successfully, mark it as
|
|
|
|
|
|
;; signed if appropriate.
|
|
|
|
|
|
(when good-signatures
|
|
|
|
|
|
;; Write out good signatures into NAME-VERSION.signed file.
|
|
|
|
|
|
(write-region (mapconcat #'epg-signature-to-string good-signatures "\n")
|
|
|
|
|
|
nil
|
|
|
|
|
|
(expand-file-name
|
|
|
|
|
|
(concat (package-desc-full-name pkg-desc)
|
|
|
|
|
|
".signed")
|
2014-01-22 19:22:45 +00:00
|
|
|
|
package-user-dir)
|
|
|
|
|
|
nil 'silent)
|
2013-10-03 07:11:27 +00:00
|
|
|
|
;; Update the old pkg-desc which will be shown on the description buffer.
|
|
|
|
|
|
(setf (package-desc-signed pkg-desc) t)
|
|
|
|
|
|
;; Update the new (activated) pkg-desc as well.
|
|
|
|
|
|
(setq pkg-descs (cdr (assq (package-desc-name pkg-desc) package-alist)))
|
|
|
|
|
|
(if pkg-descs
|
|
|
|
|
|
(setf (package-desc-signed (car pkg-descs)) t)))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-02-13 16:02:35 +00:00
|
|
|
|
(defvar package--initialized nil)
|
|
|
|
|
|
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(defun package-installed-p (package &optional min-version)
|
2011-04-22 02:35:48 +00:00
|
|
|
|
"Return true if PACKAGE, of MIN-VERSION or newer, is installed.
|
|
|
|
|
|
MIN-VERSION should be a version list."
|
2012-10-25 12:38:09 +00:00
|
|
|
|
(unless package--initialized (error "package.el is not yet initialized!"))
|
2014-01-08 17:39:31 +00:00
|
|
|
|
(or
|
|
|
|
|
|
(let ((pkg-descs (cdr (assq package package-alist))))
|
|
|
|
|
|
(and pkg-descs
|
|
|
|
|
|
(version-list-<= min-version
|
|
|
|
|
|
(package-desc-version (car pkg-descs)))))
|
|
|
|
|
|
;; Also check built-in packages.
|
|
|
|
|
|
(package-built-in-p package min-version)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2014-05-06 18:11:16 +00:00
|
|
|
|
(defun package-compute-transaction (packages requirements &optional seen)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
"Return a list of packages to be installed, including PACKAGES.
|
|
|
|
|
|
PACKAGES should be a list of `package-desc'.
|
2010-08-29 22:15:09 +00:00
|
|
|
|
|
|
|
|
|
|
REQUIREMENTS should be a list of additional requirements; each
|
2011-04-22 02:35:48 +00:00
|
|
|
|
element in this list should have the form (PACKAGE VERSION-LIST),
|
|
|
|
|
|
where PACKAGE is a package name and VERSION-LIST is the required
|
|
|
|
|
|
version of that package.
|
2010-08-29 22:15:09 +00:00
|
|
|
|
|
|
|
|
|
|
This function recursively computes the requirements of the
|
|
|
|
|
|
packages in REQUIREMENTS, and returns a list of all the packages
|
|
|
|
|
|
that must be installed. Packages that are already installed are
|
2014-05-06 18:11:16 +00:00
|
|
|
|
not included in this list.
|
|
|
|
|
|
|
|
|
|
|
|
SEEN is used internally to detect infinite recursion."
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
;; FIXME: We really should use backtracking to explore the whole
|
|
|
|
|
|
;; search space (e.g. if foo require bar-1.3, and bar-1.4 requires toto-1.1
|
|
|
|
|
|
;; whereas bar-1.3 requires toto-1.0 and the user has put a hold on toto-1.0:
|
|
|
|
|
|
;; the current code might fail to see that it could install foo by using the
|
|
|
|
|
|
;; older bar-1.3).
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(dolist (elt requirements)
|
|
|
|
|
|
(let* ((next-pkg (car elt))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(next-version (cadr elt))
|
|
|
|
|
|
(already ()))
|
|
|
|
|
|
(dolist (pkg packages)
|
|
|
|
|
|
(if (eq next-pkg (package-desc-name pkg))
|
|
|
|
|
|
(setq already pkg)))
|
2014-05-06 18:11:16 +00:00
|
|
|
|
(when already
|
2014-03-21 06:06:52 +00:00
|
|
|
|
(if (version-list-<= next-version (package-desc-version already))
|
2014-05-06 18:11:16 +00:00
|
|
|
|
;; `next-pkg' is already in `packages', but its position there
|
|
|
|
|
|
;; means it might be installed too late: remove it from there, so
|
|
|
|
|
|
;; we re-add it (along with its dependencies) at an earlier place
|
|
|
|
|
|
;; below (bug#16994).
|
|
|
|
|
|
(if (memq already seen) ;Avoid inf-loop on dependency cycles.
|
|
|
|
|
|
(message "Dependency cycle going through %S"
|
|
|
|
|
|
(package-desc-full-name already))
|
|
|
|
|
|
(setq packages (delq already packages))
|
|
|
|
|
|
(setq already nil))
|
2014-03-21 06:06:52 +00:00
|
|
|
|
(error "Need package `%s-%s', but only %s is being installed"
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
next-pkg (package-version-join next-version)
|
|
|
|
|
|
(package-version-join (package-desc-version already)))))
|
2014-05-06 18:11:16 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
(already nil)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
((package-installed-p next-pkg next-version) nil)
|
|
|
|
|
|
|
|
|
|
|
|
(t
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;; A package is required, but not installed. It might also be
|
|
|
|
|
|
;; blocked via `package-load-list'.
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(let ((pkg-descs (cdr (assq next-pkg package-archive-contents)))
|
|
|
|
|
|
(found nil)
|
|
|
|
|
|
(problem nil))
|
|
|
|
|
|
(while (and pkg-descs (not found))
|
|
|
|
|
|
(let* ((pkg-desc (pop pkg-descs))
|
|
|
|
|
|
(version (package-desc-version pkg-desc))
|
|
|
|
|
|
(disabled (package-disabled-p next-pkg version)))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((version-list-< version next-version)
|
|
|
|
|
|
(error
|
|
|
|
|
|
"Need package `%s-%s', but only %s is available"
|
|
|
|
|
|
next-pkg (package-version-join next-version)
|
|
|
|
|
|
(package-version-join version)))
|
|
|
|
|
|
(disabled
|
|
|
|
|
|
(unless problem
|
|
|
|
|
|
(setq problem
|
|
|
|
|
|
(if (stringp disabled)
|
|
|
|
|
|
(format "Package `%s' held at version %s, \
|
2010-06-17 02:08:10 +00:00
|
|
|
|
but version %s required"
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
next-pkg disabled
|
|
|
|
|
|
(package-version-join next-version))
|
|
|
|
|
|
(format "Required package '%s' is disabled"
|
|
|
|
|
|
next-pkg)))))
|
|
|
|
|
|
(t (setq found pkg-desc)))))
|
|
|
|
|
|
(unless found
|
|
|
|
|
|
(if problem
|
2014-05-06 18:11:16 +00:00
|
|
|
|
(error "%s" problem)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(error "Package `%s-%s' is unavailable"
|
|
|
|
|
|
next-pkg (package-version-join next-version))))
|
|
|
|
|
|
(setq packages
|
|
|
|
|
|
(package-compute-transaction (cons found packages)
|
2014-05-06 18:11:16 +00:00
|
|
|
|
(package-desc-reqs found)
|
|
|
|
|
|
(cons found seen))))))))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
packages)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-read-from-string (str)
|
|
|
|
|
|
"Read a Lisp expression from STR.
|
|
|
|
|
|
Signal an error if the entire string was not used."
|
|
|
|
|
|
(let* ((read-data (read-from-string str))
|
2010-08-31 01:53:46 +00:00
|
|
|
|
(more-left
|
|
|
|
|
|
(condition-case nil
|
|
|
|
|
|
;; The call to `ignore' suppresses a compiler warning.
|
|
|
|
|
|
(progn (ignore (read-from-string
|
|
|
|
|
|
(substring str (cdr read-data))))
|
|
|
|
|
|
t)
|
|
|
|
|
|
(end-of-file nil))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(if more-left
|
|
|
|
|
|
(error "Can't read whole string")
|
|
|
|
|
|
(car read-data))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--read-archive-file (file)
|
|
|
|
|
|
"Re-read archive file FILE, if it exists.
|
|
|
|
|
|
Will return the data from the file, or nil if the file does not exist.
|
|
|
|
|
|
Will throw an error if the archive version is too new."
|
|
|
|
|
|
(let ((filename (expand-file-name file package-user-dir)))
|
2010-08-31 01:53:46 +00:00
|
|
|
|
(when (file-exists-p filename)
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(insert-file-contents-literally filename)
|
|
|
|
|
|
(let ((contents (read (current-buffer))))
|
|
|
|
|
|
(if (> (car contents) package-archive-version)
|
|
|
|
|
|
(error "Package archive version %d is higher than %d"
|
|
|
|
|
|
(car contents) package-archive-version))
|
|
|
|
|
|
(cdr contents))))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(defun package-read-all-archive-contents ()
|
2010-08-29 22:15:09 +00:00
|
|
|
|
"Re-read `archive-contents', if it exists.
|
|
|
|
|
|
If successful, set `package-archive-contents'."
|
2010-11-10 21:35:06 +00:00
|
|
|
|
(setq package-archive-contents nil)
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(dolist (archive package-archives)
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(package-read-archive-contents (car archive))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(defun package-read-archive-contents (archive)
|
2010-08-31 01:53:46 +00:00
|
|
|
|
"Re-read archive contents for ARCHIVE.
|
|
|
|
|
|
If successful, set the variable `package-archive-contents'.
|
2010-07-28 18:54:42 +00:00
|
|
|
|
If the archive version is too new, signal an error."
|
2010-08-31 01:53:46 +00:00
|
|
|
|
;; Version 1 of 'archive-contents' is identical to our internal
|
|
|
|
|
|
;; representation.
|
2013-06-15 15:36:11 +00:00
|
|
|
|
(let* ((contents-file (format "archives/%s/archive-contents" archive))
|
|
|
|
|
|
(contents (package--read-archive-file contents-file)))
|
|
|
|
|
|
(when contents
|
2010-08-31 01:53:46 +00:00
|
|
|
|
(dolist (package contents)
|
|
|
|
|
|
(package--add-to-archive-contents package archive)))))
|
2010-07-28 18:54:42 +00:00
|
|
|
|
|
2013-06-12 00:49:33 +00:00
|
|
|
|
;; Package descriptor objects used inside the "archive-contents" file.
|
|
|
|
|
|
;; Changing this defstruct implies changing the format of the
|
|
|
|
|
|
;; "archive-contents" files.
|
|
|
|
|
|
(cl-defstruct (package--ac-desc
|
2013-09-29 19:41:00 +00:00
|
|
|
|
(:constructor package-make-ac-desc (version reqs summary kind extras))
|
2013-06-12 00:49:33 +00:00
|
|
|
|
(:copier nil)
|
|
|
|
|
|
(:type vector))
|
2013-09-29 19:41:00 +00:00
|
|
|
|
version reqs summary kind extras)
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(defun package--add-to-archive-contents (package archive)
|
|
|
|
|
|
"Add the PACKAGE from the given ARCHIVE if necessary.
|
2013-06-12 00:49:33 +00:00
|
|
|
|
PACKAGE should have the form (NAME . PACKAGE--AC-DESC).
|
|
|
|
|
|
Also, add the originating archive to the `package-desc' structure."
|
|
|
|
|
|
(let* ((name (car package))
|
2013-06-15 15:36:11 +00:00
|
|
|
|
(version (package--ac-desc-version (cdr package)))
|
2013-06-12 00:49:33 +00:00
|
|
|
|
(pkg-desc
|
|
|
|
|
|
(package-desc-create
|
|
|
|
|
|
:name name
|
2013-06-15 15:36:11 +00:00
|
|
|
|
:version version
|
2013-06-12 00:49:33 +00:00
|
|
|
|
:reqs (package--ac-desc-reqs (cdr package))
|
|
|
|
|
|
:summary (package--ac-desc-summary (cdr package))
|
|
|
|
|
|
:kind (package--ac-desc-kind (cdr package))
|
2013-09-29 19:41:00 +00:00
|
|
|
|
:archive archive
|
|
|
|
|
|
:extras (and (> (length (cdr package)) 4)
|
|
|
|
|
|
;; Older archive-contents files have only 4
|
|
|
|
|
|
;; elements here.
|
|
|
|
|
|
(package--ac-desc-extras (cdr package)))))
|
2013-04-04 01:51:33 +00:00
|
|
|
|
(pinned-to-archive (assoc name package-pinned-packages)))
|
2014-12-07 21:28:38 +00:00
|
|
|
|
;; Skip entirely if pinned to another archive.
|
|
|
|
|
|
(when (not (and pinned-to-archive
|
|
|
|
|
|
(not (equal (cdr pinned-to-archive) archive))))
|
|
|
|
|
|
(setq package-archive-contents
|
2015-01-18 12:13:07 +00:00
|
|
|
|
(package--append-to-alist pkg-desc package-archive-contents)))))
|
2014-12-07 21:28:38 +00:00
|
|
|
|
|
2015-01-18 12:13:07 +00:00
|
|
|
|
(defun package--append-to-alist (pkg-desc alist)
|
2015-01-18 12:38:19 +00:00
|
|
|
|
"Append an entry for PKG-DESC to the start of ALIST and return it.
|
|
|
|
|
|
This entry takes the form (`package-desc-name' PKG-DESC).
|
2014-12-07 21:28:38 +00:00
|
|
|
|
|
2015-01-18 12:38:19 +00:00
|
|
|
|
If ALIST already has an entry with this name, destructively add
|
|
|
|
|
|
PKG-DESC to the cdr of this entry instead, sorted by version
|
|
|
|
|
|
number."
|
2014-12-07 21:28:38 +00:00
|
|
|
|
(let* ((name (package-desc-name pkg-desc))
|
|
|
|
|
|
(priority-version (package-desc-priority-version pkg-desc))
|
|
|
|
|
|
(existing-packages (assq name alist)))
|
|
|
|
|
|
(if (not existing-packages)
|
|
|
|
|
|
(cons (list name pkg-desc)
|
|
|
|
|
|
alist)
|
|
|
|
|
|
(while (if (and (cdr existing-packages)
|
|
|
|
|
|
(version-list-< priority-version
|
|
|
|
|
|
(package-desc-priority-version
|
|
|
|
|
|
(cadr existing-packages))))
|
|
|
|
|
|
(setq existing-packages (cdr existing-packages))
|
|
|
|
|
|
(push pkg-desc (cdr existing-packages))
|
|
|
|
|
|
nil))
|
|
|
|
|
|
alist)))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-download-transaction (packages)
|
|
|
|
|
|
"Download and install all the packages in PACKAGES.
|
|
|
|
|
|
PACKAGES should be a list of package-desc.
|
2010-08-29 22:15:09 +00:00
|
|
|
|
This function assumes that all package requirements in
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
PACKAGES are satisfied, i.e. that PACKAGES is computed
|
2010-08-29 22:15:09 +00:00
|
|
|
|
using `package-compute-transaction'."
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(mapc #'package-install-from-archive packages))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(defun package-install (pkg &optional arg)
|
2013-06-22 20:09:19 +00:00
|
|
|
|
"Install the package PKG.
|
|
|
|
|
|
PKG can be a package-desc or the package name of one the available packages
|
2015-02-01 21:45:47 +00:00
|
|
|
|
in an archive in `package-archives'. Interactively, prompt for its name
|
|
|
|
|
|
and add PKG to `package-selected-packages'.
|
|
|
|
|
|
When called from lisp you will have to use ARG if you want to
|
|
|
|
|
|
simulate an interactive call to add PKG to `package-selected-packages'."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(interactive
|
2011-08-26 15:53:50 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
;; Initialize the package system to get the list of package
|
|
|
|
|
|
;; symbols for completion.
|
|
|
|
|
|
(unless package--initialized
|
|
|
|
|
|
(package-initialize t))
|
2012-01-28 09:49:29 +00:00
|
|
|
|
(unless package-archive-contents
|
|
|
|
|
|
(package-refresh-contents))
|
2013-06-22 20:09:19 +00:00
|
|
|
|
(list (intern (completing-read
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
"Install package: "
|
2014-03-24 22:38:06 +00:00
|
|
|
|
(delq nil
|
|
|
|
|
|
(mapcar (lambda (elt)
|
|
|
|
|
|
(unless (package-installed-p (car elt))
|
|
|
|
|
|
(symbol-name (car elt))))
|
|
|
|
|
|
package-archive-contents))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
nil t))
|
|
|
|
|
|
"\p")))
|
|
|
|
|
|
(when (and arg (not (memq pkg package-selected-packages)))
|
|
|
|
|
|
(customize-save-variable 'package-selected-packages
|
|
|
|
|
|
(cons pkg package-selected-packages)))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(package-download-transaction
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(if (package-desc-p pkg)
|
|
|
|
|
|
(package-compute-transaction (list pkg)
|
|
|
|
|
|
(package-desc-reqs pkg))
|
|
|
|
|
|
(package-compute-transaction ()
|
|
|
|
|
|
(list (list pkg))))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-02-01 21:45:47 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun package-reinstall (pkg)
|
|
|
|
|
|
"Reinstall package PKG."
|
|
|
|
|
|
(interactive (list (intern (completing-read
|
|
|
|
|
|
"Reinstall package: "
|
|
|
|
|
|
(mapcar 'symbol-name
|
|
|
|
|
|
(mapcar 'car package-alist))))))
|
|
|
|
|
|
(package-delete (cadr (assq pkg package-alist)) t)
|
|
|
|
|
|
(package-install pkg))
|
|
|
|
|
|
|
2011-03-10 21:51:26 +00:00
|
|
|
|
(defun package-strip-rcs-id (str)
|
|
|
|
|
|
"Strip RCS version ID from the version string STR.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
If the result looks like a dotted numeric version, return it.
|
|
|
|
|
|
Otherwise return nil."
|
2011-03-10 21:51:26 +00:00
|
|
|
|
(when str
|
|
|
|
|
|
(when (string-match "\\`[ \t]*[$]Revision:[ \t]+" str)
|
|
|
|
|
|
(setq str (substring str (match-end 0))))
|
|
|
|
|
|
(condition-case nil
|
|
|
|
|
|
(if (version-to-list str)
|
|
|
|
|
|
str)
|
|
|
|
|
|
(error nil))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-10-30 06:29:51 +00:00
|
|
|
|
(declare-function lm-homepage "lisp-mnt" (&optional file))
|
|
|
|
|
|
|
2013-12-14 16:02:39 +00:00
|
|
|
|
(defun package--prepare-dependencies (deps)
|
|
|
|
|
|
"Turn DEPS into an acceptable list of dependencies.
|
|
|
|
|
|
|
|
|
|
|
|
Any parts missing a version string get a default version string
|
|
|
|
|
|
of \"0\" (meaning any version) and an appropriate level of lists
|
|
|
|
|
|
is wrapped around any parts requiring it."
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((not (listp deps))
|
|
|
|
|
|
(error "Invalid requirement specifier: %S" deps))
|
|
|
|
|
|
(t (mapcar (lambda (dep)
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((symbolp dep) `(,dep "0"))
|
|
|
|
|
|
((stringp dep)
|
|
|
|
|
|
(error "Invalid requirement specifier: %S" dep))
|
2014-03-13 13:34:01 +00:00
|
|
|
|
((and (listp dep) (null (cdr dep)))
|
|
|
|
|
|
(list (car dep) "0"))
|
2013-12-14 16:02:39 +00:00
|
|
|
|
(t dep)))
|
|
|
|
|
|
deps))))
|
|
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(defun package-buffer-info ()
|
2013-06-12 00:49:33 +00:00
|
|
|
|
"Return a `package-desc' describing the package in the current buffer.
|
2010-08-31 01:53:46 +00:00
|
|
|
|
|
|
|
|
|
|
If the buffer does not contain a conforming package, signal an
|
|
|
|
|
|
error. If there is a package, narrow the buffer to the file's
|
|
|
|
|
|
boundaries."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(goto-char (point-min))
|
2012-05-05 05:13:27 +00:00
|
|
|
|
(unless (re-search-forward "^;;; \\([^ ]*\\)\\.el ---[ \t]*\\(.*?\\)[ \t]*\\(-\\*-.*-\\*-[ \t]*\\)?$" nil t)
|
2013-08-23 16:50:39 +00:00
|
|
|
|
(error "Package lacks a file header"))
|
2010-08-31 01:53:46 +00:00
|
|
|
|
(let ((file-name (match-string-no-properties 1))
|
|
|
|
|
|
(desc (match-string-no-properties 2))
|
|
|
|
|
|
(start (line-beginning-position)))
|
|
|
|
|
|
(unless (search-forward (concat ";;; " file-name ".el ends here"))
|
|
|
|
|
|
(error "Package lacks a terminating comment"))
|
|
|
|
|
|
;; Try to include a trailing newline.
|
|
|
|
|
|
(forward-line)
|
|
|
|
|
|
(narrow-to-region start (point))
|
|
|
|
|
|
(require 'lisp-mnt)
|
|
|
|
|
|
;; Use some headers we've invented to drive the process.
|
|
|
|
|
|
(let* ((requires-str (lm-header "package-requires"))
|
|
|
|
|
|
;; Prefer Package-Version; if defined, the package author
|
|
|
|
|
|
;; probably wants us to use it. Otherwise try Version.
|
|
|
|
|
|
(pkg-version
|
|
|
|
|
|
(or (package-strip-rcs-id (lm-header "package-version"))
|
2013-09-29 19:41:00 +00:00
|
|
|
|
(package-strip-rcs-id (lm-header "version"))))
|
|
|
|
|
|
(homepage (lm-homepage)))
|
2010-08-31 01:53:46 +00:00
|
|
|
|
(unless pkg-version
|
|
|
|
|
|
(error
|
|
|
|
|
|
"Package lacks a \"Version\" or \"Package-Version\" header"))
|
2013-06-12 00:49:33 +00:00
|
|
|
|
(package-desc-from-define
|
|
|
|
|
|
file-name pkg-version desc
|
2013-12-14 16:02:39 +00:00
|
|
|
|
(if requires-str
|
|
|
|
|
|
(package--prepare-dependencies
|
|
|
|
|
|
(package-read-from-string requires-str)))
|
2013-09-29 19:41:00 +00:00
|
|
|
|
:kind 'single
|
2013-10-01 01:38:37 +00:00
|
|
|
|
:url homepage))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-06-21 15:30:53 +00:00
|
|
|
|
(declare-function tar-get-file-descriptor "tar-mode" (file))
|
|
|
|
|
|
(declare-function tar--extract "tar-mode" (descriptor))
|
|
|
|
|
|
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(defun package-tar-file-info ()
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Find package information for a tar file.
|
2013-06-21 03:08:47 +00:00
|
|
|
|
The return result is a `package-desc'."
|
|
|
|
|
|
(cl-assert (derived-mode-p 'tar-mode))
|
|
|
|
|
|
(let* ((dir-name (file-name-directory
|
|
|
|
|
|
(tar-header-name (car tar-parse-info))))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(desc-file (package--description-file dir-name))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(tar-desc (tar-get-file-descriptor (concat dir-name desc-file))))
|
|
|
|
|
|
(unless tar-desc
|
|
|
|
|
|
(error "No package descriptor file found"))
|
|
|
|
|
|
(with-current-buffer (tar--extract tar-desc)
|
|
|
|
|
|
(unwind-protect
|
2015-01-13 01:24:22 +00:00
|
|
|
|
(package--read-pkg-desc 'tar)
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(kill-buffer (current-buffer))))))
|
2013-06-12 00:49:33 +00:00
|
|
|
|
|
2015-01-13 01:26:58 +00:00
|
|
|
|
(defun package-dir-info ()
|
|
|
|
|
|
"Find package information for a directory.
|
|
|
|
|
|
The return result is a `package-desc'."
|
|
|
|
|
|
(cl-assert (derived-mode-p 'dired-mode))
|
|
|
|
|
|
(let* ((desc-file (package--description-file default-directory)))
|
|
|
|
|
|
(if (file-readable-p desc-file)
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(insert-file-contents desc-file)
|
|
|
|
|
|
(package--read-pkg-desc 'dir))
|
|
|
|
|
|
(let ((files (directory-files default-directory t "\\.el\\'" t))
|
|
|
|
|
|
info)
|
|
|
|
|
|
(while files
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(insert-file-contents (pop files))
|
2015-01-21 00:20:22 +00:00
|
|
|
|
;; When we find the file with the data,
|
|
|
|
|
|
(when (setq info (ignore-errors (package-buffer-info)))
|
|
|
|
|
|
;; stop looping,
|
|
|
|
|
|
(setq files nil)
|
|
|
|
|
|
;; set the 'dir kind,
|
|
|
|
|
|
(setf (package-desc-kind info) 'dir))))
|
|
|
|
|
|
;; and return the info.
|
|
|
|
|
|
info))))
|
2015-01-13 01:26:58 +00:00
|
|
|
|
|
2015-01-13 01:24:22 +00:00
|
|
|
|
(defun package--read-pkg-desc (kind)
|
|
|
|
|
|
"Read a `define-package' form in current buffer.
|
|
|
|
|
|
Return the pkg-desc, with desc-kind set to KIND."
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(unwind-protect
|
|
|
|
|
|
(let* ((pkg-def-parsed (read (current-buffer)))
|
|
|
|
|
|
(pkg-desc
|
|
|
|
|
|
(if (not (eq (car pkg-def-parsed) 'define-package))
|
|
|
|
|
|
(error "Can't find define-package in %s"
|
|
|
|
|
|
(tar-header-name tar-desc))
|
|
|
|
|
|
(apply #'package-desc-from-define
|
|
|
|
|
|
(append (cdr pkg-def-parsed))))))
|
|
|
|
|
|
(setf (package-desc-kind pkg-desc) kind)
|
|
|
|
|
|
pkg-desc)))
|
|
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-08-31 01:53:46 +00:00
|
|
|
|
;;;###autoload
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(defun package-install-from-buffer ()
|
2010-08-31 01:53:46 +00:00
|
|
|
|
"Install a package from the current buffer.
|
2015-01-13 01:35:46 +00:00
|
|
|
|
The current buffer is assumed to be a single .el or .tar file or
|
|
|
|
|
|
a directory. These must follow the packaging guidelines (see
|
|
|
|
|
|
info node `(elisp)Packaging').
|
|
|
|
|
|
|
|
|
|
|
|
Specially, if current buffer is a directory, the -pkg.el
|
|
|
|
|
|
description file is not mandatory, in which case the information
|
|
|
|
|
|
is derived from the main .el file in the directory.
|
|
|
|
|
|
|
2013-06-21 03:08:47 +00:00
|
|
|
|
Downloads and installs required packages as needed."
|
|
|
|
|
|
(interactive)
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(let* ((pkg-desc
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((derived-mode-p 'dired-mode)
|
|
|
|
|
|
;; This is the only way a package-desc object with a `dir'
|
|
|
|
|
|
;; desc-kind can be created. Such packages can't be
|
|
|
|
|
|
;; uploaded or installed from archives, they can only be
|
|
|
|
|
|
;; installed from local buffers or directories.
|
|
|
|
|
|
(package-dir-info))
|
|
|
|
|
|
((derived-mode-p 'tar-mode)
|
|
|
|
|
|
(package-tar-file-info))
|
|
|
|
|
|
(t
|
|
|
|
|
|
(package-buffer-info))))
|
|
|
|
|
|
(name (package-desc-name pkg-desc)))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
;; Download and install the dependencies.
|
|
|
|
|
|
(let* ((requires (package-desc-reqs pkg-desc))
|
|
|
|
|
|
(transaction (package-compute-transaction nil requires)))
|
|
|
|
|
|
(package-download-transaction transaction))
|
|
|
|
|
|
;; Install the package itself.
|
|
|
|
|
|
(package-unpack pkg-desc)
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(unless (memq name package-selected-packages)
|
|
|
|
|
|
(push name package-selected-packages)
|
|
|
|
|
|
(customize-save-variable 'package-selected-packages
|
|
|
|
|
|
package-selected-packages))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
pkg-desc))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun package-install-file (file)
|
|
|
|
|
|
"Install a package from a file.
|
|
|
|
|
|
The file can either be a tar file or an Emacs Lisp file."
|
|
|
|
|
|
(interactive "fPackage file name: ")
|
|
|
|
|
|
(with-temp-buffer
|
2015-01-13 02:03:59 +00:00
|
|
|
|
(if (file-directory-p file)
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(setq default-directory file)
|
|
|
|
|
|
(dired-mode))
|
|
|
|
|
|
(insert-file-contents-literally file)
|
|
|
|
|
|
(when (string-match "\\.tar\\'" file) (tar-mode)))
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(package-install-from-buffer)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(defun package--get-deps (pkg &optional only)
|
|
|
|
|
|
(let* ((pkg-desc (cadr (assq pkg package-alist)))
|
|
|
|
|
|
(direct-deps (cl-loop for p in (package-desc-reqs pkg-desc)
|
|
|
|
|
|
for name = (car p)
|
|
|
|
|
|
when (assq name package-alist)
|
|
|
|
|
|
collect name))
|
|
|
|
|
|
(indirect-deps (unless (eq only 'direct)
|
|
|
|
|
|
(cl-loop for p in direct-deps
|
|
|
|
|
|
for dep = (cadr (assq p package-alist))
|
|
|
|
|
|
when (and dep (assq p package-alist))
|
|
|
|
|
|
append (mapcar 'car
|
|
|
|
|
|
(package-desc-reqs
|
|
|
|
|
|
dep))))))
|
|
|
|
|
|
(cl-case only
|
|
|
|
|
|
(direct direct-deps)
|
|
|
|
|
|
(separate (list direct-deps indirect-deps))
|
|
|
|
|
|
(indirect indirect-deps)
|
|
|
|
|
|
(t (append direct-deps indirect-deps)))))
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun package-user-selected-packages-install ()
|
|
|
|
|
|
"Ensure packages in `package-selected-packages' are installed.
|
|
|
|
|
|
If some packages are not installed propose to install them."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(cl-loop for p in package-selected-packages
|
|
|
|
|
|
unless (package-installed-p p)
|
|
|
|
|
|
collect p into lst
|
|
|
|
|
|
finally
|
|
|
|
|
|
(if lst
|
|
|
|
|
|
(when (y-or-n-p
|
|
|
|
|
|
(format "%s packages will be installed:\n%s, proceed?"
|
|
|
|
|
|
(length lst)
|
|
|
|
|
|
(mapconcat 'symbol-name lst ", ")))
|
|
|
|
|
|
(mapc 'package-install lst))
|
|
|
|
|
|
(message "All your packages are already installed"))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-used-elsewhere-p (pkg-desc &optional pkg-list)
|
|
|
|
|
|
"Check in PKG-LIST if PKG-DESC is used elsewhere as dependency.
|
|
|
|
|
|
|
|
|
|
|
|
When not specified, PKG-LIST default to `package-alist'
|
|
|
|
|
|
with PKG-DESC entry removed.
|
|
|
|
|
|
Returns the first package found in PKG-LIST where PKG is used as dependency."
|
|
|
|
|
|
(unless (string= (package-desc-status pkg-desc) "obsolete")
|
|
|
|
|
|
(let ((pkg (package-desc-name pkg-desc)))
|
|
|
|
|
|
(cl-loop with alist = (or pkg-list
|
|
|
|
|
|
(remove (assq pkg package-alist)
|
|
|
|
|
|
package-alist))
|
|
|
|
|
|
for p in alist thereis
|
|
|
|
|
|
(and (memq pkg (mapcar 'car (package-desc-reqs (cadr p))))
|
|
|
|
|
|
(car p))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-delete (pkg-desc &optional force)
|
|
|
|
|
|
"Delete package PKG-DESC.
|
|
|
|
|
|
|
|
|
|
|
|
Argument PKG-DESC is a full description of package as vector.
|
|
|
|
|
|
When package is used elsewhere as dependency of another package,
|
|
|
|
|
|
refuse deleting it and return an error.
|
|
|
|
|
|
If FORCE is non--nil package will be deleted even if it is used
|
|
|
|
|
|
elsewhere."
|
|
|
|
|
|
(let ((dir (package-desc-dir pkg-desc))
|
|
|
|
|
|
(name (package-desc-name pkg-desc))
|
|
|
|
|
|
pkg-used-elsewhere-by)
|
|
|
|
|
|
(cond ((not (string-prefix-p (file-name-as-directory
|
|
|
|
|
|
(expand-file-name package-user-dir))
|
|
|
|
|
|
(expand-file-name dir)))
|
|
|
|
|
|
;; Don't delete "system" packages.
|
|
|
|
|
|
(error "Package `%s' is a system package, not deleting"
|
|
|
|
|
|
(package-desc-full-name pkg-desc)))
|
|
|
|
|
|
((and (null force)
|
|
|
|
|
|
(setq pkg-used-elsewhere-by
|
|
|
|
|
|
(package-used-elsewhere-p pkg-desc)))
|
|
|
|
|
|
;; Don't delete packages used as dependency elsewhere.
|
|
|
|
|
|
(error "Package `%s' is used by `%s' as dependency, not deleting"
|
|
|
|
|
|
(package-desc-full-name pkg-desc)
|
|
|
|
|
|
pkg-used-elsewhere-by))
|
|
|
|
|
|
(t
|
|
|
|
|
|
(delete-directory dir t t)
|
|
|
|
|
|
;; Remove NAME-VERSION.signed file.
|
|
|
|
|
|
(let ((signed-file (concat dir ".signed")))
|
|
|
|
|
|
(if (file-exists-p signed-file)
|
|
|
|
|
|
(delete-file signed-file)))
|
|
|
|
|
|
;; Update package-alist.
|
|
|
|
|
|
(let ((pkgs (assq name package-alist)))
|
|
|
|
|
|
(delete pkg-desc pkgs)
|
|
|
|
|
|
(unless (cdr pkgs)
|
|
|
|
|
|
(setq package-alist (delq pkgs package-alist))))
|
|
|
|
|
|
(message "Package `%s' deleted." (package-desc-full-name pkg-desc))))))
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun package-autoremove ()
|
|
|
|
|
|
"Remove packages that are no more needed.
|
|
|
|
|
|
|
|
|
|
|
|
Packages that are no more needed by other packages in
|
|
|
|
|
|
`package-selected-packages' and their dependencies
|
|
|
|
|
|
will be deleted."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(let* (old-direct
|
|
|
|
|
|
(needed (cl-loop for p in package-selected-packages
|
|
|
|
|
|
if (assq p package-alist)
|
|
|
|
|
|
append (package--get-deps p) into lst
|
|
|
|
|
|
else do (push p old-direct)
|
|
|
|
|
|
finally return lst)))
|
|
|
|
|
|
(cl-loop for p in (mapcar 'car package-alist)
|
|
|
|
|
|
unless (or (memq p needed)
|
|
|
|
|
|
(memq p package-selected-packages))
|
|
|
|
|
|
collect p into lst
|
|
|
|
|
|
finally (if lst
|
|
|
|
|
|
(when (y-or-n-p (format "%s packages will be deleted:\n%s, proceed? "
|
|
|
|
|
|
(length lst)
|
|
|
|
|
|
(mapconcat 'symbol-name lst ", ")))
|
|
|
|
|
|
(mapc (lambda (p)
|
|
|
|
|
|
(package-delete (cadr (assq p package-alist)) t))
|
|
|
|
|
|
lst))
|
|
|
|
|
|
(message "Nothing to autoremove")))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(defun package-archive-base (desc)
|
2010-07-28 18:54:42 +00:00
|
|
|
|
"Return the archive containing the package NAME."
|
2013-06-21 03:08:47 +00:00
|
|
|
|
(cdr (assoc (package-desc-archive desc) package-archives)))
|
2010-07-28 18:54:42 +00:00
|
|
|
|
|
2014-12-07 21:28:38 +00:00
|
|
|
|
(defun package-archive-priority (archive)
|
|
|
|
|
|
"Return the priority of ARCHIVE.
|
|
|
|
|
|
|
|
|
|
|
|
The archive priorities are specified in
|
|
|
|
|
|
`package-archive-priorities'. If not given there, the priority
|
|
|
|
|
|
defaults to 0."
|
|
|
|
|
|
(or (cdr (assoc archive package-archive-priorities))
|
|
|
|
|
|
0))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-desc-priority-version (pkg-desc)
|
|
|
|
|
|
"Return the version PKG-DESC with the archive priority prepended.
|
|
|
|
|
|
|
|
|
|
|
|
This allows for easy comparison of package versions from
|
|
|
|
|
|
different archives if archive priorities are meant to be taken in
|
|
|
|
|
|
consideration."
|
|
|
|
|
|
(cons (package-archive-priority
|
|
|
|
|
|
(package-desc-archive pkg-desc))
|
|
|
|
|
|
(package-desc-version pkg-desc)))
|
|
|
|
|
|
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(defun package--download-one-archive (archive file)
|
2011-03-06 03:22:06 +00:00
|
|
|
|
"Retrieve an archive file FILE from ARCHIVE, and cache it.
|
|
|
|
|
|
ARCHIVE should be a cons cell of the form (NAME . LOCATION),
|
|
|
|
|
|
similar to an entry in `package-alist'. Save the cached copy to
|
|
|
|
|
|
\"archives/NAME/archive-contents\" in `package-user-dir'."
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(let ((dir (expand-file-name (format "archives/%s" (car archive))
|
|
|
|
|
|
package-user-dir))
|
|
|
|
|
|
(sig-file (concat file ".sig"))
|
|
|
|
|
|
good-signatures)
|
2011-03-06 03:22:06 +00:00
|
|
|
|
(package--with-work-buffer (cdr archive) file
|
2013-10-03 07:11:27 +00:00
|
|
|
|
;; Check signature of archive-contents, if desired.
|
|
|
|
|
|
(if (and package-check-signature
|
|
|
|
|
|
(not (member archive package-unsigned-archives)))
|
|
|
|
|
|
(if (package--archive-file-exists-p (cdr archive) sig-file)
|
|
|
|
|
|
(setq good-signatures (package--check-signature (cdr archive)
|
|
|
|
|
|
file))
|
|
|
|
|
|
(unless (eq package-check-signature 'allow-unsigned)
|
|
|
|
|
|
(error "Unsigned archive `%s'"
|
|
|
|
|
|
(car archive)))))
|
2010-09-04 17:13:14 +00:00
|
|
|
|
;; Read the retrieved buffer to make sure it is valid (e.g. it
|
|
|
|
|
|
;; may fetch a URL redirect page).
|
2014-03-26 15:21:17 +00:00
|
|
|
|
(when (listp (read (current-buffer)))
|
2010-09-04 17:13:14 +00:00
|
|
|
|
(make-directory dir t)
|
2014-05-21 02:14:38 +00:00
|
|
|
|
(write-region nil nil (expand-file-name file dir) nil 'silent)))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(when good-signatures
|
|
|
|
|
|
;; Write out good signatures into archive-contents.signed file.
|
|
|
|
|
|
(write-region (mapconcat #'epg-signature-to-string good-signatures "\n")
|
|
|
|
|
|
nil
|
2014-01-22 19:22:45 +00:00
|
|
|
|
(expand-file-name (concat file ".signed") dir)
|
|
|
|
|
|
nil 'silent))))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
|
|
|
|
|
|
(declare-function epg-check-configuration "epg-config"
|
|
|
|
|
|
(config &optional minimum-version))
|
|
|
|
|
|
(declare-function epg-configuration "epg-config" ())
|
|
|
|
|
|
(declare-function epg-import-keys-from-file "epg" (context keys))
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun package-import-keyring (&optional file)
|
|
|
|
|
|
"Import keys from FILE."
|
|
|
|
|
|
(interactive "fFile: ")
|
|
|
|
|
|
(setq file (expand-file-name file))
|
|
|
|
|
|
(let ((context (epg-make-context 'OpenPGP))
|
|
|
|
|
|
(homedir (expand-file-name "gnupg" package-user-dir)))
|
2014-10-02 15:13:05 +00:00
|
|
|
|
(with-file-modes 448
|
|
|
|
|
|
(make-directory homedir t))
|
* lisp/epg.el: Use cl-defstruct.
(epg-make-data-from-file, epg-make-data-from-string, epg-data-file)
(epg-data-string): Define via cl-defstruct.
(epg--gv-nreverse): New macro.
(epg-context--make): New constructor (provided vi cl-defstruct).
(epg-make-context): Rewrite using it.
(epg-context-protocol, epg-context-program)
(epg-context-home-directory, epg-context-armor, epg-context-textmode)
(epg-context-include-certs, epg-context-cipher-algorithm)
(epg-context-digest-algorithm, epg-context-compress-algorithm)
(epg-context-passphrase-callback, epg-context-progress-callback)
(epg-context-signers, epg-context-sig-notations, epg-context-process)
(epg-context-output-file, epg-context-result, epg-context-operation)
(epg-context-pinentry-mode): Define using cl-defstruct.
(epg-context-set-protocol, epg-context-set-program)
(epg-context-set-include-certs, epg-context-set-cipher-algorithm)
(epg-context-set-digest-algorithm)
(epg-context-set-sig-notations, epg-context-set-process)
(epg-context-set-output-file, epg-context-set-result)
(epg-context-set-operation, epg-context-set-pinentry-mode)
(epg-context-set-compress-algorithm): Remove. Use setf instead.
(epg-context-set-armor, epg-context-set-textmode)
(epg-context-set-signers): Redefine using setf
and declare as obsolete.
(epg-context-set-passphrase-callback)
(epg-context-set-progress-callback): Use setf.
(epg-signature-notations): Rename from epg-sig-notations.
(epg-make-signature, epg-signature-status, epg-signature-key-id)
(epg-signature-validity, epg-signature-fingerprint)
(epg-signature-creation-time, epg-signature-expiration-time)
(epg-signature-pubkey-algorithm, epg-signature-digest-algorithm)
(epg-signature-class, epg-signature-version): Define vi cl-defstruct.
(epg-signature-set-status, epg-signature-set-key-id)
(epg-signature-set-validity, epg-signature-set-fingerprint)
(epg-signature-set-creation-time, epg-signature-set-expiration-time)
(epg-signature-set-pubkey-algorithm)
(epg-signature-set-digest-algorithm, epg-signature-set-class)
(epg-signature-set-version, epg-signature-set-notations): Remove.
Use setf instead.
(epg-make-new-signature, epg-new-signature-type)
(epg-new-signature-pubkey-algorithm)
(epg-new-signature-digest-algorithm, epg-new-signature-class)
(epg-new-signature-creation-time, epg-new-signature-fingerprint):
Define using cl-defstruct.
(epg-make-key, epg-key-owner-trust, epg-key-sub-key-list)
(epg-key-user-id-list): Define using cl-defstruct.
(epg-key-set-sub-key-list, epg-key-set-user-id-list): Remove.
Use setf instead.
(epg-make-sub-key, epg-sub-key-validity, epg-sub-key-capability)
(epg-sub-key-secret-p, epg-sub-key-algorithm, epg-sub-key-length)
(epg-sub-key-id, epg-sub-key-creation-time)
(epg-sub-key-expiration-time, epg-sub-key-fingerprint): Define using
cl-defstruct.
(epg-sub-key-set-fingerprint): Remove. Use setf instead.
(epg-make-user-id, epg-user-id-validity, epg-user-id-string)
(epg-user-id-signature-list): Define using cl-defstruct.
(epg-user-id-set-signature-list): Remove. Use setf instead.
(epg-make-key-signature, epg-key-signature-validity)
(epg-key-signature-pubkey-algorithm, epg-key-signature-key-id)
(epg-key-signature-creation-time, epg-key-signature-expiration-time)
(epg-key-signature-user-id, epg-key-signature-class)
(epg-key-signature-exportable-p): Define using cl-defstruct.
(epg-make-sig-notation, epg-sig-notation-name)
(epg-sig-notation-value, epg-sig-notation-human-readable)
(epg-sig-notation-critical): Define using cl-defstruct.
(epg-sig-notation-set-value): Remove. Use setf instead.
(epg-make-import-status, epg-import-status-fingerprint)
(epg-import-status-reason, epg-import-status-new)
(epg-import-status-user-id, epg-import-status-signature)
(epg-import-status-sub-key, epg-import-status-secret): Define using
cl-defstruct.
(epg-make-import-result, epg-import-result-considered)
(epg-import-result-no-user-id, epg-import-result-imported)
(epg-import-result-imported-rsa, epg-import-result-unchanged)
(epg-import-result-new-user-ids, epg-import-result-new-sub-keys)
(epg-import-result-new-signatures, epg-import-result-new-revocations)
(epg-import-result-secret-read, epg-import-result-secret-imported)
(epg-import-result-secret-unchanged, epg-import-result-not-imported)
(epg-import-result-imports): Define using cl-defstruct.
* lisp/emacs-lisp/package.el: Require EPG during macroexpansion.
(package--check-signature, package-import-keyring): Use setf instead of
epg-context-set-home-directory.
2014-10-23 21:38:56 +00:00
|
|
|
|
(setf (epg-context-home-directory context) homedir)
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(message "Importing %s..." (file-name-nondirectory file))
|
|
|
|
|
|
(epg-import-keys-from-file context file)
|
|
|
|
|
|
(message "Importing %s...done" (file-name-nondirectory file))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2011-10-29 03:42:12 +00:00
|
|
|
|
;;;###autoload
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(defun package-refresh-contents ()
|
|
|
|
|
|
"Download the ELPA archive description if needed.
|
2010-09-04 17:13:14 +00:00
|
|
|
|
This informs Emacs about the latest versions of all packages, and
|
|
|
|
|
|
makes them available for download."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(interactive)
|
2013-06-22 20:09:19 +00:00
|
|
|
|
;; FIXME: Do it asynchronously.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(unless (file-exists-p package-user-dir)
|
|
|
|
|
|
(make-directory package-user-dir t))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(let ((default-keyring (expand-file-name "package-keyring.gpg"
|
|
|
|
|
|
data-directory)))
|
2014-09-27 16:25:53 +00:00
|
|
|
|
(when (and package-check-signature (file-exists-p default-keyring))
|
|
|
|
|
|
(condition-case-unless-debug error
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(epg-check-configuration (epg-configuration))
|
|
|
|
|
|
(package-import-keyring default-keyring))
|
|
|
|
|
|
(error (message "Cannot import default keyring: %S" (cdr error))))))
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(dolist (archive package-archives)
|
2012-02-10 15:59:29 +00:00
|
|
|
|
(condition-case-unless-debug nil
|
2010-08-26 03:31:34 +00:00
|
|
|
|
(package--download-one-archive archive "archive-contents")
|
2010-08-31 01:53:46 +00:00
|
|
|
|
(error (message "Failed to download `%s' archive."
|
2010-08-26 03:31:34 +00:00
|
|
|
|
(car archive)))))
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(package-read-all-archive-contents))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(defun package-initialize (&optional no-activate)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Load Emacs Lisp packages, and activate them.
|
2010-11-03 03:25:36 +00:00
|
|
|
|
The variable `package-load-list' controls which packages to load.
|
|
|
|
|
|
If optional arg NO-ACTIVATE is non-nil, don't activate packages."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(interactive)
|
2013-06-21 14:12:56 +00:00
|
|
|
|
(setq package-alist nil)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(package-load-all-descriptors)
|
2010-07-28 18:54:42 +00:00
|
|
|
|
(package-read-all-archive-contents)
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(unless no-activate
|
|
|
|
|
|
(dolist (elt package-alist)
|
2013-06-21 14:12:56 +00:00
|
|
|
|
(package-activate (car elt))))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(setq package--initialized t))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
|
2010-06-19 22:36:51 +00:00
|
|
|
|
;;;; Package description buffer.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-06-19 22:36:51 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun describe-package (package)
|
|
|
|
|
|
"Display the full documentation of PACKAGE (a symbol)."
|
|
|
|
|
|
(interactive
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(let* ((guess (function-called-at-point)))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(require 'finder-inf nil t)
|
|
|
|
|
|
;; Load the package list if necessary (but don't activate them).
|
|
|
|
|
|
(unless package--initialized
|
|
|
|
|
|
(package-initialize t))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(let ((packages (append (mapcar 'car package-alist)
|
|
|
|
|
|
(mapcar 'car package-archive-contents)
|
|
|
|
|
|
(mapcar 'car package--builtins))))
|
|
|
|
|
|
(unless (memq guess packages)
|
|
|
|
|
|
(setq guess nil))
|
|
|
|
|
|
(setq packages (mapcar 'symbol-name packages))
|
|
|
|
|
|
(let ((val
|
|
|
|
|
|
(completing-read (if guess
|
|
|
|
|
|
(format "Describe package (default %s): "
|
|
|
|
|
|
guess)
|
|
|
|
|
|
"Describe package: ")
|
|
|
|
|
|
packages nil t nil nil guess)))
|
|
|
|
|
|
(list (intern val))))))
|
|
|
|
|
|
(if (not (or (package-desc-p package) (and package (symbolp package))))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(message "No package specified")
|
2010-06-19 22:36:51 +00:00
|
|
|
|
(help-setup-xref (list #'describe-package package)
|
|
|
|
|
|
(called-interactively-p 'interactive))
|
|
|
|
|
|
(with-help-window (help-buffer)
|
|
|
|
|
|
(with-current-buffer standard-output
|
|
|
|
|
|
(describe-package-1 package)))))
|
|
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(defun describe-package-1 (pkg)
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(require 'lisp-mnt)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(let* ((desc (or
|
|
|
|
|
|
(if (package-desc-p pkg) pkg)
|
|
|
|
|
|
(cadr (assq pkg package-alist))
|
|
|
|
|
|
(let ((built-in (assq pkg package--builtins)))
|
|
|
|
|
|
(if built-in
|
|
|
|
|
|
(package--from-builtin built-in)
|
|
|
|
|
|
(cadr (assq pkg package-archive-contents))))))
|
|
|
|
|
|
(name (if desc (package-desc-name desc) pkg))
|
|
|
|
|
|
(pkg-dir (if desc (package-desc-dir desc)))
|
|
|
|
|
|
(reqs (if desc (package-desc-reqs desc)))
|
|
|
|
|
|
(version (if desc (package-desc-version desc)))
|
|
|
|
|
|
(archive (if desc (package-desc-archive desc)))
|
2013-12-09 21:35:26 +00:00
|
|
|
|
(extras (and desc (package-desc-extras desc)))
|
|
|
|
|
|
(homepage (cdr (assoc :url extras)))
|
2014-01-16 12:23:14 +00:00
|
|
|
|
(keywords (if desc (package-desc--keywords desc)))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(built-in (eq pkg-dir 'builtin))
|
|
|
|
|
|
(installable (and archive (not built-in)))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(status (if desc (package-desc-status desc) "orphan"))
|
|
|
|
|
|
(signed (if desc (package-desc-signed desc))))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(prin1 name)
|
2010-06-19 22:36:51 +00:00
|
|
|
|
(princ " is ")
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(princ (if (memq (aref status 0) '(?a ?e ?i ?o ?u)) "an " "a "))
|
|
|
|
|
|
(princ status)
|
|
|
|
|
|
(princ " package.\n\n")
|
2010-08-26 03:31:34 +00:00
|
|
|
|
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(insert " " (propertize "Status" 'font-lock-face 'bold) ": ")
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(cond (built-in
|
|
|
|
|
|
(insert (propertize (capitalize status)
|
|
|
|
|
|
'font-lock-face 'font-lock-builtin-face)
|
|
|
|
|
|
"."))
|
|
|
|
|
|
(pkg-dir
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(insert (propertize (if (equal status "unsigned")
|
|
|
|
|
|
"Installed"
|
|
|
|
|
|
(capitalize status)) ;FIXME: Why comment-face?
|
2010-08-29 22:15:09 +00:00
|
|
|
|
'font-lock-face 'font-lock-comment-face))
|
2010-08-26 03:31:34 +00:00
|
|
|
|
(insert " in `")
|
|
|
|
|
|
;; Todo: Add button for uninstalling.
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(help-insert-xref-button (abbreviate-file-name
|
|
|
|
|
|
(file-name-as-directory pkg-dir))
|
2010-08-26 03:31:34 +00:00
|
|
|
|
'help-package-def pkg-dir)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(if (and (package-built-in-p name)
|
|
|
|
|
|
(not (package-built-in-p name version)))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(insert "',\n shadowing a "
|
|
|
|
|
|
(propertize "built-in package"
|
2013-10-03 07:11:27 +00:00
|
|
|
|
'font-lock-face 'font-lock-builtin-face))
|
|
|
|
|
|
(insert "'"))
|
|
|
|
|
|
(if signed
|
|
|
|
|
|
(insert ".")
|
|
|
|
|
|
(insert " (unsigned).")))
|
2010-08-26 03:31:34 +00:00
|
|
|
|
(installable
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(insert (capitalize status))
|
|
|
|
|
|
(insert " from " (format "%s" archive))
|
2013-02-06 16:10:13 +00:00
|
|
|
|
(insert " -- ")
|
2013-12-09 21:35:26 +00:00
|
|
|
|
(package-make-button
|
|
|
|
|
|
"Install"
|
|
|
|
|
|
'action 'package-install-button-action
|
|
|
|
|
|
'package-desc desc))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(t (insert (capitalize status) ".")))
|
2010-08-26 03:31:34 +00:00
|
|
|
|
(insert "\n")
|
2013-11-20 21:01:00 +00:00
|
|
|
|
(insert " " (propertize "Archive" 'font-lock-face 'bold)
|
|
|
|
|
|
": " (or archive "n/a") "\n")
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(and version
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(insert " "
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(propertize "Version" 'font-lock-face 'bold) ": "
|
|
|
|
|
|
(package-version-join version) "\n"))
|
2010-11-03 03:25:36 +00:00
|
|
|
|
|
|
|
|
|
|
(setq reqs (if desc (package-desc-reqs desc)))
|
2010-06-20 04:55:14 +00:00
|
|
|
|
(when reqs
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(insert " " (propertize "Requires" 'font-lock-face 'bold) ": ")
|
2010-06-20 04:55:14 +00:00
|
|
|
|
(let ((first t)
|
|
|
|
|
|
name vers text)
|
|
|
|
|
|
(dolist (req reqs)
|
|
|
|
|
|
(setq name (car req)
|
|
|
|
|
|
vers (cadr req)
|
|
|
|
|
|
text (format "%s-%s" (symbol-name name)
|
|
|
|
|
|
(package-version-join vers)))
|
|
|
|
|
|
(cond (first (setq first nil))
|
|
|
|
|
|
((>= (+ 2 (current-column) (length text))
|
|
|
|
|
|
(window-width))
|
|
|
|
|
|
(insert ",\n "))
|
|
|
|
|
|
(t (insert ", ")))
|
|
|
|
|
|
(help-insert-xref-button text 'help-package name))
|
|
|
|
|
|
(insert "\n")))
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(insert " " (propertize "Summary" 'font-lock-face 'bold)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
": " (if desc (package-desc-summary desc)) "\n")
|
2013-09-29 19:41:00 +00:00
|
|
|
|
(when homepage
|
|
|
|
|
|
(insert " " (propertize "Homepage" 'font-lock-face 'bold) ": ")
|
|
|
|
|
|
(help-insert-xref-button homepage 'help-url homepage)
|
|
|
|
|
|
(insert "\n"))
|
2013-12-09 21:35:26 +00:00
|
|
|
|
(when keywords
|
|
|
|
|
|
(insert " " (propertize "Keywords" 'font-lock-face 'bold) ": ")
|
|
|
|
|
|
(dolist (k keywords)
|
|
|
|
|
|
(package-make-button
|
|
|
|
|
|
k
|
|
|
|
|
|
'package-keyword k
|
|
|
|
|
|
'action 'package-keyword-button-action)
|
|
|
|
|
|
(insert " "))
|
|
|
|
|
|
(insert "\n"))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(let* ((all-pkgs (append (cdr (assq name package-alist))
|
|
|
|
|
|
(cdr (assq name package-archive-contents))
|
|
|
|
|
|
(let ((bi (assq name package--builtins)))
|
|
|
|
|
|
(if bi (list (package--from-builtin bi))))))
|
|
|
|
|
|
(other-pkgs (delete desc all-pkgs)))
|
|
|
|
|
|
(when other-pkgs
|
|
|
|
|
|
(insert " " (propertize "Other versions" 'font-lock-face 'bold) ": "
|
|
|
|
|
|
(mapconcat
|
|
|
|
|
|
(lambda (opkg)
|
|
|
|
|
|
(let* ((ov (package-desc-version opkg))
|
|
|
|
|
|
(dir (package-desc-dir opkg))
|
|
|
|
|
|
(from (or (package-desc-archive opkg)
|
|
|
|
|
|
(if (stringp dir) "installed" dir))))
|
|
|
|
|
|
(if (not ov) (format "%s" from)
|
|
|
|
|
|
(format "%s (%s)"
|
|
|
|
|
|
(make-text-button (package-version-join ov) nil
|
|
|
|
|
|
'face 'link
|
|
|
|
|
|
'follow-link t
|
|
|
|
|
|
'action
|
|
|
|
|
|
(lambda (_button)
|
|
|
|
|
|
(describe-package opkg)))
|
|
|
|
|
|
from))))
|
|
|
|
|
|
other-pkgs ", ")
|
|
|
|
|
|
".\n")))
|
|
|
|
|
|
|
|
|
|
|
|
(insert "\n")
|
2010-08-26 03:31:34 +00:00
|
|
|
|
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(if built-in
|
2010-08-29 22:15:09 +00:00
|
|
|
|
;; For built-in packages, insert the commentary.
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(let ((fn (locate-file (format "%s.el" name) load-path
|
2010-08-29 22:15:09 +00:00
|
|
|
|
load-file-rep-suffixes))
|
|
|
|
|
|
(opoint (point)))
|
|
|
|
|
|
(insert (or (lm-commentary fn) ""))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char opoint)
|
|
|
|
|
|
(when (re-search-forward "^;;; Commentary:\n" nil t)
|
|
|
|
|
|
(replace-match ""))
|
|
|
|
|
|
(while (re-search-forward "^\\(;+ ?\\)" nil t)
|
|
|
|
|
|
(replace-match ""))))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(let ((readme (expand-file-name (format "%s-readme.txt" name)
|
2011-03-06 03:22:06 +00:00
|
|
|
|
package-user-dir))
|
|
|
|
|
|
readme-string)
|
2010-08-29 22:15:09 +00:00
|
|
|
|
;; For elpa packages, try downloading the commentary. If that
|
|
|
|
|
|
;; fails, try an existing readme file in `package-user-dir'.
|
2011-03-06 03:22:06 +00:00
|
|
|
|
(cond ((condition-case nil
|
2013-10-29 14:48:08 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(package--with-work-buffer
|
|
|
|
|
|
(package-archive-base desc)
|
|
|
|
|
|
(format "%s-readme.txt" name)
|
2014-05-21 02:14:38 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(unless (bolp)
|
|
|
|
|
|
(insert ?\n)))
|
|
|
|
|
|
(write-region nil nil
|
|
|
|
|
|
(expand-file-name readme package-user-dir)
|
|
|
|
|
|
nil 'silent)
|
2013-10-29 14:48:08 +00:00
|
|
|
|
(setq readme-string (buffer-string))
|
|
|
|
|
|
t))
|
2011-03-06 03:22:06 +00:00
|
|
|
|
(error nil))
|
2014-03-26 15:21:17 +00:00
|
|
|
|
(insert readme-string))
|
2010-08-29 22:15:09 +00:00
|
|
|
|
((file-readable-p readme)
|
|
|
|
|
|
(insert-file-contents readme)
|
|
|
|
|
|
(goto-char (point-max))))))))
|
2010-08-26 03:31:34 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-install-button-action (button)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(let ((pkg-desc (button-get button 'package-desc)))
|
|
|
|
|
|
(when (y-or-n-p (format "Install package `%s'? "
|
|
|
|
|
|
(package-desc-full-name pkg-desc)))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(package-install pkg-desc 1)
|
2010-08-26 03:31:34 +00:00
|
|
|
|
(revert-buffer nil t)
|
|
|
|
|
|
(goto-char (point-min)))))
|
2010-06-19 22:36:51 +00:00
|
|
|
|
|
2013-12-09 21:35:26 +00:00
|
|
|
|
(defun package-keyword-button-action (button)
|
|
|
|
|
|
(let ((pkg-keyword (button-get button 'package-keyword)))
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(package-show-package-list t (list pkg-keyword))))
|
2013-12-09 21:35:26 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-make-button (text &rest props)
|
|
|
|
|
|
(let ((button-text (if (display-graphic-p) text (concat "[" text "]")))
|
|
|
|
|
|
(button-face (if (display-graphic-p)
|
|
|
|
|
|
'(:box (:line-width 2 :color "dark grey")
|
|
|
|
|
|
:background "light grey"
|
|
|
|
|
|
:foreground "black")
|
|
|
|
|
|
'link)))
|
|
|
|
|
|
(apply 'insert-text-button button-text 'face button-face 'follow-link t
|
|
|
|
|
|
props)))
|
|
|
|
|
|
|
2010-06-19 22:36:51 +00:00
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;;;; Package menu mode.
|
|
|
|
|
|
|
2010-06-17 11:02:42 +00:00
|
|
|
|
(defvar package-menu-mode-map
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(let ((map (make-sparse-keymap))
|
2010-06-17 16:41:13 +00:00
|
|
|
|
(menu-map (make-sparse-keymap "Package")))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(set-keymap-parent map tabulated-list-mode-map)
|
2010-06-20 04:55:14 +00:00
|
|
|
|
(define-key map "\C-m" 'package-menu-describe-package)
|
2010-06-17 11:02:42 +00:00
|
|
|
|
(define-key map "u" 'package-menu-mark-unmark)
|
|
|
|
|
|
(define-key map "\177" 'package-menu-backup-unmark)
|
|
|
|
|
|
(define-key map "d" 'package-menu-mark-delete)
|
|
|
|
|
|
(define-key map "i" 'package-menu-mark-install)
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(define-key map "U" 'package-menu-mark-upgrades)
|
2010-06-17 11:02:42 +00:00
|
|
|
|
(define-key map "r" 'package-menu-refresh)
|
2014-02-12 01:20:34 +00:00
|
|
|
|
(define-key map "f" 'package-menu-filter)
|
2010-06-17 11:02:42 +00:00
|
|
|
|
(define-key map "~" 'package-menu-mark-obsolete-for-deletion)
|
|
|
|
|
|
(define-key map "x" 'package-menu-execute)
|
|
|
|
|
|
(define-key map "h" 'package-menu-quick-help)
|
2010-08-26 03:31:34 +00:00
|
|
|
|
(define-key map "?" 'package-menu-describe-package)
|
2010-06-17 16:41:13 +00:00
|
|
|
|
(define-key map [menu-bar package-menu] (cons "Package" menu-map))
|
|
|
|
|
|
(define-key menu-map [mq]
|
|
|
|
|
|
'(menu-item "Quit" quit-window
|
|
|
|
|
|
:help "Quit package selection"))
|
|
|
|
|
|
(define-key menu-map [s1] '("--"))
|
|
|
|
|
|
(define-key menu-map [mn]
|
|
|
|
|
|
'(menu-item "Next" next-line
|
|
|
|
|
|
:help "Next Line"))
|
|
|
|
|
|
(define-key menu-map [mp]
|
|
|
|
|
|
'(menu-item "Previous" previous-line
|
|
|
|
|
|
:help "Previous Line"))
|
|
|
|
|
|
(define-key menu-map [s2] '("--"))
|
|
|
|
|
|
(define-key menu-map [mu]
|
|
|
|
|
|
'(menu-item "Unmark" package-menu-mark-unmark
|
|
|
|
|
|
:help "Clear any marks on a package and move to the next line"))
|
|
|
|
|
|
(define-key menu-map [munm]
|
2011-09-18 20:43:20 +00:00
|
|
|
|
'(menu-item "Unmark Backwards" package-menu-backup-unmark
|
2010-06-17 16:41:13 +00:00
|
|
|
|
:help "Back up one line and clear any marks on that package"))
|
|
|
|
|
|
(define-key menu-map [md]
|
2011-09-18 20:43:20 +00:00
|
|
|
|
'(menu-item "Mark for Deletion" package-menu-mark-delete
|
2010-06-17 16:41:13 +00:00
|
|
|
|
:help "Mark a package for deletion and move to the next line"))
|
|
|
|
|
|
(define-key menu-map [mi]
|
2011-09-18 20:43:20 +00:00
|
|
|
|
'(menu-item "Mark for Install" package-menu-mark-install
|
2010-06-17 16:41:13 +00:00
|
|
|
|
:help "Mark a package for installation and move to the next line"))
|
2011-09-15 02:05:17 +00:00
|
|
|
|
(define-key menu-map [mupgrades]
|
2011-09-18 20:43:20 +00:00
|
|
|
|
'(menu-item "Mark Upgradable Packages" package-menu-mark-upgrades
|
2011-09-15 02:05:17 +00:00
|
|
|
|
:help "Mark packages that have a newer version for upgrading"))
|
2010-06-17 16:41:13 +00:00
|
|
|
|
(define-key menu-map [s3] '("--"))
|
2014-02-12 01:20:34 +00:00
|
|
|
|
(define-key menu-map [mf]
|
|
|
|
|
|
'(menu-item "Filter Package List..." package-menu-filter
|
|
|
|
|
|
:help "Filter package selection (q to go back)"))
|
2010-06-17 16:41:13 +00:00
|
|
|
|
(define-key menu-map [mg]
|
2011-09-18 20:43:20 +00:00
|
|
|
|
'(menu-item "Update Package List" revert-buffer
|
2010-06-17 16:41:13 +00:00
|
|
|
|
:help "Update the list of packages"))
|
|
|
|
|
|
(define-key menu-map [mr]
|
2011-09-18 20:43:20 +00:00
|
|
|
|
'(menu-item "Refresh Package List" package-menu-refresh
|
2010-06-17 16:41:13 +00:00
|
|
|
|
:help "Download the ELPA archive"))
|
|
|
|
|
|
(define-key menu-map [s4] '("--"))
|
|
|
|
|
|
(define-key menu-map [mt]
|
2011-09-18 20:43:20 +00:00
|
|
|
|
'(menu-item "Mark Obsolete Packages" package-menu-mark-obsolete-for-deletion
|
2010-06-17 16:41:13 +00:00
|
|
|
|
:help "Mark all obsolete packages for deletion"))
|
|
|
|
|
|
(define-key menu-map [mx]
|
2011-09-18 20:43:20 +00:00
|
|
|
|
'(menu-item "Execute Actions" package-menu-execute
|
2010-06-17 16:41:13 +00:00
|
|
|
|
:help "Perform all the marked actions"))
|
|
|
|
|
|
(define-key menu-map [s5] '("--"))
|
|
|
|
|
|
(define-key menu-map [mh]
|
|
|
|
|
|
'(menu-item "Help" package-menu-quick-help
|
|
|
|
|
|
:help "Show short key binding help for package-menu-mode"))
|
|
|
|
|
|
(define-key menu-map [mc]
|
2014-03-14 20:55:40 +00:00
|
|
|
|
'(menu-item "Describe Package" package-menu-describe-package
|
2010-06-17 16:41:13 +00:00
|
|
|
|
:help "Display information about this package"))
|
2010-06-17 11:02:42 +00:00
|
|
|
|
map)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Local keymap for `package-menu-mode' buffers.")
|
|
|
|
|
|
|
2012-06-13 07:33:38 +00:00
|
|
|
|
(defvar package-menu--new-package-list nil
|
|
|
|
|
|
"List of newly-available packages since `list-packages' was last called.")
|
|
|
|
|
|
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(define-derived-mode package-menu-mode tabulated-list-mode "Package Menu"
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Major mode for browsing a list of packages.
|
|
|
|
|
|
Letters do not insert themselves; instead, they are commands.
|
|
|
|
|
|
\\<package-menu-mode-map>
|
|
|
|
|
|
\\{package-menu-mode-map}"
|
2014-01-22 19:22:45 +00:00
|
|
|
|
(setq tabulated-list-format
|
|
|
|
|
|
`[("Package" 18 package-menu--name-predicate)
|
2014-12-14 13:56:22 +00:00
|
|
|
|
("Version" 13 nil)
|
2014-01-22 19:22:45 +00:00
|
|
|
|
("Status" 10 package-menu--status-predicate)
|
|
|
|
|
|
,@(if (cdr package-archives)
|
|
|
|
|
|
'(("Archive" 10 package-menu--archive-predicate)))
|
|
|
|
|
|
("Description" 0 nil)])
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(setq tabulated-list-padding 2)
|
|
|
|
|
|
(setq tabulated-list-sort-key (cons "Status" nil))
|
2013-07-22 11:39:32 +00:00
|
|
|
|
(add-hook 'tabulated-list-revert-hook 'package-menu--refresh nil t)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(tabulated-list-init-header))
|
|
|
|
|
|
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(defmacro package--push (pkg-desc status listname)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
"Convenience macro for `package-menu--generate'.
|
|
|
|
|
|
If the alist stored in the symbol LISTNAME lacks an entry for a
|
2013-06-14 03:20:18 +00:00
|
|
|
|
package PKG-DESC, add one. The alist is keyed with PKG-DESC."
|
|
|
|
|
|
`(unless (assoc ,pkg-desc ,listname)
|
|
|
|
|
|
;; FIXME: Should we move status into pkg-desc?
|
|
|
|
|
|
(push (cons ,pkg-desc ,status) ,listname)))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
2013-06-15 15:36:11 +00:00
|
|
|
|
(defvar package-list-unversioned nil
|
|
|
|
|
|
"If non-nil include packages that don't have a version in `list-package'.")
|
|
|
|
|
|
|
2014-06-25 17:20:08 +00:00
|
|
|
|
(defvar package-list-unsigned nil
|
|
|
|
|
|
"If non-nil, mention in the list which packages were installed w/o signature.")
|
|
|
|
|
|
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(defun package-desc-status (pkg-desc)
|
|
|
|
|
|
(let* ((name (package-desc-name pkg-desc))
|
|
|
|
|
|
(dir (package-desc-dir pkg-desc))
|
|
|
|
|
|
(lle (assq name package-load-list))
|
|
|
|
|
|
(held (cadr lle))
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(version (package-desc-version pkg-desc))
|
|
|
|
|
|
(signed (package-desc-signed pkg-desc)))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
((eq dir 'builtin) "built-in")
|
|
|
|
|
|
((and lle (null held)) "disabled")
|
|
|
|
|
|
((stringp held)
|
|
|
|
|
|
(let ((hv (if (stringp held) (version-to-list held))))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((version-list-= version hv) "held")
|
|
|
|
|
|
((version-list-< version hv) "obsolete")
|
|
|
|
|
|
(t "disabled"))))
|
|
|
|
|
|
((package-built-in-p name version) "obsolete")
|
|
|
|
|
|
(dir ;One of the installed packages.
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((not (file-exists-p (package-desc-dir pkg-desc))) "deleted")
|
2014-06-25 17:20:08 +00:00
|
|
|
|
((eq pkg-desc (cadr (assq name package-alist)))
|
|
|
|
|
|
(if (or (not package-list-unsigned) signed) "installed" "unsigned"))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(t "obsolete")))
|
|
|
|
|
|
(t
|
|
|
|
|
|
(let* ((ins (cadr (assq name package-alist)))
|
|
|
|
|
|
(ins-v (if ins (package-desc-version ins))))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((or (null ins) (version-list-< ins-v version))
|
|
|
|
|
|
(if (memq name package-menu--new-package-list)
|
|
|
|
|
|
"new" "available"))
|
|
|
|
|
|
((version-list-< version ins-v) "obsolete")
|
2014-06-25 17:20:08 +00:00
|
|
|
|
((version-list-= version ins-v)
|
|
|
|
|
|
(if (or (not package-list-unsigned) signed)
|
|
|
|
|
|
"installed" "unsigned"))))))))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(defun package-menu--refresh (&optional packages keywords)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
"Re-populate the `tabulated-list-entries'.
|
2013-12-14 19:55:19 +00:00
|
|
|
|
PACKAGES should be nil or t, which means to display all known packages.
|
|
|
|
|
|
KEYWORDS should be nil or a list of keywords."
|
2013-06-14 03:20:18 +00:00
|
|
|
|
;; Construct list of (PKG-DESC . STATUS).
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(unless packages (setq packages t))
|
lisp/*: Add declarations, remove unused bindings, mark unused args.
* lisp/avoid.el (mouse-avoidance-mode): Mark unused arg.
(mouse-avoidance-nudge-mouse): Remove unused binding.
* lisp/imenu.el (imenu-default-goto-function): Mark unused args.
(imenu-progress-message): Remove obsolete macro; all callers changed.
* lisp/mouse.el (mouse-menu-major-mode-map):
* lisp/emacs-lisp/authors.el (authors-scan-change-log)
(authors-add-to-author-list):
* lisp/emacs-lisp/avl-tree.el (avl-tree--enter-balance):
* lisp/emacs-lisp/smie.el (smie-auto-fill):
* lisp/mail/sendmail.el (mail-bury):
* lisp/mail/unrmail.el (unrmail):
* lisp/net/tls.el (open-tls-stream):
* lisp/textmodes/picture.el (picture-mouse-set-point):
Remove unused bindings.
* lisp/subr.el (keymap-canonicalize): Remove unused binding.
(read-passwd): Mark unused arg.
* lisp/tutorial.el (tutorial--display-changes): Remove unused binding.
(tutorial--save-tutorial-to): Remove unused variable.
* lisp/emacs-lisp/package.el (define-package, package-menu-mark-delete)
(package-menu-mark-install, package-menu-mark-unmark): Mark unused args.
(package-generate-autoloads, package-menu--generate)
(package-menu--find-upgrades): Remove unused bindings.
* lisp/emulation/cua-rect.el (cua-restrict-regexp-rectangle)
(cua-restrict-prefix-rectangle): Doc fixes. Remove unused bindings.
(cua--mouse-ignore, cua--delete-rectangle, cua--extract-rectangle)
(cua--indent-rectangle, cua-open-rectangle, cua-close-rectangle)
(cua-blank-rectangle, cua-string-rectangle, cua-replace-in-rectangle)
(cua-incr-rectangle, cua-sequence-rectangle, cua--convert-rectangle-as)
(cua--rectangle-aux-replace, cua--left-fill-rectangle)
(cua-scroll-rectangle-up, cua-scroll-rectangle-down)
(cua-delete-char-rectangle): Mark unused args.
(cua-align-rectangle): Remove unused binding.
* lisp/mail/rmail.el (compilation--message->loc)
(epa--find-coding-system-for-mime-charset): Declare.
* lisp/net/dbus.el (dbus-register-service): Declare.
(dbus-name-owner-changed-handler): Remove unused binding.
* lisp/nxml/nxml-mode.el (nxml-electric-slash, nxml-in-mixed-content-p)
(nxml-compute-indent-from-matching-start-tag): Remove unused variables.
(nxml-scan-backward-within): Mark unused arg.
(nxml-dynamic-markup-word): Remove unused binding.
2012-04-19 17:20:26 +00:00
|
|
|
|
(let (info-list name)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
;; Installed packages:
|
|
|
|
|
|
(dolist (elt package-alist)
|
|
|
|
|
|
(setq name (car elt))
|
2011-04-24 20:32:23 +00:00
|
|
|
|
(when (or (eq packages t) (memq name packages))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(dolist (pkg (cdr elt))
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(when (package--has-keyword-p pkg keywords)
|
|
|
|
|
|
(package--push pkg (package-desc-status pkg) info-list)))))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
|
|
|
|
|
;; Built-in packages:
|
|
|
|
|
|
(dolist (elt package--builtins)
|
|
|
|
|
|
(setq name (car elt))
|
2011-04-24 20:32:23 +00:00
|
|
|
|
(when (and (not (eq name 'emacs)) ; Hide the `emacs' package.
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(package--has-keyword-p (package--from-builtin elt) keywords)
|
2013-06-15 15:36:11 +00:00
|
|
|
|
(or package-list-unversioned
|
|
|
|
|
|
(package--bi-desc-version (cdr elt)))
|
2011-04-24 20:32:23 +00:00
|
|
|
|
(or (eq packages t) (memq name packages)))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(package--push (package--from-builtin elt) "built-in" info-list)))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
|
|
|
|
|
;; Available and disabled packages:
|
|
|
|
|
|
(dolist (elt package-archive-contents)
|
|
|
|
|
|
(setq name (car elt))
|
2011-04-24 20:32:23 +00:00
|
|
|
|
(when (or (eq packages t) (memq name packages))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(dolist (pkg (cdr elt))
|
|
|
|
|
|
;; Hide obsolete packages.
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(when (and (not (package-installed-p (package-desc-name pkg)
|
|
|
|
|
|
(package-desc-version pkg)))
|
|
|
|
|
|
(package--has-keyword-p pkg keywords))
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(package--push pkg (package-desc-status pkg) info-list)))))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
|
|
|
|
|
;; Print the result.
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(setq tabulated-list-entries
|
|
|
|
|
|
(mapcar #'package-menu--print-info info-list))))
|
|
|
|
|
|
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(defun package-all-keywords ()
|
|
|
|
|
|
"Collect all package keywords"
|
|
|
|
|
|
(let (keywords)
|
|
|
|
|
|
(package--mapc (lambda (desc)
|
2014-01-22 19:22:45 +00:00
|
|
|
|
(let* ((desc-keywords (and desc (package-desc--keywords desc))))
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(setq keywords (append keywords desc-keywords)))))
|
|
|
|
|
|
keywords))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--mapc (function &optional packages)
|
|
|
|
|
|
"Call FUNCTION for all known PACKAGES.
|
|
|
|
|
|
PACKAGES can be nil or t, which means to display all known
|
|
|
|
|
|
packages, or a list of packages.
|
|
|
|
|
|
|
|
|
|
|
|
Built-in packages are converted with `package--from-builtin'."
|
|
|
|
|
|
(unless packages (setq packages t))
|
|
|
|
|
|
(let (name)
|
|
|
|
|
|
;; Installed packages:
|
|
|
|
|
|
(dolist (elt package-alist)
|
|
|
|
|
|
(setq name (car elt))
|
|
|
|
|
|
(when (or (eq packages t) (memq name packages))
|
|
|
|
|
|
(mapc function (cdr elt))))
|
|
|
|
|
|
|
|
|
|
|
|
;; Built-in packages:
|
|
|
|
|
|
(dolist (elt package--builtins)
|
|
|
|
|
|
(setq name (car elt))
|
|
|
|
|
|
(when (and (not (eq name 'emacs)) ; Hide the `emacs' package.
|
|
|
|
|
|
(or package-list-unversioned
|
|
|
|
|
|
(package--bi-desc-version (cdr elt)))
|
|
|
|
|
|
(or (eq packages t) (memq name packages)))
|
|
|
|
|
|
(funcall function (package--from-builtin elt))))
|
|
|
|
|
|
|
|
|
|
|
|
;; Available and disabled packages:
|
|
|
|
|
|
(dolist (elt package-archive-contents)
|
|
|
|
|
|
(setq name (car elt))
|
|
|
|
|
|
(when (or (eq packages t) (memq name packages))
|
|
|
|
|
|
(dolist (pkg (cdr elt))
|
|
|
|
|
|
;; Hide obsolete packages.
|
|
|
|
|
|
(unless (package-installed-p (package-desc-name pkg)
|
|
|
|
|
|
(package-desc-version pkg))
|
|
|
|
|
|
(funcall function pkg)))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package--has-keyword-p (desc &optional keywords)
|
|
|
|
|
|
"Test if package DESC has any of the given KEYWORDS.
|
|
|
|
|
|
When none are given, the package matches."
|
|
|
|
|
|
(if keywords
|
2014-01-22 19:22:45 +00:00
|
|
|
|
(let* ((desc-keywords (and desc (package-desc--keywords desc)))
|
2013-12-14 19:55:19 +00:00
|
|
|
|
found)
|
|
|
|
|
|
(dolist (k keywords)
|
|
|
|
|
|
(when (and (not found)
|
|
|
|
|
|
(member k desc-keywords))
|
|
|
|
|
|
(setq found t)))
|
|
|
|
|
|
found)
|
|
|
|
|
|
t))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-menu--generate (remember-pos packages &optional keywords)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
"Populate the Package Menu.
|
|
|
|
|
|
If REMEMBER-POS is non-nil, keep point on the same entry.
|
|
|
|
|
|
PACKAGES should be t, which means to display all known packages,
|
2013-12-14 19:55:19 +00:00
|
|
|
|
or a list of package names (symbols) to display.
|
|
|
|
|
|
|
|
|
|
|
|
With KEYWORDS given, only packages with those keywords are
|
|
|
|
|
|
shown."
|
|
|
|
|
|
(package-menu--refresh packages keywords)
|
|
|
|
|
|
(setf (car (aref tabulated-list-format 0))
|
|
|
|
|
|
(if keywords
|
|
|
|
|
|
(let ((filters (mapconcat 'identity keywords ",")))
|
|
|
|
|
|
(concat "Package[" filters "]"))
|
|
|
|
|
|
"Package"))
|
|
|
|
|
|
(if keywords
|
|
|
|
|
|
(define-key package-menu-mode-map "q" 'package-show-package-list)
|
|
|
|
|
|
(define-key package-menu-mode-map "q" 'quit-window))
|
|
|
|
|
|
(tabulated-list-init-header)
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(tabulated-list-print remember-pos))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu--print-info (pkg)
|
|
|
|
|
|
"Return a package entry suitable for `tabulated-list-entries'.
|
2013-06-14 03:20:18 +00:00
|
|
|
|
PKG has the form (PKG-DESC . STATUS).
|
|
|
|
|
|
Return (PKG-DESC [NAME VERSION STATUS DOC])."
|
|
|
|
|
|
(let* ((pkg-desc (car pkg))
|
|
|
|
|
|
(status (cdr pkg))
|
|
|
|
|
|
(face (pcase status
|
2014-01-22 19:22:45 +00:00
|
|
|
|
(`"built-in" 'font-lock-builtin-face)
|
|
|
|
|
|
(`"available" 'default)
|
|
|
|
|
|
(`"new" 'bold)
|
|
|
|
|
|
(`"held" 'font-lock-constant-face)
|
|
|
|
|
|
(`"disabled" 'font-lock-warning-face)
|
|
|
|
|
|
(`"installed" 'font-lock-comment-face)
|
|
|
|
|
|
(`"unsigned" 'font-lock-warning-face)
|
|
|
|
|
|
(_ 'font-lock-warning-face)))) ; obsolete.
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(list pkg-desc
|
2014-01-22 19:22:45 +00:00
|
|
|
|
`[,(list (symbol-name (package-desc-name pkg-desc))
|
|
|
|
|
|
'face 'link
|
|
|
|
|
|
'follow-link t
|
|
|
|
|
|
'package-desc pkg-desc
|
|
|
|
|
|
'action 'package-menu-describe-package)
|
|
|
|
|
|
,(propertize (package-version-join
|
|
|
|
|
|
(package-desc-version pkg-desc))
|
|
|
|
|
|
'font-lock-face face)
|
|
|
|
|
|
,(propertize status 'font-lock-face face)
|
|
|
|
|
|
,@(if (cdr package-archives)
|
|
|
|
|
|
(list (propertize (or (package-desc-archive pkg-desc) "")
|
|
|
|
|
|
'font-lock-face face)))
|
|
|
|
|
|
,(propertize (package-desc-summary pkg-desc)
|
|
|
|
|
|
'font-lock-face face)])))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu-refresh ()
|
2010-09-04 17:13:14 +00:00
|
|
|
|
"Download the Emacs Lisp package archive.
|
|
|
|
|
|
This fetches the contents of each archive specified in
|
|
|
|
|
|
`package-archives', and then refreshes the package menu."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(interactive)
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(unless (derived-mode-p 'package-menu-mode)
|
2013-09-17 15:52:31 +00:00
|
|
|
|
(user-error "The current buffer is not a Package Menu"))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(package-refresh-contents)
|
2011-04-24 20:32:23 +00:00
|
|
|
|
(package-menu--generate t t))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(defun package-menu-describe-package (&optional button)
|
|
|
|
|
|
"Describe the current package.
|
|
|
|
|
|
If optional arg BUTTON is non-nil, describe its associated package."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(interactive)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(let ((pkg-desc (if button (button-get button 'package-desc)
|
2013-06-15 15:36:11 +00:00
|
|
|
|
(tabulated-list-get-id))))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(if pkg-desc
|
* lisp/emacs-lisp/package.el: Include obsolete packages from archives.
Use lexical-binding.
(package-archive-contents): Change format; include obsolete packages.
(package-desc): Use `dir' to mark builtin packages.
(package--from-builtin): Set the `dir' field to `builtin'.
(generated-autoload-file, version-control): Declare.
(package-compute-transaction): Change first arg and return value to be
lists of package-descs. Adjust to new package-archive-contents format.
(package--add-to-archive-contents): Adjust to new
package-archive-contents format.
(package-download-transaction): Arg is now a list of package-descs.
(package-install): If `pkg' is a package name, pass it as
a requirement, so it is subject to the usual (e.g. disabled) checks.
(describe-package): Accept package-desc as well.
(describe-package-1): Describe a specific package-desc. Add links to
other package-descs for the same package name.
(package-menu-describe-package): Pass the actual package-desc.
(package-menu-mode): Add to tabulated-list-revert-hook so revert-buffer
works correctly.
(package-desc-status): New function.
(package-menu--refresh): New function, extracted
from package-menu--generate.
(package-menu--generate): Use it.
(package-delete): Update package-alist.
(package-menu-execute): Don't call package-initialize.
* lisp/progmodes/idlw-toolbar.el, lisp/progmodes/idlw-shell.el,
lisp/progmodes/idlw-help.el, lisp/progmodes/idlw-complete-structtag.el,
lisp/progmodes/ebnf-yac.el, lisp/progmodes/ebnf-otz.el,
lisp/progmodes/ebnf-iso.el, lisp/progmodes/ebnf-ebx.el,
lisp/progmodes/ebnf-dtd.el, lisp/progmodes/ebnf-bnf.el,
lisp/progmodes/ebnf-abn.el, lisp/emacs-lisp/package-x.el,
lisp/emacs-lisp/cl-seq.el, lisp/emacs-lisp/cl-macs.el
lisp/cedet/data-debug.el, lisp/cedet/cedet-idutils.el:
Neuter the "Version:" header.
2013-06-25 16:13:49 +00:00
|
|
|
|
(describe-package pkg-desc)
|
2013-09-17 15:52:31 +00:00
|
|
|
|
(user-error "No package here"))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
;; fixme numeric argument
|
lisp/*: Add declarations, remove unused bindings, mark unused args.
* lisp/avoid.el (mouse-avoidance-mode): Mark unused arg.
(mouse-avoidance-nudge-mouse): Remove unused binding.
* lisp/imenu.el (imenu-default-goto-function): Mark unused args.
(imenu-progress-message): Remove obsolete macro; all callers changed.
* lisp/mouse.el (mouse-menu-major-mode-map):
* lisp/emacs-lisp/authors.el (authors-scan-change-log)
(authors-add-to-author-list):
* lisp/emacs-lisp/avl-tree.el (avl-tree--enter-balance):
* lisp/emacs-lisp/smie.el (smie-auto-fill):
* lisp/mail/sendmail.el (mail-bury):
* lisp/mail/unrmail.el (unrmail):
* lisp/net/tls.el (open-tls-stream):
* lisp/textmodes/picture.el (picture-mouse-set-point):
Remove unused bindings.
* lisp/subr.el (keymap-canonicalize): Remove unused binding.
(read-passwd): Mark unused arg.
* lisp/tutorial.el (tutorial--display-changes): Remove unused binding.
(tutorial--save-tutorial-to): Remove unused variable.
* lisp/emacs-lisp/package.el (define-package, package-menu-mark-delete)
(package-menu-mark-install, package-menu-mark-unmark): Mark unused args.
(package-generate-autoloads, package-menu--generate)
(package-menu--find-upgrades): Remove unused bindings.
* lisp/emulation/cua-rect.el (cua-restrict-regexp-rectangle)
(cua-restrict-prefix-rectangle): Doc fixes. Remove unused bindings.
(cua--mouse-ignore, cua--delete-rectangle, cua--extract-rectangle)
(cua--indent-rectangle, cua-open-rectangle, cua-close-rectangle)
(cua-blank-rectangle, cua-string-rectangle, cua-replace-in-rectangle)
(cua-incr-rectangle, cua-sequence-rectangle, cua--convert-rectangle-as)
(cua--rectangle-aux-replace, cua--left-fill-rectangle)
(cua-scroll-rectangle-up, cua-scroll-rectangle-down)
(cua-delete-char-rectangle): Mark unused args.
(cua-align-rectangle): Remove unused binding.
* lisp/mail/rmail.el (compilation--message->loc)
(epa--find-coding-system-for-mime-charset): Declare.
* lisp/net/dbus.el (dbus-register-service): Declare.
(dbus-name-owner-changed-handler): Remove unused binding.
* lisp/nxml/nxml-mode.el (nxml-electric-slash, nxml-in-mixed-content-p)
(nxml-compute-indent-from-matching-start-tag): Remove unused variables.
(nxml-scan-backward-within): Mark unused arg.
(nxml-dynamic-markup-word): Remove unused binding.
2012-04-19 17:20:26 +00:00
|
|
|
|
(defun package-menu-mark-delete (&optional _num)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Mark a package for deletion and move to the next line."
|
|
|
|
|
|
(interactive "p")
|
2013-10-03 07:11:27 +00:00
|
|
|
|
(if (member (package-menu-get-status) '("installed" "obsolete" "unsigned"))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(tabulated-list-put-tag "D" t)
|
2010-11-03 23:21:51 +00:00
|
|
|
|
(forward-line)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
lisp/*: Add declarations, remove unused bindings, mark unused args.
* lisp/avoid.el (mouse-avoidance-mode): Mark unused arg.
(mouse-avoidance-nudge-mouse): Remove unused binding.
* lisp/imenu.el (imenu-default-goto-function): Mark unused args.
(imenu-progress-message): Remove obsolete macro; all callers changed.
* lisp/mouse.el (mouse-menu-major-mode-map):
* lisp/emacs-lisp/authors.el (authors-scan-change-log)
(authors-add-to-author-list):
* lisp/emacs-lisp/avl-tree.el (avl-tree--enter-balance):
* lisp/emacs-lisp/smie.el (smie-auto-fill):
* lisp/mail/sendmail.el (mail-bury):
* lisp/mail/unrmail.el (unrmail):
* lisp/net/tls.el (open-tls-stream):
* lisp/textmodes/picture.el (picture-mouse-set-point):
Remove unused bindings.
* lisp/subr.el (keymap-canonicalize): Remove unused binding.
(read-passwd): Mark unused arg.
* lisp/tutorial.el (tutorial--display-changes): Remove unused binding.
(tutorial--save-tutorial-to): Remove unused variable.
* lisp/emacs-lisp/package.el (define-package, package-menu-mark-delete)
(package-menu-mark-install, package-menu-mark-unmark): Mark unused args.
(package-generate-autoloads, package-menu--generate)
(package-menu--find-upgrades): Remove unused bindings.
* lisp/emulation/cua-rect.el (cua-restrict-regexp-rectangle)
(cua-restrict-prefix-rectangle): Doc fixes. Remove unused bindings.
(cua--mouse-ignore, cua--delete-rectangle, cua--extract-rectangle)
(cua--indent-rectangle, cua-open-rectangle, cua-close-rectangle)
(cua-blank-rectangle, cua-string-rectangle, cua-replace-in-rectangle)
(cua-incr-rectangle, cua-sequence-rectangle, cua--convert-rectangle-as)
(cua--rectangle-aux-replace, cua--left-fill-rectangle)
(cua-scroll-rectangle-up, cua-scroll-rectangle-down)
(cua-delete-char-rectangle): Mark unused args.
(cua-align-rectangle): Remove unused binding.
* lisp/mail/rmail.el (compilation--message->loc)
(epa--find-coding-system-for-mime-charset): Declare.
* lisp/net/dbus.el (dbus-register-service): Declare.
(dbus-name-owner-changed-handler): Remove unused binding.
* lisp/nxml/nxml-mode.el (nxml-electric-slash, nxml-in-mixed-content-p)
(nxml-compute-indent-from-matching-start-tag): Remove unused variables.
(nxml-scan-backward-within): Mark unused arg.
(nxml-dynamic-markup-word): Remove unused binding.
2012-04-19 17:20:26 +00:00
|
|
|
|
(defun package-menu-mark-install (&optional _num)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Mark a package for installation and move to the next line."
|
|
|
|
|
|
(interactive "p")
|
2012-06-13 07:33:38 +00:00
|
|
|
|
(if (member (package-menu-get-status) '("available" "new"))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(tabulated-list-put-tag "I" t)
|
2010-11-03 23:21:51 +00:00
|
|
|
|
(forward-line)))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
lisp/*: Add declarations, remove unused bindings, mark unused args.
* lisp/avoid.el (mouse-avoidance-mode): Mark unused arg.
(mouse-avoidance-nudge-mouse): Remove unused binding.
* lisp/imenu.el (imenu-default-goto-function): Mark unused args.
(imenu-progress-message): Remove obsolete macro; all callers changed.
* lisp/mouse.el (mouse-menu-major-mode-map):
* lisp/emacs-lisp/authors.el (authors-scan-change-log)
(authors-add-to-author-list):
* lisp/emacs-lisp/avl-tree.el (avl-tree--enter-balance):
* lisp/emacs-lisp/smie.el (smie-auto-fill):
* lisp/mail/sendmail.el (mail-bury):
* lisp/mail/unrmail.el (unrmail):
* lisp/net/tls.el (open-tls-stream):
* lisp/textmodes/picture.el (picture-mouse-set-point):
Remove unused bindings.
* lisp/subr.el (keymap-canonicalize): Remove unused binding.
(read-passwd): Mark unused arg.
* lisp/tutorial.el (tutorial--display-changes): Remove unused binding.
(tutorial--save-tutorial-to): Remove unused variable.
* lisp/emacs-lisp/package.el (define-package, package-menu-mark-delete)
(package-menu-mark-install, package-menu-mark-unmark): Mark unused args.
(package-generate-autoloads, package-menu--generate)
(package-menu--find-upgrades): Remove unused bindings.
* lisp/emulation/cua-rect.el (cua-restrict-regexp-rectangle)
(cua-restrict-prefix-rectangle): Doc fixes. Remove unused bindings.
(cua--mouse-ignore, cua--delete-rectangle, cua--extract-rectangle)
(cua--indent-rectangle, cua-open-rectangle, cua-close-rectangle)
(cua-blank-rectangle, cua-string-rectangle, cua-replace-in-rectangle)
(cua-incr-rectangle, cua-sequence-rectangle, cua--convert-rectangle-as)
(cua--rectangle-aux-replace, cua--left-fill-rectangle)
(cua-scroll-rectangle-up, cua-scroll-rectangle-down)
(cua-delete-char-rectangle): Mark unused args.
(cua-align-rectangle): Remove unused binding.
* lisp/mail/rmail.el (compilation--message->loc)
(epa--find-coding-system-for-mime-charset): Declare.
* lisp/net/dbus.el (dbus-register-service): Declare.
(dbus-name-owner-changed-handler): Remove unused binding.
* lisp/nxml/nxml-mode.el (nxml-electric-slash, nxml-in-mixed-content-p)
(nxml-compute-indent-from-matching-start-tag): Remove unused variables.
(nxml-scan-backward-within): Mark unused arg.
(nxml-dynamic-markup-word): Remove unused binding.
2012-04-19 17:20:26 +00:00
|
|
|
|
(defun package-menu-mark-unmark (&optional _num)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Clear any marks on a package and move to the next line."
|
|
|
|
|
|
(interactive "p")
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(tabulated-list-put-tag " " t))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu-backup-unmark ()
|
|
|
|
|
|
"Back up one line and clear any marks on that package."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(forward-line -1)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(tabulated-list-put-tag " "))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu-mark-obsolete-for-deletion ()
|
|
|
|
|
|
"Mark all obsolete packages for deletion."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (not (eobp))
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(if (equal (package-menu-get-status) "obsolete")
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(tabulated-list-put-tag "D" t)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(forward-line 1)))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-menu-quick-help ()
|
|
|
|
|
|
"Show short key binding help for package-menu-mode."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(message "n-ext, i-nstall, d-elete, u-nmark, x-ecute, r-efresh, h-elp"))
|
|
|
|
|
|
|
2010-08-26 03:31:34 +00:00
|
|
|
|
(define-obsolete-function-alias
|
|
|
|
|
|
'package-menu-view-commentary 'package-menu-describe-package "24.1")
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
(defun package-menu-get-status ()
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(let* ((id (tabulated-list-get-id))
|
|
|
|
|
|
(entry (and id (assq id tabulated-list-entries))))
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(if entry
|
|
|
|
|
|
(aref (cadr entry) 2)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"")))
|
|
|
|
|
|
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(defun package-menu--find-upgrades ()
|
|
|
|
|
|
(let (installed available upgrades)
|
|
|
|
|
|
;; Build list of installed/available packages in this buffer.
|
|
|
|
|
|
(dolist (entry tabulated-list-entries)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
;; ENTRY is (PKG-DESC [NAME VERSION STATUS DOC])
|
|
|
|
|
|
(let ((pkg-desc (car entry))
|
lisp/*: Add declarations, remove unused bindings, mark unused args.
* lisp/avoid.el (mouse-avoidance-mode): Mark unused arg.
(mouse-avoidance-nudge-mouse): Remove unused binding.
* lisp/imenu.el (imenu-default-goto-function): Mark unused args.
(imenu-progress-message): Remove obsolete macro; all callers changed.
* lisp/mouse.el (mouse-menu-major-mode-map):
* lisp/emacs-lisp/authors.el (authors-scan-change-log)
(authors-add-to-author-list):
* lisp/emacs-lisp/avl-tree.el (avl-tree--enter-balance):
* lisp/emacs-lisp/smie.el (smie-auto-fill):
* lisp/mail/sendmail.el (mail-bury):
* lisp/mail/unrmail.el (unrmail):
* lisp/net/tls.el (open-tls-stream):
* lisp/textmodes/picture.el (picture-mouse-set-point):
Remove unused bindings.
* lisp/subr.el (keymap-canonicalize): Remove unused binding.
(read-passwd): Mark unused arg.
* lisp/tutorial.el (tutorial--display-changes): Remove unused binding.
(tutorial--save-tutorial-to): Remove unused variable.
* lisp/emacs-lisp/package.el (define-package, package-menu-mark-delete)
(package-menu-mark-install, package-menu-mark-unmark): Mark unused args.
(package-generate-autoloads, package-menu--generate)
(package-menu--find-upgrades): Remove unused bindings.
* lisp/emulation/cua-rect.el (cua-restrict-regexp-rectangle)
(cua-restrict-prefix-rectangle): Doc fixes. Remove unused bindings.
(cua--mouse-ignore, cua--delete-rectangle, cua--extract-rectangle)
(cua--indent-rectangle, cua-open-rectangle, cua-close-rectangle)
(cua-blank-rectangle, cua-string-rectangle, cua-replace-in-rectangle)
(cua-incr-rectangle, cua-sequence-rectangle, cua--convert-rectangle-as)
(cua--rectangle-aux-replace, cua--left-fill-rectangle)
(cua-scroll-rectangle-up, cua-scroll-rectangle-down)
(cua-delete-char-rectangle): Mark unused args.
(cua-align-rectangle): Remove unused binding.
* lisp/mail/rmail.el (compilation--message->loc)
(epa--find-coding-system-for-mime-charset): Declare.
* lisp/net/dbus.el (dbus-register-service): Declare.
(dbus-name-owner-changed-handler): Remove unused binding.
* lisp/nxml/nxml-mode.el (nxml-electric-slash, nxml-in-mixed-content-p)
(nxml-compute-indent-from-matching-start-tag): Remove unused variables.
(nxml-scan-backward-within): Mark unused arg.
(nxml-dynamic-markup-word): Remove unused binding.
2012-04-19 17:20:26 +00:00
|
|
|
|
(status (aref (cadr entry) 2)))
|
2014-12-07 21:28:38 +00:00
|
|
|
|
(cond ((member status '("installed" "unsigned"))
|
|
|
|
|
|
(push pkg-desc installed))
|
|
|
|
|
|
((member status '("available" "new"))
|
2015-01-18 12:13:07 +00:00
|
|
|
|
(setq available (package--append-to-alist pkg-desc available))))))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
;; Loop through list of installed packages, finding upgrades.
|
|
|
|
|
|
(dolist (pkg-desc installed)
|
2014-12-07 21:28:38 +00:00
|
|
|
|
(let* ((name (package-desc-name pkg-desc))
|
|
|
|
|
|
(avail-pkg (cadr (assq name available))))
|
|
|
|
|
|
(and avail-pkg
|
|
|
|
|
|
(version-list-< (package-desc-priority-version pkg-desc)
|
|
|
|
|
|
(package-desc-priority-version avail-pkg))
|
|
|
|
|
|
(push (cons name avail-pkg) upgrades))))
|
2011-09-15 01:57:54 +00:00
|
|
|
|
upgrades))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-menu-mark-upgrades ()
|
|
|
|
|
|
"Mark all upgradable packages in the Package Menu.
|
|
|
|
|
|
For each installed package with a newer version available, place
|
|
|
|
|
|
an (I)nstall flag on the available version and a (D)elete flag on
|
|
|
|
|
|
the installed version. A subsequent \\[package-menu-execute]
|
|
|
|
|
|
call will upgrade the package."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(unless (derived-mode-p 'package-menu-mode)
|
|
|
|
|
|
(error "The current buffer is not a Package Menu"))
|
|
|
|
|
|
(let ((upgrades (package-menu--find-upgrades)))
|
|
|
|
|
|
(if (null upgrades)
|
|
|
|
|
|
(message "No packages to upgrade.")
|
|
|
|
|
|
(widen)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (not (eobp))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(let* ((pkg-desc (tabulated-list-get-id))
|
|
|
|
|
|
(upgrade (cdr (assq (package-desc-name pkg-desc) upgrades))))
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(cond ((null upgrade)
|
|
|
|
|
|
(forward-line 1))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
((equal pkg-desc upgrade)
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(package-menu-mark-install))
|
|
|
|
|
|
(t
|
|
|
|
|
|
(package-menu-mark-delete))))))
|
|
|
|
|
|
(message "%d package%s marked for upgrading."
|
|
|
|
|
|
(length upgrades)
|
|
|
|
|
|
(if (= (length upgrades) 1) "" "s")))))
|
|
|
|
|
|
|
2013-02-13 04:59:06 +00:00
|
|
|
|
(defun package-menu-execute (&optional noquery)
|
2010-11-03 23:21:51 +00:00
|
|
|
|
"Perform marked Package Menu actions.
|
|
|
|
|
|
Packages marked for installation are downloaded and installed;
|
2013-02-13 05:00:45 +00:00
|
|
|
|
packages marked for deletion are removed.
|
|
|
|
|
|
Optional argument NOQUERY non-nil means do not ask the user to confirm."
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(interactive)
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(unless (derived-mode-p 'package-menu-mode)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(error "The current buffer is not in Package Menu mode"))
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(let (install-list delete-list cmd pkg-desc)
|
2010-11-03 23:21:51 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (not (eobp))
|
|
|
|
|
|
(setq cmd (char-after))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(unless (eq cmd ?\s)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
;; This is the key PKG-DESC.
|
|
|
|
|
|
(setq pkg-desc (tabulated-list-get-id))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(cond ((eq cmd ?D)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(push pkg-desc delete-list))
|
2011-04-06 20:33:30 +00:00
|
|
|
|
((eq cmd ?I)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(push pkg-desc install-list))))
|
2010-11-03 23:21:51 +00:00
|
|
|
|
(forward-line)))
|
2011-09-15 01:57:54 +00:00
|
|
|
|
(when install-list
|
2013-02-13 04:59:06 +00:00
|
|
|
|
(if (or
|
|
|
|
|
|
noquery
|
|
|
|
|
|
(yes-or-no-p
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(if (= (length install-list) 1)
|
|
|
|
|
|
(format "Install package `%s'? "
|
|
|
|
|
|
(package-desc-full-name (car install-list)))
|
|
|
|
|
|
(format "Install these %d packages (%s)? "
|
|
|
|
|
|
(length install-list)
|
|
|
|
|
|
(mapconcat #'package-desc-full-name
|
|
|
|
|
|
install-list ", ")))))
|
2015-02-01 21:45:47 +00:00
|
|
|
|
(mapc (lambda (p)
|
|
|
|
|
|
(package-install p (and (null (package-installed-p p)) 1)))
|
|
|
|
|
|
install-list)))
|
2010-11-03 23:21:51 +00:00
|
|
|
|
;; Delete packages, prompting if necessary.
|
|
|
|
|
|
(when delete-list
|
2013-02-13 04:59:06 +00:00
|
|
|
|
(if (or
|
|
|
|
|
|
noquery
|
|
|
|
|
|
(yes-or-no-p
|
2010-11-03 23:21:51 +00:00
|
|
|
|
(if (= (length delete-list) 1)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(format "Delete package `%s'? "
|
|
|
|
|
|
(package-desc-full-name (car delete-list)))
|
2010-11-03 23:21:51 +00:00
|
|
|
|
(format "Delete these %d packages (%s)? "
|
|
|
|
|
|
(length delete-list)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(mapconcat #'package-desc-full-name
|
|
|
|
|
|
delete-list ", ")))))
|
2010-11-03 23:21:51 +00:00
|
|
|
|
(dolist (elt delete-list)
|
2012-02-10 15:59:29 +00:00
|
|
|
|
(condition-case-unless-debug err
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(package-delete elt)
|
2010-11-03 23:21:51 +00:00
|
|
|
|
(error (message (cadr err)))))
|
|
|
|
|
|
(error "Aborted")))
|
|
|
|
|
|
(if (or delete-list install-list)
|
2011-04-24 20:32:23 +00:00
|
|
|
|
(package-menu--generate t t)
|
2010-11-03 23:21:51 +00:00
|
|
|
|
(message "No operations specified."))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(defun package-menu--version-predicate (A B)
|
|
|
|
|
|
(let ((vA (or (aref (cadr A) 1) '(0)))
|
|
|
|
|
|
(vB (or (aref (cadr B) 1) '(0))))
|
|
|
|
|
|
(if (version-list-= vA vB)
|
|
|
|
|
|
(package-menu--name-predicate A B)
|
|
|
|
|
|
(version-list-< vA vB))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-menu--status-predicate (A B)
|
|
|
|
|
|
(let ((sA (aref (cadr A) 2))
|
|
|
|
|
|
(sB (aref (cadr B) 2)))
|
|
|
|
|
|
(cond ((string= sA sB)
|
|
|
|
|
|
(package-menu--name-predicate A B))
|
2012-06-13 07:33:38 +00:00
|
|
|
|
((string= sA "new") t)
|
|
|
|
|
|
((string= sB "new") nil)
|
|
|
|
|
|
((string= sA "available") t)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
((string= sB "available") nil)
|
2012-06-13 07:33:38 +00:00
|
|
|
|
((string= sA "installed") t)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
((string= sB "installed") nil)
|
2013-10-03 07:11:27 +00:00
|
|
|
|
((string= sA "unsigned") t)
|
|
|
|
|
|
((string= sB "unsigned") nil)
|
2012-06-13 07:33:38 +00:00
|
|
|
|
((string= sA "held") t)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
((string= sB "held") nil)
|
2012-06-13 07:33:38 +00:00
|
|
|
|
((string= sA "built-in") t)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
((string= sB "built-in") nil)
|
2012-06-13 07:33:38 +00:00
|
|
|
|
((string= sA "obsolete") t)
|
|
|
|
|
|
((string= sB "obsolete") nil)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(t (string< sA sB)))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-menu--description-predicate (A B)
|
|
|
|
|
|
(let ((dA (aref (cadr A) 3))
|
|
|
|
|
|
(dB (aref (cadr B) 3)))
|
|
|
|
|
|
(if (string= dA dB)
|
|
|
|
|
|
(package-menu--name-predicate A B)
|
|
|
|
|
|
(string< dA dB))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun package-menu--name-predicate (A B)
|
2013-06-14 03:20:18 +00:00
|
|
|
|
(string< (symbol-name (package-desc-name (car A)))
|
|
|
|
|
|
(symbol-name (package-desc-name (car B)))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2013-11-04 16:04:09 +00:00
|
|
|
|
(defun package-menu--archive-predicate (A B)
|
|
|
|
|
|
(string< (or (package-desc-archive (car A)) "")
|
|
|
|
|
|
(or (package-desc-archive (car B)) "")))
|
|
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
;;;###autoload
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(defun list-packages (&optional no-fetch)
|
2010-06-17 02:08:10 +00:00
|
|
|
|
"Display a list of packages.
|
2011-04-06 20:33:30 +00:00
|
|
|
|
This first fetches the updated list of packages before
|
|
|
|
|
|
displaying, unless a prefix argument NO-FETCH is specified.
|
2010-06-17 02:08:10 +00:00
|
|
|
|
The list is displayed in a buffer named `*Packages*'."
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(interactive "P")
|
|
|
|
|
|
(require 'finder-inf nil t)
|
2010-10-31 00:06:18 +00:00
|
|
|
|
;; Initialize the package system if necessary.
|
2010-11-03 03:25:36 +00:00
|
|
|
|
(unless package--initialized
|
|
|
|
|
|
(package-initialize t))
|
2012-06-13 07:33:38 +00:00
|
|
|
|
(let (old-archives new-packages)
|
|
|
|
|
|
(unless no-fetch
|
|
|
|
|
|
;; Read the locally-cached archive-contents.
|
|
|
|
|
|
(package-read-all-archive-contents)
|
|
|
|
|
|
(setq old-archives package-archive-contents)
|
|
|
|
|
|
;; Fetch the remote list of packages.
|
|
|
|
|
|
(package-refresh-contents)
|
|
|
|
|
|
;; Find which packages are new.
|
|
|
|
|
|
(dolist (elt package-archive-contents)
|
|
|
|
|
|
(unless (assq (car elt) old-archives)
|
|
|
|
|
|
(push (car elt) new-packages))))
|
|
|
|
|
|
|
|
|
|
|
|
;; Generate the Package Menu.
|
|
|
|
|
|
(let ((buf (get-buffer-create "*Packages*")))
|
|
|
|
|
|
(with-current-buffer buf
|
|
|
|
|
|
(package-menu-mode)
|
|
|
|
|
|
(set (make-local-variable 'package-menu--new-package-list)
|
|
|
|
|
|
new-packages)
|
|
|
|
|
|
(package-menu--generate nil t))
|
|
|
|
|
|
;; The package menu buffer has keybindings. If the user types
|
|
|
|
|
|
;; `M-x list-packages', that suggests it should become current.
|
|
|
|
|
|
(switch-to-buffer buf))
|
|
|
|
|
|
|
|
|
|
|
|
(let ((upgrades (package-menu--find-upgrades)))
|
|
|
|
|
|
(if upgrades
|
|
|
|
|
|
(message "%d package%s can be upgraded; type `%s' to mark %s for upgrading."
|
|
|
|
|
|
(length upgrades)
|
|
|
|
|
|
(if (= (length upgrades) 1) "" "s")
|
|
|
|
|
|
(substitute-command-keys "\\[package-menu-mark-upgrades]")
|
|
|
|
|
|
(if (= (length upgrades) 1) "it" "them"))))))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
2010-08-24 21:36:33 +00:00
|
|
|
|
;;;###autoload
|
2010-08-29 22:15:09 +00:00
|
|
|
|
(defalias 'package-list-packages 'list-packages)
|
2010-08-24 21:36:33 +00:00
|
|
|
|
|
2011-04-24 20:32:23 +00:00
|
|
|
|
;; Used in finder.el
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(defun package-show-package-list (&optional packages keywords)
|
2011-04-24 20:32:23 +00:00
|
|
|
|
"Display PACKAGES in a *Packages* buffer.
|
|
|
|
|
|
This is similar to `list-packages', but it does not fetch the
|
|
|
|
|
|
updated list of packages, and it only displays packages with
|
2013-12-14 19:55:19 +00:00
|
|
|
|
names in PACKAGES (which should be a list of symbols).
|
|
|
|
|
|
|
|
|
|
|
|
When KEYWORDS are given, only packages with those KEYWORDS are
|
|
|
|
|
|
shown."
|
|
|
|
|
|
(interactive)
|
2011-04-24 20:32:23 +00:00
|
|
|
|
(require 'finder-inf nil t)
|
2014-03-23 08:35:56 +00:00
|
|
|
|
(let* ((buf (get-buffer-create "*Packages*"))
|
|
|
|
|
|
(win (get-buffer-window buf)))
|
2011-04-24 20:32:23 +00:00
|
|
|
|
(with-current-buffer buf
|
|
|
|
|
|
(package-menu-mode)
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(package-menu--generate nil packages keywords))
|
2014-03-23 08:35:56 +00:00
|
|
|
|
(if win
|
|
|
|
|
|
(select-window win)
|
|
|
|
|
|
(switch-to-buffer buf))))
|
2011-04-24 20:32:23 +00:00
|
|
|
|
|
2014-02-12 01:20:34 +00:00
|
|
|
|
;; package-menu--generate rebinds "q" on the fly, so we have to
|
|
|
|
|
|
;; hard-code the binding in the doc-string here.
|
|
|
|
|
|
(defun package-menu-filter (keyword)
|
|
|
|
|
|
"Filter the *Packages* buffer.
|
|
|
|
|
|
Show only those items that relate to the specified KEYWORD.
|
|
|
|
|
|
To restore the full package list, type `q'."
|
2013-12-14 19:55:19 +00:00
|
|
|
|
(interactive (list (completing-read "Keyword: " (package-all-keywords))))
|
|
|
|
|
|
(package-show-package-list t (list keyword)))
|
|
|
|
|
|
|
2010-06-17 02:08:10 +00:00
|
|
|
|
(defun package-list-packages-no-fetch ()
|
|
|
|
|
|
"Display a list of packages.
|
|
|
|
|
|
Does not fetch the updated list of packages before displaying.
|
|
|
|
|
|
The list is displayed in a buffer named `*Packages*'."
|
|
|
|
|
|
(interactive)
|
2011-04-06 20:33:30 +00:00
|
|
|
|
(list-packages t))
|
2010-06-17 02:08:10 +00:00
|
|
|
|
|
|
|
|
|
|
(provide 'package)
|
|
|
|
|
|
|
|
|
|
|
|
;;; package.el ends here
|