dotfiles: .elisp/old/package.el annotate

annotate .elisp/old/package.el @ 523:a5a4f9e12c9f

patchpipe: py3 support

author	Augie Fackler <raf@durin42.com>
date	Sat, 06 Aug 2022 10:41:27 -0400
parents	ea73ef5dc38c
children

rev	line source
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1 ;;; package.el --- Simple package system for Emacs
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	2
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	3 ;; Copyright (C) 2007-2011 Free Software Foundation, Inc.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	4
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	5 ;; Author: Tom Tromey <tromey@redhat.com>
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	6 ;; Created: 10 Mar 2007
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	7 ;; Version: 0.9
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	8 ;; Keywords: tools
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	9
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	10 ;; This file is part of GNU Emacs.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	11
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	12 ;; GNU Emacs is free software; you can redistribute it and/or modify
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	13 ;; it under the terms of the GNU General Public License as published by
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	14 ;; the Free Software Foundation; either version 3, or (at your option)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	15 ;; any later version.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	16
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	17 ;; GNU Emacs is distributed in the hope that it will be useful,
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	20 ;; GNU General Public License for more details.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	21
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	22 ;; You should have received a copy of the GNU General Public License
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	25 ;; Boston, MA 02110-1301, USA.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	26
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	27 ;;; Change Log:
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	28
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	29 ;; 2 Apr 2007 - now using ChangeLog file
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	30 ;; 15 Mar 2007 - updated documentation
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	31 ;; 14 Mar 2007 - Changed how obsolete packages are handled
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	32 ;; 13 Mar 2007 - Wrote package-install-from-buffer
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	33 ;; 12 Mar 2007 - Wrote package-menu mode
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	34
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	35 ;;; Commentary:
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	36
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	37 ;; The idea behind package.el is to be able to download packages and
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	38 ;; install them. Packages are versioned and have versioned
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	39 ;; dependencies. Furthermore, this supports built-in packages which
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	40 ;; may or may not be newer than user-specified packages. This makes
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	41 ;; it possible to upgrade Emacs and automatically disable packages
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	42 ;; which have moved from external to core. (Note though that we don't
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	43 ;; currently register any of these, so this feature does not actually
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	44 ;; work.)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	45
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	46 ;; A package is described by its name and version. The distribution
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	47 ;; format is either a tar file or a single .el file.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	48
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	49 ;; A tar file should be named "NAME-VERSION.tar". The tar file must
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	50 ;; unpack into a directory named after the package and version:
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	51 ;; "NAME-VERSION". It must contain a file named "PACKAGE-pkg.el"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	52 ;; which consists of a call to define-package. It may also contain a
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	53 ;; "dir" file and the info files it references.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	54
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	55 ;; A .el file is named "NAME-VERSION.el" in the remote archive, but is
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	56 ;; installed as simply "NAME.el" in a directory named "NAME-VERSION".
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	57
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	58 ;; The downloader downloads all dependent packages. By default,
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	59 ;; packages come from the official GNU sources, but others may be
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	60 ;; added by customizing the `package-archives' alist. Packages get
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	61 ;; byte-compiled at install time.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	62
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	63 ;; At activation time we will set up the load-path and the info path,
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	64 ;; and we will load the package's autoloads. If a package's
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	65 ;; dependencies are not available, we will not activate that package.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	66
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	67 ;; Conceptually a package has multiple state transitions:
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	68 ;;
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	69 ;; * Download. Fetching the package from ELPA.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	70 ;; * Install. Untar the package, or write the .el file, into
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	71 ;; ~/.emacs.d/elpa/ directory.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	72 ;; * Byte compile. Currently this phase is done during install,
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	73 ;; but we may change this.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	74 ;; * Activate. Evaluate the autoloads for the package to make it
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	75 ;; available to the user.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	76 ;; * Load. Actually load the package and run some code from it.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	77
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	78 ;; Other external functions you may want to use:
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	79 ;;
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	80 ;; M-x list-packages
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	81 ;; Enters a mode similar to buffer-menu which lets you manage
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	82 ;; packages. You can choose packages for install (mark with "i",
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	83 ;; then "x" to execute) or deletion (not implemented yet), and you
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	84 ;; can see what packages are available. This will automatically
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	85 ;; fetch the latest list of packages from ELPA.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	86 ;;
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	87 ;; M-x package-list-packages-no-fetch
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	88 ;; Like package-list-packages, but does not automatically fetch the
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	89 ;; new list of packages.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	90 ;;
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	91 ;; M-x package-install-from-buffer
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	92 ;; Install a package consisting of a single .el file that appears
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	93 ;; in the current buffer. This only works for packages which
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	94 ;; define a Version header properly; package.el also supports the
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	95 ;; extension headers Package-Version (in case Version is an RCS id
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	96 ;; or similar), and Package-Requires (if the package requires other
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	97 ;; packages).
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	98 ;;
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	99 ;; M-x package-install-file
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	100 ;; Install a package from the indicated file. The package can be
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	101 ;; either a tar file or a .el file. A tar file must contain an
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	102 ;; appropriately-named "-pkg.el" file; a .el file must be properly
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	103 ;; formatted as with package-install-from-buffer.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	104
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	105 ;;; Thanks:
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	106 ;;; (sorted by sort-lines):
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	107
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	108 ;; Jim Blandy <jimb@red-bean.com>
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	109 ;; Karl Fogel <kfogel@red-bean.com>
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	110 ;; Kevin Ryde <user42@zip.com.au>
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	111 ;; Lawrence Mitchell
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	112 ;; Michael Olson <mwolson@member.fsf.org>
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	113 ;; Sebastian Tennant <sebyte@smolny.plus.com>
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	114 ;; Stefan Monnier <monnier@iro.umontreal.ca>
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	115 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	116 ;; Phil Hagelberg <phil@hagelb.org>
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	117
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	118 ;;; ToDo:
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	119
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	120 ;; - putting info dirs at the start of the info path means
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	121 ;; users see a weird ordering of categories. OTOH we want to
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	122 ;; override later entries. maybe emacs needs to enforce
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	123 ;; the standard layout?
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	124 ;; - put bytecode in a separate directory tree
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	125 ;; - perhaps give users a way to recompile their bytecode
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	126 ;; or do it automatically when emacs changes
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	127 ;; - give users a way to know whether a package is installed ok
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	128 ;; - give users a way to view a package's documentation when it
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	129 ;; only appears in the .el
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	130 ;; - use/extend checkdoc so people can tell if their package will work
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	131 ;; - "installed" instead of a blank in the status column
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	132 ;; - tramp needs its files to be compiled in a certain order.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	133 ;; how to handle this? fix tramp?
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	134 ;; - on emacs 21 we don't kill the -autoloads.el buffer. what about 22?
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	135 ;; - maybe we need separate .elc directories for various emacs versions
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	136 ;; and also emacs-vs-xemacs. That way conditional compilation can
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	137 ;; work. But would this break anything?
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	138 ;; - should store the package's keywords in archive-contents, then
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	139 ;; let the users filter the package-menu by keyword. See
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	140 ;; finder-by-keyword. (We could also let people view the
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	141 ;; Commentary, but it isn't clear how useful this is.)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	142 ;; - William Xu suggests being able to open a package file without
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	143 ;; installing it
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	144 ;; - Interface with desktop.el so that restarting after an install
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	145 ;; works properly
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	146 ;; - Implement M-x package-upgrade, to upgrade any/all existing packages
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	147 ;; - Use hierarchical layout. PKG/etc PKG/lisp PKG/info
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	148 ;; ... except maybe lisp?
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	149 ;; - It may be nice to have a macro that expands to the package's
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	150 ;; private data dir, aka ".../etc". Or, maybe data-directory
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	151 ;; needs to be a list (though this would be less nice)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	152 ;; a few packages want this, eg sokoban
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	153 ;; - package menu needs:
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	154 ;; ability to know which packages are built-in & thus not deletable
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	155 ;; it can sometimes print odd results, like 0.3 available but 0.4 active
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	156 ;; why is that?
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	157 ;; - Allow multiple versions on the server...?
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	158 ;; [ why bother? ]
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	159 ;; - Don't install a package which will invalidate dependencies overall
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	160 ;; - Allow something like (or (>= emacs 21.0) (>= xemacs 21.5))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	161 ;; [ currently thinking, why bother.. KISS ]
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	162 ;; - Allow optional package dependencies
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	163 ;; then if we require 'bbdb', bbdb-specific lisp in lisp/bbdb
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	164 ;; and just don't compile to add to load path ...?
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	165 ;; - Have a list of archive URLs? [ maybe there's no point ]
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	166 ;; - David Kastrup pointed out on the xemacs list that for GPL it
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	167 ;; is friendlier to ship the source tree. We could "support" that
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	168 ;; by just having a "src" subdir in the package. This isn't ideal
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	169 ;; but it probably is not worth trying to support random source
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	170 ;; tree layouts, build schemes, etc.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	171 ;; - Our treatment of the info path is somewhat bogus
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	172 ;; - perhaps have an "unstable" tree in ELPA as well as a stable one
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	173
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	174 ;;; Code:
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	175
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	176 (defgroup package nil
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	177 "Manager for Emacs Lisp packages."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	178 :group 'applications
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	179 :version "24.1")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	180
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	181 ;;;###autoload
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	182 (defcustom package-enable-at-startup t
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	183 "Whether to activate installed packages when Emacs starts.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	184 If non-nil, packages are activated after reading the init file
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	185 and before `after-init-hook'. Activation is not done if
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	186 `user-init-file' is nil (e.g. Emacs was started with \"-q\").
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	187
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	188 Even if the value is nil, you can type \\[package-initialize] to
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	189 activate the package system at any time."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	190 :type 'boolean
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	191 :group 'package
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	192 :version "24.1")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	193
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	194 (defcustom package-load-list '(all)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	195 "List of packages for `package-initialize' to load.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	196 Each element in this list should be a list (NAME VERSION), or the
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	197 symbol `all'. The symbol `all' says to load the latest installed
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	198 versions of all packages not specified by other elements.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	199
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	200 For an element (NAME VERSION), NAME is a package name (a symbol).
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	201 VERSION should be t, a string, or nil.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	202 If VERSION is t, all versions are loaded, though obsolete ones
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	203 will be put in `package-obsolete-alist' and not activated.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	204 If VERSION is a string, only that version is ever loaded.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	205 Any other version, even if newer, is silently ignored.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	206 Hence, the package is \"held\" at that version.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	207 If VERSION is nil, the package is not loaded (it is \"disabled\")."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	208 :type '(repeat symbol)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	209 :risky t
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	210 :group 'package
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	211 :version "24.1")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	212
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	213 (defvar Info-directory-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	214 (declare-function info-initialize "info" ())
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	215 (declare-function url-http-parse-response "url-http" ())
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	216 (declare-function lm-header "lisp-mnt" (header))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	217 (declare-function lm-commentary "lisp-mnt" (&optional file))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	218 (defvar url-http-end-of-headers)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	219
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	220 (defcustom package-archives '(("gnu" . "http://elpa.gnu.org/packages/"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	221 "An alist of archives from which to fetch.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	222 The default value points to the GNU Emacs package repository.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	223
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	224 Each element has the form (ID . LOCATION).
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	225 ID is an archive name, as a string.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	226 LOCATION specifies the base location for the archive.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	227 If it starts with \"http:\", it is treated as a HTTP URL;
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	228 otherwise it should be an absolute directory name.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	229 (Other types of URL are currently not supported.)"
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	230 :type '(alist :key-type (string :tag "Archive name")
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	231 :value-type (string :tag "URL or directory name"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	232 :risky t
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	233 :group 'package
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	234 :version "24.1")
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	235
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	236 (defconst package-archive-version 1
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	237 "Version number of the package archive understood by this file.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	238 Lower version numbers than this will probably be understood as well.")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	239
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	240 (defconst package-el-version "1.0"
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	241 "Version of package.el.")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	242
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	243 ;; We don't prime the cache since it tends to get out of date.
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	244 (defvar package-archive-contents nil
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	245 "Cache of the contents of the Emacs Lisp Package Archive.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	246 This is an alist mapping package names (symbols) to package
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	247 descriptor vectors. These are like the vectors for `package-alist'
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	248 but have extra entries: one which is 'tar for tar packages and
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	249 'single for single-file packages, and one which is the name of
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	250 the archive from which it came.")
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	251 (put 'package-archive-contents 'risky-local-variable t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	252
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	253 (defcustom package-user-dir (locate-user-emacs-file "elpa")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	254 "Directory containing the user's Emacs Lisp packages.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	255 The directory name should be absolute.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	256 Apart from this directory, Emacs also looks for system-wide
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	257 packages in `package-directory-list'."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	258 :type 'directory
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	259 :risky t
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	260 :group 'package
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	261 :version "24.1")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	262
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	263 (defcustom package-directory-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	264 ;; Defaults are subdirs named "elpa" in the site-lisp dirs.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	265 (let (result)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	266 (dolist (f load-path)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	267 (and (stringp f)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	268 (equal (file-name-nondirectory f) "site-lisp")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	269 (push (expand-file-name "elpa" f) result)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	270 (nreverse result))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	271 "List of additional directories containing Emacs Lisp packages.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	272 Each directory name should be absolute.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	273
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	274 These directories contain packages intended for system-wide; in
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	275 contrast, `package-user-dir' contains packages for personal use."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	276 :type '(repeat directory)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	277 :risky t
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	278 :group 'package
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	279 :version "24.1")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	280
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	281 ;; The value is precomputed in finder-inf.el, but don't load that
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	282 ;; until it's needed (i.e. when `package-intialize' is called).
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	283 (defvar package--builtins nil
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	284 "Alist of built-in packages.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	285 The actual value is initialized by loading the library
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	286 `finder-inf'; this is not done until it is needed, e.g. by the
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	287 function `package-built-in-p'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	288
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	289 Each element has the form (PKG . DESC), where PKG is a package
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	290 name (a symbol) and DESC is a vector that describes the package.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	291 The vector DESC has the form [VERSION REQS DOCSTRING].
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	292 VERSION is a version list.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	293 REQS is a list of packages (symbols) required by the package.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	294 DOCSTRING is a brief description of the package.")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	295 (put 'package--builtins 'risky-local-variable t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	296
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	297 (defvar package-alist nil
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	298 "Alist of all packages available for activation.
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	299 Each element has the form (PKG . DESC), where PKG is a package
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	300 name (a symbol) and DESC is a vector that describes the package.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	301
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	302 The vector DESC has the form [VERSION REQS DOCSTRING].
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	303 VERSION is a version list.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	304 REQS is a list of packages (symbols) required by the package.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	305 DOCSTRING is a brief description of the package.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	306
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	307 This variable is set automatically by `package-load-descriptor',
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	308 called via `package-initialize'. To change which packages are
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	309 loaded and/or activated, customize `package-load-list'.")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	310 (put 'package-archive-contents 'risky-local-variable t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	311
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	312 (defvar package-activated-list nil
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	313 "List of the names of currently activated packages.")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	314 (put 'package-activated-list 'risky-local-variable t)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	315
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	316 (defvar package-obsolete-alist nil
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	317 "Representation of obsolete packages.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	318 Like `package-alist', but maps package name to a second alist.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	319 The inner alist is keyed by version.")
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	320 (put 'package-obsolete-alist 'risky-local-variable t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	321
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	322 (defconst package-subdirectory-regexp
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	323 "\\`\$[^.].?\$-\$[0-9]+\\(?:[.][0-9]+\\\|\\(?:pre\\\|beta\\\|alpha\$[0-9]+\\)\\)\\'"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	324 "Regular expression matching the name of a package subdirectory.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	325 The first subexpression is the package name.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	326 The second subexpression is the version string.")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	327
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	328 (defun package-version-join (vlist)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	329 "Return the version string corresponding to the list VLIST.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	330 This is, approximately, the inverse of `version-to-list'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	331 \(Actually, it returns only one of the possible inverses, since
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	332 `version-to-list' is a many-to-one operation.)"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	333 (if (null vlist)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	334 ""
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	335 (let ((str-list (list "." (int-to-string (car vlist)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	336 (dolist (num (cdr vlist))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	337 (cond
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	338 ((>= num 0)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	339 (push (int-to-string num) str-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	340 (push "." str-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	341 ((< num -3)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	342 (error "Invalid version list `%s'" vlist))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	343 (t
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	344 ;; pre, or beta, or alpha
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	345 (cond ((equal "." (car str-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	346 (pop str-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	347 ((not (string-match "[0-9]+" (car str-list)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	348 (error "Invalid version list `%s'" vlist)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	349 (push (cond ((= num -1) "pre")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	350 ((= num -2) "beta")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	351 ((= num -3) "alpha"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	352 str-list))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	353 (if (equal "." (car str-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	354 (pop str-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	355 (apply 'concat (nreverse str-list)))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	356
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	357 (defun package-strip-version (dirname)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	358 "Strip the version from a combined package name and version.
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	359 E.g., if given \"quux-23.0\", will return \"quux\""
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	360 (if (string-match package-subdirectory-regexp dirname)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	361 (match-string 1 dirname)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	362
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	363 (defun package-load-descriptor (dir package)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	364 "Load the description file in directory DIR for package PACKAGE.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	365 Here, PACKAGE is a string of the form NAME-VER, where NAME is the
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	366 package name and VER is its version."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	367 (let* ((pkg-dir (expand-file-name package dir))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	368 (pkg-file (expand-file-name
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	369 (concat (package-strip-version package) "-pkg")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	370 pkg-dir)))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	371 (when (and (file-directory-p pkg-dir)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	372 (file-exists-p (concat pkg-file ".el")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	373 (load pkg-file nil t))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	374
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	375 (defun package-load-all-descriptors ()
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	376 "Load descriptors for installed Emacs Lisp packages.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	377 This looks for package subdirectories in `package-user-dir' and
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	378 `package-directory-list'. The variable `package-load-list'
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	379 controls which package subdirectories may be loaded.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	380
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	381 In each valid package subdirectory, this function loads the
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	382 description file containing a call to `define-package', which
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	383 updates `package-alist' and `package-obsolete-alist'."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	384 (let ((all (memq 'all package-load-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	385 name version force)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	386 (dolist (dir (cons package-user-dir package-directory-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	387 (when (file-directory-p dir)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	388 (dolist (subdir (directory-files dir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	389 (when (and (file-directory-p (expand-file-name subdir dir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	390 (string-match package-subdirectory-regexp subdir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	391 (setq name (intern (match-string 1 subdir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	392 version (match-string 2 subdir)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	393 force (assq name package-load-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	394 (when (cond
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	395 ((null force)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	396 all) ; not in package-load-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	397 ((null (setq force (cadr force)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	398 nil) ; disabled
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	399 ((eq force t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	400 t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	401 ((stringp force) ; held
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	402 (version-list-= (version-to-list version)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	403 (version-to-list force)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	404 (t
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	405 (error "Invalid element in `package-load-list'")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	406 (package-load-descriptor dir subdir))))))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	407
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	408 (defsubst package-desc-vers (desc)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	409 "Extract version from a package description vector."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	410 (aref desc 0))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	411
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	412 (defsubst package-desc-reqs (desc)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	413 "Extract requirements from a package description vector."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	414 (aref desc 1))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	415
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	416 (defsubst package-desc-doc (desc)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	417 "Extract doc string from a package description vector."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	418 (aref desc 2))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	419
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	420 (defsubst package-desc-kind (desc)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	421 "Extract the kind of download from an archive package description vector."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	422 (aref desc 3))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	423
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	424 (defun package--dir (name version)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	425 "Return the directory where a package is installed, or nil if none.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	426 NAME and VERSION are both strings."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	427 (let* ((subdir (concat name "-" version))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	428 (dir-list (cons package-user-dir package-directory-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	429 pkg-dir)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	430 (while dir-list
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	431 (let ((subdir-full (expand-file-name subdir (car dir-list))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	432 (if (file-directory-p subdir-full)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	433 (setq pkg-dir subdir-full
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	434 dir-list nil)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	435 (setq dir-list (cdr dir-list)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	436 pkg-dir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	437
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	438 (defun package-activate-1 (package pkg-vec)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	439 (let* ((name (symbol-name package))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	440 (version-str (package-version-join (package-desc-vers pkg-vec)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	441 (pkg-dir (package--dir name version-str)))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	442 (unless pkg-dir
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	443 (error "Internal error: unable to find directory for `%s-%s'"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	444 name version-str))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	445 ;; Add info node.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	446 (when (file-exists-p (expand-file-name "dir" pkg-dir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	447 ;; FIXME: not the friendliest, but simple.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	448 (require 'info)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	449 (info-initialize)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	450 (push pkg-dir Info-directory-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	451 ;; Add to load path, add autoloads, and activate the package.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	452 (push pkg-dir load-path)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	453 (load (expand-file-name (concat name "-autoloads") pkg-dir) nil t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	454 (push package package-activated-list)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	455 ;; Don't return nil.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	456 t))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	457
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	458 (defun package-built-in-p (package &optional version)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	459 "Return true if PACKAGE, of VERSION or newer, is built-in to Emacs."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	460 (require 'finder-inf nil t) ; For `package--builtins'.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	461 (let ((elt (assq package package--builtins)))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	462 (and elt (version-list-<= version (package-desc-vers (cdr elt))))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	463
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	464 ;; This function goes ahead and activates a newer version of a package
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	465 ;; if an older one was already activated. This is not ideal; we'd at
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	466 ;; least need to check to see if the package has actually been loaded,
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	467 ;; and not merely activated.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	468 (defun package-activate (package version)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	469 "Activate package PACKAGE, of version VERSION or newer.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	470 If PACKAGE has any dependencies, recursively activate them.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	471 Return nil if the package could not be activated."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	472 (let ((pkg-vec (cdr (assq package package-alist)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	473 available-version found)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	474 ;; Check if PACKAGE is available in `package-alist'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	475 (when pkg-vec
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	476 (setq available-version (package-desc-vers pkg-vec)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	477 found (version-list-<= version available-version)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	478 (cond
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	479 ;; If no such package is found, maybe it's built-in.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	480 ((null found)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	481 (package-built-in-p package version))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	482 ;; If the package is already activated, just return t.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	483 ((memq package package-activated-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	484 t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	485 ;; Otherwise, proceed with activation.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	486 (t
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	487 (let ((fail (catch 'dep-failure
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	488 ;; Activate its dependencies recursively.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	489 (dolist (req (package-desc-reqs pkg-vec))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	490 (unless (package-activate (car req) (cadr req))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	491 (throw 'dep-failure req))))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	492 (if fail
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	493 (warn "Unable to activate package `%s'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	494 Required package `%s-%s' is unavailable"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	495 package (car fail) (package-version-join (cadr fail)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	496 ;; If all goes well, activate the package itself.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	497 (package-activate-1 package pkg-vec)))))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	498
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	499 (defun package-mark-obsolete (package pkg-vec)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	500 "Put package on the obsolete list, if not already there."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	501 (let ((elt (assq package package-obsolete-alist)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	502 (if elt
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	503 ;; If this obsolete version does not exist in the list, update
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	504 ;; it the list.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	505 (unless (assoc (package-desc-vers pkg-vec) (cdr elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	506 (setcdr elt (cons (cons (package-desc-vers pkg-vec) pkg-vec)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	507 (cdr elt))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	508 ;; Make a new association.
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	509 (push (cons package (list (cons (package-desc-vers pkg-vec)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	510 pkg-vec)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	511 package-obsolete-alist))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	512
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	513 (defun define-package (name-string version-string
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	514 &optional docstring requirements
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	515 &rest extra-properties)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	516 "Define a new package.
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	517 NAME-STRING is the name of the package, as a string.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	518 VERSION-STRING is the version of the package, as a list of
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	519 integers of the form produced by `version-to-list'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	520 DOCSTRING is a short description of the package, a string.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	521 REQUIREMENTS is a list of dependencies on other packages.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	522 Each requirement is of the form (OTHER-PACKAGE \"VERSION\").
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	523
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	524 EXTRA-PROPERTIES is currently unused."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	525 (let* ((name (intern name-string))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	526 (version (version-to-list version-string))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	527 (new-pkg-desc
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	528 (cons name
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	529 (vector version
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	530 (mapcar
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	531 (lambda (elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	532 (list (car elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	533 (version-to-list (car (cdr elt)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	534 requirements)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	535 docstring)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	536 (old-pkg (assq name package-alist)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	537 (cond
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	538 ;; If there's no old package, just add this to `package-alist'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	539 ((null old-pkg)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	540 (push new-pkg-desc package-alist))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	541 ((version-list-< (package-desc-vers (cdr old-pkg)) version)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	542 ;; Remove the old package and declare it obsolete.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	543 (package-mark-obsolete name (cdr old-pkg))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	544 (setq package-alist (cons new-pkg-desc
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	545 (delq old-pkg package-alist))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	546 ;; You can have two packages with the same version, e.g. one in
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	547 ;; the system package directory and one in your private
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	548 ;; directory. We just let the first one win.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	549 ((not (version-list-= (package-desc-vers (cdr old-pkg)) version))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	550 ;; The package is born obsolete.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	551 (package-mark-obsolete name (cdr new-pkg-desc))))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	552
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	553 ;; From Emacs 22.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	554 (defun package-autoload-ensure-default-file (file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	555 "Make sure that the autoload file FILE exists and if not create it."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	556 (unless (file-exists-p file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	557 (write-region
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	558 (concat ";;; " (file-name-nondirectory file)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	559 " --- automatically extracted autoloads\n"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	560 ";;\n"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	561 ";;; Code:\n\n"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	562 "\n;; Local Variables:\n"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	563 ";; version-control: never\n"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	564 ";; no-byte-compile: t\n"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	565 ";; no-update-autoloads: t\n"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	566 ";; End:\n"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	567 ";;; " (file-name-nondirectory file)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	568 " ends here\n")
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	569 nil file))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	570 file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	571
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	572 (defun package-generate-autoloads (name pkg-dir)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	573 (let* ((auto-name (concat name "-autoloads.el"))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	574 (ignore-name (concat name "-pkg.el"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	575 (generated-autoload-file (expand-file-name auto-name pkg-dir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	576 (version-control 'never))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	577 (require 'autoload)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	578 (unless (fboundp 'autoload-ensure-default-file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	579 (package-autoload-ensure-default-file generated-autoload-file))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	580 (update-directory-autoloads pkg-dir)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	581
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	582 (defun package-untar-buffer ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	583 "Untar the current buffer.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	584 This uses `tar-untar-buffer' if it is available.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	585 Otherwise it uses an external `tar' program.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	586 `default-directory' should be set by the caller."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	587 (require 'tar-mode)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	588 (if (fboundp 'tar-untar-buffer)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	589 (progn
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	590 ;; tar-mode messes with narrowing, so we just let it have the
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	591 ;; whole buffer to play with.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	592 (delete-region (point-min) (point))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	593 (tar-mode)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	594 (tar-untar-buffer))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	595 ;; FIXME: check the result.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	596 (call-process-region (point) (point-max) "tar" nil '(nil nil) nil
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	597 "xf" "-")))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	598
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	599 (defun package-unpack (name version)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	600 (let ((pkg-dir (expand-file-name (concat (symbol-name name) "-" version)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	601 package-user-dir)))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	602 (make-directory package-user-dir t)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	603 ;; FIXME: should we delete PKG-DIR if it exists?
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	604 (let* ((default-directory (file-name-as-directory package-user-dir)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	605 (package-untar-buffer)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	606 (package-generate-autoloads (symbol-name name) pkg-dir)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	607 (let ((load-path (cons pkg-dir load-path)))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	608 (byte-recompile-directory pkg-dir 0 t)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	609
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	610 (defun package--write-file-no-coding (file-name)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	611 (let ((buffer-file-coding-system 'no-conversion))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	612 (write-region (point-min) (point-max) file-name)))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	613
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	614 (defun package-unpack-single (file-name version desc requires)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	615 "Install the contents of the current buffer as a package."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	616 ;; Special case "package".
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	617 (if (string= file-name "package")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	618 (package--write-file-no-coding
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	619 (expand-file-name (concat file-name ".el") package-user-dir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	620 (let* ((pkg-dir (expand-file-name (concat file-name "-"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	621 (package-version-join
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	622 (version-to-list version)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	623 package-user-dir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	624 (el-file (expand-file-name (concat file-name ".el") pkg-dir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	625 (pkg-file (expand-file-name (concat file-name "-pkg.el") pkg-dir)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	626 (make-directory pkg-dir t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	627 (package--write-file-no-coding el-file)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	628 (let ((print-level nil)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	629 (print-length nil))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	630 (write-region
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	631 (concat
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	632 (prin1-to-string
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	633 (list 'define-package
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	634 file-name
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	635 version
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	636 desc
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	637 (list 'quote
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	638 ;; Turn version lists into string form.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	639 (mapcar
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	640 (lambda (elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	641 (list (car elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	642 (package-version-join (cadr elt))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	643 requires))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	644 "\n")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	645 nil
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	646 pkg-file
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	647 nil nil nil 'excl))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	648 (package-generate-autoloads file-name pkg-dir)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	649 (let ((load-path (cons pkg-dir load-path)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	650 (byte-recompile-directory pkg-dir 0 t)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	651
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	652 (defmacro package--with-work-buffer (location file &rest body)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	653 "Run BODY in a buffer containing the contents of FILE at LOCATION.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	654 LOCATION is the base location of a package archive, and should be
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	655 one of the URLs (or file names) specified in `package-archives'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	656 FILE is the name of a file relative to that base location.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	657
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	658 This macro retrieves FILE from LOCATION into a temporary buffer,
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	659 and evaluates BODY while that buffer is current. This work
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	660 buffer is killed afterwards. Return the last value in BODY."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	661 `(let* ((http (string-match "\\`http:" ,location))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	662 (buffer
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	663 (if http
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	664 (url-retrieve-synchronously (concat ,location ,file))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	665 (generate-new-buffer "package work buffer"))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	666 (prog1
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	667 (with-current-buffer buffer
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	668 (if http
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	669 (progn (package-handle-response)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	670 (re-search-forward "^$" nil 'move)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	671 (forward-char)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	672 (delete-region (point-min) (point)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	673 (unless (file-name-absolute-p ,location)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	674 (error "Archive location %s is not an absolute file name"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	675 ,location))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	676 (insert-file-contents (expand-file-name ,file ,location)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	677 ,@body)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	678 (kill-buffer buffer))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	679
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	680 (defun package-handle-response ()
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	681 "Handle the response from a `url-retrieve-synchronously' call.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	682 Parse the HTTP response and throw if an error occurred.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	683 The url package seems to require extra processing for this.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	684 This should be called in a `save-excursion', in the download buffer.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	685 It will move point to somewhere in the headers."
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	686 ;; We assume HTTP here.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	687 (require 'url-http)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	688 (let ((response (url-http-parse-response)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	689 (when (or (< response 200) (>= response 300))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	690 (error "Error during download request:%s"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	691 (buffer-substring-no-properties (point) (progn
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	692 (end-of-line)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	693 (point)))))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	694
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	695 (defun package-download-single (name version desc requires)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	696 "Download and install a single-file package."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	697 (let ((location (package-archive-base name))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	698 (file (concat (symbol-name name) "-" version ".el")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	699 (package--with-work-buffer location file
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	700 (package-unpack-single (symbol-name name) version desc requires))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	701
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	702 (defun package-download-tar (name version)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	703 "Download and install a tar package."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	704 (let ((location (package-archive-base name))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	705 (file (concat (symbol-name name) "-" version ".tar")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	706 (package--with-work-buffer location file
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	707 (package-unpack name version))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	708
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	709 (defun package-installed-p (package &optional min-version)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	710 "Return true if PACKAGE, of VERSION or newer, is installed.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	711 Built-in packages also qualify."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	712 (let ((pkg-desc (assq package package-alist)))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	713 (if pkg-desc
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	714 (version-list-<= min-version
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	715 (package-desc-vers (cdr pkg-desc)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	716 ;; Also check built-in packages.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	717 (package-built-in-p package min-version))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	718
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	719 (defun package-compute-transaction (package-list requirements)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	720 "Return a list of packages to be installed, including PACKAGE-LIST.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	721 PACKAGE-LIST should be a list of package names (symbols).
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	722
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	723 REQUIREMENTS should be a list of additional requirements; each
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	724 element in this list should have the form (PACKAGE VERSION),
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	725 where PACKAGE is a package name and VERSION is the required
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	726 version of that package (as a list).
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	727
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	728 This function recursively computes the requirements of the
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	729 packages in REQUIREMENTS, and returns a list of all the packages
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	730 that must be installed. Packages that are already installed are
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	731 not included in this list."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	732 (dolist (elt requirements)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	733 (let* ((next-pkg (car elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	734 (next-version (cadr elt)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	735 (unless (package-installed-p next-pkg next-version)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	736 ;; A package is required, but not installed. It might also be
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	737 ;; blocked via `package-load-list'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	738 (let ((pkg-desc (assq next-pkg package-archive-contents))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	739 hold)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	740 (when (setq hold (assq next-pkg package-load-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	741 (setq hold (cadr hold))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	742 (cond ((eq hold nil)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	743 (error "Required package '%s' is disabled"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	744 (symbol-name next-pkg)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	745 ((null (stringp hold))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	746 (error "Invalid element in `package-load-list'"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	747 ((version-list-< (version-to-list hold) next-version)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	748 (error "Package `%s' held at version %s, \
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	749 but version %s required"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	750 (symbol-name next-pkg) hold
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	751 (package-version-join next-version)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	752 (unless pkg-desc
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	753 (error "Package `%s-%s' is unavailable"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	754 (symbol-name next-pkg)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	755 (package-version-join next-version)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	756 (unless (version-list-<= next-version
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	757 (package-desc-vers (cdr pkg-desc)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	758 (error
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	759 "Need package `%s-%s', but only %s is available"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	760 (symbol-name next-pkg) (package-version-join next-version)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	761 (package-version-join (package-desc-vers (cdr pkg-desc)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	762 ;; Only add to the transaction if we don't already have it.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	763 (unless (memq next-pkg package-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	764 (push next-pkg package-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	765 (setq package-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	766 (package-compute-transaction package-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	767 (package-desc-reqs
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	768 (cdr pkg-desc))))))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	769 package-list)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	770
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	771 (defun package-read-from-string (str)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	772 "Read a Lisp expression from STR.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	773 Signal an error if the entire string was not used."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	774 (let* ((read-data (read-from-string str))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	775 (more-left
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	776 (condition-case nil
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	777 ;; The call to `ignore' suppresses a compiler warning.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	778 (progn (ignore (read-from-string
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	779 (substring str (cdr read-data))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	780 t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	781 (end-of-file nil))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	782 (if more-left
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	783 (error "Can't read whole string")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	784 (car read-data))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	785
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	786 (defun package--read-archive-file (file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	787 "Re-read archive file FILE, if it exists.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	788 Will return the data from the file, or nil if the file does not exist.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	789 Will throw an error if the archive version is too new."
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	790 (let ((filename (expand-file-name file package-user-dir)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	791 (when (file-exists-p filename)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	792 (with-temp-buffer
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	793 (insert-file-contents-literally filename)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	794 (let ((contents (read (current-buffer))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	795 (if (> (car contents) package-archive-version)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	796 (error "Package archive version %d is higher than %d"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	797 (car contents) package-archive-version))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	798 (cdr contents))))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	799
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	800 (defun package-read-all-archive-contents ()
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	801 "Re-read `archive-contents', if it exists.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	802 If successful, set `package-archive-contents'."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	803 (setq package-archive-contents nil)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	804 (dolist (archive package-archives)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	805 (package-read-archive-contents (car archive))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	806
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	807 (defun package-read-archive-contents (archive)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	808 "Re-read archive contents for ARCHIVE.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	809 If successful, set the variable `package-archive-contents'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	810 If the archive version is too new, signal an error."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	811 ;; Version 1 of 'archive-contents' is identical to our internal
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	812 ;; representation.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	813 (let* ((dir (concat "archives/" archive))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	814 (contents-file (concat dir "/archive-contents"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	815 contents)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	816 (when (setq contents (package--read-archive-file contents-file))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	817 (dolist (package contents)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	818 (package--add-to-archive-contents package archive)))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	819
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	820 (defun package--add-to-archive-contents (package archive)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	821 "Add the PACKAGE from the given ARCHIVE if necessary.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	822 Also, add the originating archive to the end of the package vector."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	823 (let* ((name (car package))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	824 (version (aref (cdr package) 0))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	825 (entry (cons (car package)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	826 (vconcat (cdr package) (vector archive))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	827 (existing-package (cdr (assq name package-archive-contents))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	828 (when (or (not existing-package)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	829 (version-list-< (aref existing-package 0) version))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	830 (add-to-list 'package-archive-contents entry))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	831
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	832 (defun package-download-transaction (package-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	833 "Download and install all the packages in PACKAGE-LIST.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	834 PACKAGE-LIST should be a list of package names (symbols).
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	835 This function assumes that all package requirements in
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	836 PACKAGE-LIST are satisfied, i.e. that PACKAGE-LIST is computed
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	837 using `package-compute-transaction'."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	838 (dolist (elt package-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	839 (let* ((desc (cdr (assq elt package-archive-contents)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	840 ;; As an exception, if package is "held" in
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	841 ;; `package-load-list', download the held version.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	842 (hold (cadr (assq elt package-load-list)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	843 (v-string (or (and (stringp hold) hold)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	844 (package-version-join (package-desc-vers desc))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	845 (kind (package-desc-kind desc)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	846 (cond
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	847 ((eq kind 'tar)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	848 (package-download-tar elt v-string))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	849 ((eq kind 'single)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	850 (package-download-single elt v-string
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	851 (package-desc-doc desc)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	852 (package-desc-reqs desc)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	853 (t
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	854 (error "Unknown package kind: %s" (symbol-name kind)))))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	855
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	856 ;;;###autoload
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	857 (defun package-install (name)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	858 "Install the package named NAME.
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	859 Interactively, prompt for the package name.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	860 The package is found on one of the archives in `package-archives'."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	861 (interactive
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	862 (list (intern (completing-read "Install package: "
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	863 (mapcar (lambda (elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	864 (cons (symbol-name (car elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	865 nil))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	866 package-archive-contents)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	867 nil t))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	868 (let ((pkg-desc (assq name package-archive-contents)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	869 (unless pkg-desc
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	870 (error "Package `%s' is not available for installation"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	871 (symbol-name name)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	872 (package-download-transaction
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	873 (package-compute-transaction (list name)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	874 (package-desc-reqs (cdr pkg-desc)))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	875 ;; Try to activate it.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	876 (package-initialize))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	877
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	878 (defun package-strip-rcs-id (str)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	879 "Strip RCS version ID from the version string STR.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	880 If the result looks like a dotted numeric version, return it.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	881 Otherwise return nil."
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	882 (when str
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	883 (when (string-match "\\`[ \t]*[$]Revision:[ \t]+" str)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	884 (setq str (substring str (match-end 0))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	885 (condition-case nil
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	886 (if (version-to-list str)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	887 str)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	888 (error nil))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	889
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	890 (defun package-buffer-info ()
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	891 "Return a vector describing the package in the current buffer.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	892 The vector has the form
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	893
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	894 [FILENAME REQUIRES DESCRIPTION VERSION COMMENTARY]
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	895
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	896 FILENAME is the file name, a string, sans the \".el\" extension.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	897 REQUIRES is a requires list, or nil.
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	898 DESCRIPTION is the package description, a string.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	899 VERSION is the version, a string.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	900 COMMENTARY is the commentary section, a string, or nil if none.
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	901
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	902 If the buffer does not contain a conforming package, signal an
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	903 error. If there is a package, narrow the buffer to the file's
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	904 boundaries."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	905 (goto-char (point-min))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	906 (unless (re-search-forward "^;;; \$[^ ]\$\\.el --- \$.\$$" nil t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	907 (error "Packages lacks a file header"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	908 (let ((file-name (match-string-no-properties 1))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	909 (desc (match-string-no-properties 2))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	910 (start (line-beginning-position)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	911 (unless (search-forward (concat ";;; " file-name ".el ends here"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	912 (error "Package lacks a terminating comment"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	913 ;; Try to include a trailing newline.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	914 (forward-line)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	915 (narrow-to-region start (point))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	916 (require 'lisp-mnt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	917 ;; Use some headers we've invented to drive the process.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	918 (let* ((requires-str (lm-header "package-requires"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	919 (requires (if requires-str
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	920 (package-read-from-string requires-str)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	921 ;; Prefer Package-Version; if defined, the package author
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	922 ;; probably wants us to use it. Otherwise try Version.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	923 (pkg-version
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	924 (or (package-strip-rcs-id (lm-header "package-version"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	925 (package-strip-rcs-id (lm-header "version"))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	926 (commentary (lm-commentary)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	927 (unless pkg-version
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	928 (error
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	929 "Package lacks a \"Version\" or \"Package-Version\" header"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	930 ;; Turn string version numbers into list form.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	931 (setq requires
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	932 (mapcar
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	933 (lambda (elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	934 (list (car elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	935 (version-to-list (car (cdr elt)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	936 requires))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	937 (vector file-name requires desc pkg-version commentary))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	938
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	939 (defun package-tar-file-info (file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	940 "Find package information for a tar file.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	941 FILE is the name of the tar file to examine.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	942 The return result is a vector like `package-buffer-info'."
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	943 (let ((default-directory (file-name-directory file))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	944 (file (file-name-nondirectory file)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	945 (unless (string-match "^\$.+\$-\$[0-9.]+\$\\.tar$" file)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	946 (error "Invalid package name `%s'" file))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	947 (let* ((pkg-name (match-string-no-properties 1 file))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	948 (pkg-version (match-string-no-properties 2 file))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	949 ;; Extract the package descriptor.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	950 (pkg-def-contents (shell-command-to-string
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	951 ;; Requires GNU tar.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	952 (concat "tar -xOf " file " "
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	953
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	954 pkg-name "-" pkg-version "/"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	955 pkg-name "-pkg.el")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	956 (pkg-def-parsed (package-read-from-string pkg-def-contents)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	957 (unless (eq (car pkg-def-parsed) 'define-package)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	958 (error "No `define-package' sexp is present in `%s-pkg.el'" pkg-name))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	959 (let ((name-str (nth 1 pkg-def-parsed))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	960 (version-string (nth 2 pkg-def-parsed))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	961 (docstring (nth 3 pkg-def-parsed))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	962 (requires (nth 4 pkg-def-parsed))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	963 (readme (shell-command-to-string
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	964 ;; Requires GNU tar.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	965 (concat "tar -xOf " file " "
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	966 pkg-name "-" pkg-version "/README"))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	967 (unless (equal pkg-version version-string)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	968 (error "Package has inconsistent versions"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	969 (unless (equal pkg-name name-str)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	970 (error "Package has inconsistent names"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	971 ;; Kind of a hack.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	972 (if (string-match ": Not found in archive" readme)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	973 (setq readme nil))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	974 ;; Turn string version numbers into list form.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	975 (if (eq (car requires) 'quote)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	976 (setq requires (car (cdr requires))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	977 (setq requires
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	978 (mapcar (lambda (elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	979 (list (car elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	980 (version-to-list (cadr elt))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	981 requires))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	982 (vector pkg-name requires docstring version-string readme)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	983
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	984 ;;;###autoload
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	985 (defun package-install-from-buffer (pkg-info type)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	986 "Install a package from the current buffer.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	987 When called interactively, the current buffer is assumed to be a
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	988 single .el file that follows the packaging guidelines; see info
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	989 node `(elisp)Packaging'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	990
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	991 When called from Lisp, PKG-INFO is a vector describing the
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	992 information, of the type returned by `package-buffer-info'; and
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	993 TYPE is the package type (either `single' or `tar')."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	994 (interactive (list (package-buffer-info) 'single))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	995 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	996 (save-restriction
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	997 (let* ((file-name (aref pkg-info 0))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	998 (requires (aref pkg-info 1))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	999 (desc (if (string= (aref pkg-info 2) "")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1000 "No description available."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1001 (aref pkg-info 2)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1002 (pkg-version (aref pkg-info 3)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1003 ;; Download and install the dependencies.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1004 (let ((transaction (package-compute-transaction nil requires)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1005 (package-download-transaction transaction))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1006 ;; Install the package itself.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1007 (cond
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1008 ((eq type 'single)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1009 (package-unpack-single file-name pkg-version desc requires))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1010 ((eq type 'tar)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1011 (package-unpack (intern file-name) pkg-version))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1012 (t
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1013 (error "Unknown type: %s" (symbol-name type))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1014 ;; Try to activate it.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1015 (package-initialize)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1016
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1017 ;;;###autoload
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1018 (defun package-install-file (file)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1019 "Install a package from a file.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1020 The file can either be a tar file or an Emacs Lisp file."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1021 (interactive "fPackage file name: ")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1022 (with-temp-buffer
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1023 (insert-file-contents-literally file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1024 (cond
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1025 ((string-match "\\.el$" file)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1026 (package-install-from-buffer (package-buffer-info) 'single))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1027 ((string-match "\\.tar$" file)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1028 (package-install-from-buffer (package-tar-file-info file) 'tar))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1029 (t (error "Unrecognized extension `%s'" (file-name-extension file))))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1030
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1031 (defun package-delete (name version)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1032 (let ((dir (package--dir name version)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1033 (if (string-equal (file-name-directory dir)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1034 (file-name-as-directory
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1035 (expand-file-name package-user-dir)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1036 (progn
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1037 (delete-directory dir t t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1038 (message "Package `%s-%s' deleted." name version))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1039 ;; Don't delete "system" packages
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1040 (error "Package `%s-%s' is a system package, not deleting"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1041 name version))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1042
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1043 (defun package-archive-base (name)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1044 "Return the archive containing the package NAME."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1045 (let ((desc (cdr (assq (intern-soft name) package-archive-contents))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1046 (cdr (assoc (aref desc (- (length desc) 1)) package-archives))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1047
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1048 (defun package--download-one-archive (archive file)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1049 "Retrieve an archive file FILE from ARCHIVE, and cache it.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1050 ARCHIVE should be a cons cell of the form (NAME . LOCATION),
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1051 similar to an entry in `package-alist'. Save the cached copy to
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1052 \"archives/NAME/archive-contents\" in `package-user-dir'."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1053 (let* ((dir (expand-file-name "archives" package-user-dir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1054 (dir (expand-file-name (car archive) dir)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1055 (package--with-work-buffer (cdr archive) file
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1056 ;; Read the retrieved buffer to make sure it is valid (e.g. it
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1057 ;; may fetch a URL redirect page).
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1058 (when (listp (read buffer))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1059 (make-directory dir t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1060 (setq buffer-file-name (expand-file-name file dir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1061 (let ((version-control 'never))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1062 (save-buffer))))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1063
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1064 (defun package-refresh-contents ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1065 "Download the ELPA archive description if needed.
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1066 This informs Emacs about the latest versions of all packages, and
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1067 makes them available for download."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1068 (interactive)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1069 (unless (file-exists-p package-user-dir)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1070 (make-directory package-user-dir t))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1071 (dolist (archive package-archives)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1072 (condition-case-no-debug nil
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1073 (package--download-one-archive archive "archive-contents")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1074 (error (message "Failed to download `%s' archive."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1075 (car archive)))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1076 (package-read-all-archive-contents))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1077
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1078 (defvar package--initialized nil)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1079
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1080 ;;;###autoload
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1081 (defun package-initialize (&optional no-activate)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1082 "Load Emacs Lisp packages, and activate them.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1083 The variable `package-load-list' controls which packages to load.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1084 If optional arg NO-ACTIVATE is non-nil, don't activate packages."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1085 (interactive)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1086 (setq package-alist nil
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1087 package-obsolete-alist nil)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1088 (package-load-all-descriptors)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1089 (package-read-all-archive-contents)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1090 (unless no-activate
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1091 (dolist (elt package-alist)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1092 (package-activate (car elt) (package-desc-vers (cdr elt)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1093 (setq package--initialized t))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1094
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1095
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1096 ;;;; Package description buffer.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1097
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1098 ;;;###autoload
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1099 (defun describe-package (package)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1100 "Display the full documentation of PACKAGE (a symbol)."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1101 (interactive
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1102 (let* ((guess (function-called-at-point))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1103 packages val)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1104 (require 'finder-inf nil t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1105 ;; Load the package list if necessary (but don't activate them).
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1106 (unless package--initialized
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1107 (package-initialize t))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1108 (setq packages (append (mapcar 'car package-alist)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1109 (mapcar 'car package-archive-contents)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1110 (mapcar 'car package--builtins)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1111 (unless (memq guess packages)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1112 (setq guess nil))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1113 (setq packages (mapcar 'symbol-name packages))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1114 (setq val
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1115 (completing-read (if guess
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1116 (format "Describe package (default %s): "
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1117 guess)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1118 "Describe package: ")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1119 packages nil t nil nil guess))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1120 (list (if (equal val "") guess (intern val)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1121 (if (or (null package) (not (symbolp package)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1122 (message "No package specified")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1123 (help-setup-xref (list #'describe-package package)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1124 (called-interactively-p 'interactive))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1125 (with-help-window (help-buffer)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1126 (with-current-buffer standard-output
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1127 (describe-package-1 package)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1128
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1129 (defun describe-package-1 (package)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1130 (require 'lisp-mnt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1131 (let ((package-name (symbol-name package))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1132 (built-in (assq package package--builtins))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1133 desc pkg-dir reqs version installable)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1134 (prin1 package)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1135 (princ " is ")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1136 (cond
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1137 ;; Loaded packages are in `package-alist'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1138 ((setq desc (cdr (assq package package-alist)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1139 (setq version (package-version-join (package-desc-vers desc)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1140 (if (setq pkg-dir (package--dir package-name version))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1141 (insert "an installed package.\n\n")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1142 ;; This normally does not happen.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1143 (insert "a deleted package.\n\n")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1144 ;; Available packages are in `package-archive-contents'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1145 ((setq desc (cdr (assq package package-archive-contents)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1146 (setq version (package-version-join (package-desc-vers desc))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1147 installable t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1148 (if built-in
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1149 (insert "a built-in package.\n\n")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1150 (insert "an uninstalled package.\n\n")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1151 (built-in
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1152 (setq desc (cdr built-in)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1153 version (package-version-join (package-desc-vers desc)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1154 (insert "a built-in package.\n\n"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1155 (t
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1156 (insert "an orphan package.\n\n")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1157
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1158 (insert " " (propertize "Status" 'font-lock-face 'bold) ": ")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1159 (cond (pkg-dir
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1160 (insert (propertize "Installed"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1161 'font-lock-face 'font-lock-comment-face))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1162 (insert " in `")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1163 ;; Todo: Add button for uninstalling.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1164 (help-insert-xref-button (file-name-as-directory pkg-dir)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1165 'help-package-def pkg-dir)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1166 (if built-in
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1167 (insert "',\n shadowing a "
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1168 (propertize "built-in package"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1169 'font-lock-face 'font-lock-builtin-face)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1170 ".")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1171 (insert "'.")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1172 (installable
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1173 (if built-in
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1174 (insert (propertize "Built-in." 'font-lock-face 'font-lock-builtin-face)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1175 " Alternate version available -- ")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1176 (insert "Available -- "))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1177 (let ((button-text (if (display-graphic-p) "Install" "[Install]"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1178 (button-face (if (display-graphic-p)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1179 '(:box (:line-width 2 :color "dark grey")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1180 :background "light grey"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1181 :foreground "black")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1182 'link)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1183 (insert-text-button button-text 'face button-face 'follow-link t
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1184 'package-symbol package
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1185 'action 'package-install-button-action)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1186 (built-in
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1187 (insert (propertize "Built-in." 'font-lock-face 'font-lock-builtin-face)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1188 (t (insert "Deleted.")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1189 (insert "\n")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1190 (and version (> (length version) 0)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1191 (insert " "
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1192 (propertize "Version" 'font-lock-face 'bold) ": " version "\n"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1193
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1194 (setq reqs (if desc (package-desc-reqs desc)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1195 (when reqs
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1196 (insert " " (propertize "Requires" 'font-lock-face 'bold) ": ")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1197 (let ((first t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1198 name vers text)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1199 (dolist (req reqs)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1200 (setq name (car req)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1201 vers (cadr req)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1202 text (format "%s-%s" (symbol-name name)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1203 (package-version-join vers)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1204 (cond (first (setq first nil))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1205 ((>= (+ 2 (current-column) (length text))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1206 (window-width))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1207 (insert ",\n "))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1208 (t (insert ", ")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1209 (help-insert-xref-button text 'help-package name))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1210 (insert "\n")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1211 (insert " " (propertize "Summary" 'font-lock-face 'bold)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1212 ": " (if desc (package-desc-doc desc)) "\n\n")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1213
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1214 (if built-in
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1215 ;; For built-in packages, insert the commentary.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1216 (let ((fn (locate-file (concat package-name ".el") load-path
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1217 load-file-rep-suffixes))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1218 (opoint (point)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1219 (insert (or (lm-commentary fn) ""))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1220 (save-excursion
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1221 (goto-char opoint)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1222 (when (re-search-forward "^;;; Commentary:\n" nil t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1223 (replace-match ""))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1224 (while (re-search-forward "^\$;+ ?\$" nil t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1225 (replace-match ""))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1226 (let ((readme (expand-file-name (concat package-name "-readme.txt")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1227 package-user-dir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1228 readme-string)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1229 ;; For elpa packages, try downloading the commentary. If that
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1230 ;; fails, try an existing readme file in `package-user-dir'.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1231 (cond ((condition-case nil
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1232 (package--with-work-buffer (package-archive-base package)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1233 (concat package-name "-readme.txt")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1234 (setq buffer-file-name
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1235 (expand-file-name readme package-user-dir))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1236 (let ((version-control 'never))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1237 (save-buffer))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1238 (setq readme-string (buffer-string))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1239 t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1240 (error nil))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1241 (insert readme-string))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1242 ((file-readable-p readme)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1243 (insert-file-contents readme)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1244 (goto-char (point-max))))))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1245
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1246 (defun package-install-button-action (button)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1247 (let ((package (button-get button 'package-symbol)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1248 (when (y-or-n-p (format "Install package `%s'? " package))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1249 (package-install package)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1250 (revert-buffer nil t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1251 (goto-char (point-min)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1252
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1253
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1254 ;;;; Package menu mode.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1255
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1256 (defvar package-menu-mode-map
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1257 (let ((map (copy-keymap special-mode-map))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1258 (menu-map (make-sparse-keymap "Package")))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1259 (set-keymap-parent map button-buffer-map)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1260 (define-key map "\C-m" 'package-menu-describe-package)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1261 (define-key map "n" 'next-line)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1262 (define-key map "p" 'previous-line)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1263 (define-key map "u" 'package-menu-mark-unmark)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1264 (define-key map "\177" 'package-menu-backup-unmark)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1265 (define-key map "d" 'package-menu-mark-delete)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1266 (define-key map "i" 'package-menu-mark-install)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1267 (define-key map "r" 'package-menu-refresh)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1268 (define-key map "~" 'package-menu-mark-obsolete-for-deletion)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1269 (define-key map "x" 'package-menu-execute)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1270 (define-key map "h" 'package-menu-quick-help)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1271 (define-key map "?" 'package-menu-describe-package)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1272 (define-key map [follow-link] 'mouse-face)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1273 (define-key map [mouse-2] 'mouse-select-window)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1274 (define-key map [menu-bar package-menu] (cons "Package" menu-map))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1275 (define-key menu-map [mq]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1276 '(menu-item "Quit" quit-window
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1277 :help "Quit package selection"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1278 (define-key menu-map [s1] '("--"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1279 (define-key menu-map [mn]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1280 '(menu-item "Next" next-line
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1281 :help "Next Line"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1282 (define-key menu-map [mp]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1283 '(menu-item "Previous" previous-line
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1284 :help "Previous Line"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1285 (define-key menu-map [s2] '("--"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1286 (define-key menu-map [mu]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1287 '(menu-item "Unmark" package-menu-mark-unmark
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1288 :help "Clear any marks on a package and move to the next line"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1289 (define-key menu-map [munm]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1290 '(menu-item "Unmark backwards" package-menu-backup-unmark
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1291 :help "Back up one line and clear any marks on that package"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1292 (define-key menu-map [md]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1293 '(menu-item "Mark for deletion" package-menu-mark-delete
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1294 :help "Mark a package for deletion and move to the next line"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1295 (define-key menu-map [mi]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1296 '(menu-item "Mark for install" package-menu-mark-install
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1297 :help "Mark a package for installation and move to the next line"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1298 (define-key menu-map [s3] '("--"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1299 (define-key menu-map [mg]
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1300 '(menu-item "Update package list" revert-buffer
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1301 :help "Update the list of packages"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1302 (define-key menu-map [mr]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1303 '(menu-item "Refresh package list" package-menu-refresh
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1304 :help "Download the ELPA archive"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1305 (define-key menu-map [s4] '("--"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1306 (define-key menu-map [mt]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1307 '(menu-item "Mark obsolete packages" package-menu-mark-obsolete-for-deletion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1308 :help "Mark all obsolete packages for deletion"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1309 (define-key menu-map [mx]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1310 '(menu-item "Execute actions" package-menu-execute
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1311 :help "Perform all the marked actions"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1312 (define-key menu-map [s5] '("--"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1313 (define-key menu-map [mh]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1314 '(menu-item "Help" package-menu-quick-help
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1315 :help "Show short key binding help for package-menu-mode"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1316 (define-key menu-map [mc]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1317 '(menu-item "View Commentary" package-menu-view-commentary
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1318 :help "Display information about this package"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1319 map)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1320 "Local keymap for `package-menu-mode' buffers.")
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1321
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1322 (defvar package-menu-sort-button-map
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1323 (let ((map (make-sparse-keymap)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1324 (define-key map [header-line mouse-1] 'package-menu-sort-by-column)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1325 (define-key map [header-line mouse-2] 'package-menu-sort-by-column)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1326 (define-key map [follow-link] 'mouse-face)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1327 map)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1328 "Local keymap for package menu sort buttons.")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1329
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1330 (put 'package-menu-mode 'mode-class 'special)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1331
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1332 (define-derived-mode package-menu-mode special-mode "Package Menu"
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1333 "Major mode for browsing a list of packages.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1334 Letters do not insert themselves; instead, they are commands.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1335 \\<package-menu-mode-map>
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1336 \\{package-menu-mode-map}"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1337 (setq truncate-lines t)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1338 (setq buffer-read-only t)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1339 (set (make-local-variable 'revert-buffer-function) 'package-menu-revert)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1340 (setq header-line-format
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1341 (mapconcat
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1342 (lambda (pair)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1343 (let ((column (car pair))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1344 (name (cdr pair)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1345 (concat
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1346 ;; Insert a space that aligns the button properly.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1347 (propertize " " 'display (list 'space :align-to column)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1348 'face 'fixed-pitch)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1349 ;; Set up the column button.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1350 (propertize name
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1351 'column-name name
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1352 'help-echo "mouse-1: sort by column"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1353 'mouse-face 'highlight
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1354 'keymap package-menu-sort-button-map))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1355 ;; We take a trick from buff-menu and have a dummy leading
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1356 ;; space to align the header line with the beginning of the
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1357 ;; text. This doesn't really work properly on Emacs 21, but
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1358 ;; it is close enough.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1359 '((0 . "")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1360 (2 . "Package")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1361 (20 . "Version")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1362 (32 . "Status")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1363 (43 . "Description"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1364 "")))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1365
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1366 (defun package-menu-refresh ()
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1367 "Download the Emacs Lisp package archive.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1368 This fetches the contents of each archive specified in
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1369 `package-archives', and then refreshes the package menu."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1370 (interactive)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1371 (unless (eq major-mode 'package-menu-mode)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1372 (error "The current buffer is not a Package Menu"))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1373 (package-refresh-contents)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1374 (package--generate-package-list))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1375
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1376 (defun package-menu-revert (&optional arg noconfirm)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1377 "Update the list of packages.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1378 This function is the `revert-buffer-function' for Package Menu
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1379 buffers. The arguments are ignored."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1380 (interactive)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1381 (unless (eq major-mode 'package-menu-mode)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1382 (error "The current buffer is not a Package Menu"))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1383 (package--generate-package-list))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1384
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1385 (defun package-menu-describe-package ()
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1386 "Describe the package in the current line."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1387 (interactive)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1388 (let ((name (package-menu-get-package)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1389 (if name
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1390 (describe-package (intern name))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1391 (message "No package on this line"))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1392
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1393 (defun package-menu-mark-internal (what)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1394 (unless (eobp)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1395 (let ((buffer-read-only nil))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1396 (beginning-of-line)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1397 (delete-char 1)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1398 (insert what)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1399 (forward-line))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1400
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1401 ;; fixme numeric argument
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1402 (defun package-menu-mark-delete (num)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1403 "Mark a package for deletion and move to the next line."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1404 (interactive "p")
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1405 (if (string-equal (package-menu-get-status) "installed")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1406 (package-menu-mark-internal "D")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1407 (forward-line)))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1408
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1409 (defun package-menu-mark-install (num)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1410 "Mark a package for installation and move to the next line."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1411 (interactive "p")
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1412 (if (string-equal (package-menu-get-status) "available")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1413 (package-menu-mark-internal "I")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1414 (forward-line)))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1415
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1416 (defun package-menu-mark-unmark (num)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1417 "Clear any marks on a package and move to the next line."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1418 (interactive "p")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1419 (package-menu-mark-internal " "))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1420
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1421 (defun package-menu-backup-unmark ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1422 "Back up one line and clear any marks on that package."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1423 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1424 (forward-line -1)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1425 (package-menu-mark-internal " ")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1426 (forward-line -1))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1427
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1428 (defun package-menu-mark-obsolete-for-deletion ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1429 "Mark all obsolete packages for deletion."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1430 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1431 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1432 (goto-char (point-min))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1433 (forward-line 2)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1434 (while (not (eobp))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1435 (if (looking-at ".*\\s obsolete\\s ")
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1436 (package-menu-mark-internal "D")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1437 (forward-line 1)))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1438
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1439 (defun package-menu-quick-help ()
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1440 "Show short key binding help for package-menu-mode."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1441 (interactive)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1442 (message "n-ext, i-nstall, d-elete, u-nmark, x-ecute, r-efresh, h-elp"))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1443
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1444 (define-obsolete-function-alias
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1445 'package-menu-view-commentary 'package-menu-describe-package "24.1")
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1446
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1447 ;; Return the name of the package on the current line.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1448 (defun package-menu-get-package ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1449 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1450 (beginning-of-line)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1451 (if (looking-at ". \$[^ \t]*\$")
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1452 (match-string-no-properties 1))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1453
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1454 ;; Return the version of the package on the current line.
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1455 (defun package-menu-get-version ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1456 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1457 (beginning-of-line)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1458 (if (looking-at ". [^ \t][ \t]\$[0-9.]*\$")
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1459 (match-string 1))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1460
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1461 (defun package-menu-get-status ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1462 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1463 (if (looking-at ". [^ \t][ \t][^ \t][ \t]\$[^ \t]*\$")
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1464 (match-string 1)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1465 "")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1466
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1467 (defun package-menu-execute ()
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1468 "Perform marked Package Menu actions.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1469 Packages marked for installation are downloaded and installed;
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1470 packages marked for deletion are removed."
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1471 (interactive)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1472 (let (install-list delete-list cmd)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1473 (save-excursion
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1474 (goto-char (point-min))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1475 (while (not (eobp))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1476 (setq cmd (char-after))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1477 (cond
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1478 ((eq cmd ?\s) t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1479 ((eq cmd ?D)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1480 (push (cons (package-menu-get-package)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1481 (package-menu-get-version))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1482 delete-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1483 ((eq cmd ?I)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1484 (push (package-menu-get-package) install-list)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1485 (forward-line)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1486 ;; Delete packages, prompting if necessary.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1487 (when delete-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1488 (if (yes-or-no-p
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1489 (if (= (length delete-list) 1)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1490 (format "Delete package `%s-%s'? "
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1491 (caar delete-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1492 (cdr (car delete-list)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1493 (format "Delete these %d packages (%s)? "
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1494 (length delete-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1495 (mapconcat (lambda (elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1496 (concat (car elt) "-" (cdr elt)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1497 delete-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1498 ", "))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1499 (dolist (elt delete-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1500 (condition-case-no-debug err
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1501 (package-delete (car elt) (cdr elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1502 (error (message (cadr err)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1503 (error "Aborted")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1504 (when install-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1505 (if (yes-or-no-p
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1506 (if (= (length install-list) 1)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1507 (format "Install package `%s'? " (car install-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1508 (format "Install these %d packages (%s)? "
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1509 (length install-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1510 (mapconcat 'identity install-list ", "))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1511 (dolist (elt install-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1512 (package-install (intern elt)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1513 ;; If we deleted anything, regenerate `package-alist'. This is done
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1514 ;; automatically if we installed a package.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1515 (and delete-list (null install-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1516 (package-initialize))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1517 (if (or delete-list install-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1518 (package-menu-revert)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1519 (message "No operations specified."))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1520
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1521 (defun package-print-package (package version key desc)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1522 (let ((face
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1523 (cond ((string= key "built-in") 'font-lock-builtin-face)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1524 ((string= key "available") 'default)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1525 ((string= key "held") 'font-lock-constant-face)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1526 ((string= key "disabled") 'font-lock-warning-face)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1527 ((string= key "installed") 'font-lock-comment-face)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1528 (t ; obsolete, but also the default.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1529 'font-lock-warning-face))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1530 (insert (propertize " " 'font-lock-face face))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1531 (insert-text-button (symbol-name package)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1532 'face 'link
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1533 'follow-link t
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1534 'package-symbol package
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1535 'action (lambda (button)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1536 (describe-package
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1537 (button-get button 'package-symbol))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1538 (indent-to 20 1)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1539 (insert (propertize (package-version-join version) 'font-lock-face face))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1540 (indent-to 32 1)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1541 (insert (propertize key 'font-lock-face face))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1542 ;; FIXME: this 'when' is bogus...
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1543 (when desc
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1544 (indent-to 43 1)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1545 (let ((opoint (point)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1546 (insert (propertize desc 'font-lock-face face))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1547 (upcase-region opoint (min (point) (1+ opoint)))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1548 (insert "\n")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1549
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1550 (defun package-list-maybe-add (package version status description result)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1551 (unless (assoc (cons package version) result)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1552 (push (list (cons package version) status description) result))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1553 result)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1554
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1555 (defvar package-menu-package-list nil
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1556 "List of packages to display in the Package Menu buffer.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1557 A value of nil means to display all packages.")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1558
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1559 (defvar package-menu-sort-key nil
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1560 "Sort key for the current Package Menu buffer.")
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1561
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1562 (defun package--generate-package-list ()
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1563 "Populate the current Package Menu buffer."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1564 (let ((inhibit-read-only t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1565 info-list name desc hold builtin)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1566 (erase-buffer)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1567 ;; List installed packages
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1568 (dolist (elt package-alist)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1569 (setq name (car elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1570 (when (or (null package-menu-package-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1571 (memq name package-menu-package-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1572 (setq desc (cdr elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1573 hold (cadr (assq name package-load-list)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1574 (setq info-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1575 (package-list-maybe-add
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1576 name (package-desc-vers desc)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1577 ;; FIXME: it turns out to be tricky to see if this
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1578 ;; package is presently activated.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1579 (if (stringp hold) "held" "installed")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1580 (package-desc-doc desc)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1581 info-list))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1582
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1583 ;; List built-in packages
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1584 (dolist (elt package--builtins)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1585 (setq name (car elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1586 (when (and (not (eq name 'emacs)) ; Hide the `emacs' package.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1587 (or (null package-menu-package-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1588 (memq name package-menu-package-list)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1589 (setq desc (cdr elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1590 (setq info-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1591 (package-list-maybe-add
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1592 name (package-desc-vers desc)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1593 "built-in"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1594 (package-desc-doc desc)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1595 info-list))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1596
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1597 ;; List available and disabled packages
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1598 (dolist (elt package-archive-contents)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1599 (setq name (car elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1600 desc (cdr elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1601 hold (assq name package-load-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1602 (when (or (null package-menu-package-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1603 (memq name package-menu-package-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1604 (setq info-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1605 (package-list-maybe-add name
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1606 (package-desc-vers desc)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1607 (if (and hold (null (cadr hold)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1608 "disabled"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1609 "available")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1610 (package-desc-doc (cdr elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1611 info-list))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1612 ;; List obsolete packages
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1613 (mapc (lambda (elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1614 (mapc (lambda (inner-elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1615 (setq info-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1616 (package-list-maybe-add (car elt)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1617 (package-desc-vers
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1618 (cdr inner-elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1619 "obsolete"
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1620 (package-desc-doc
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1621 (cdr inner-elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1622 info-list)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1623 (cdr elt)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1624 package-obsolete-alist)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1625
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1626 (setq info-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1627 (sort info-list
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1628 (cond ((string= package-menu-sort-key "Package")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1629 'package-menu--name-predicate)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1630 ((string= package-menu-sort-key "Version")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1631 'package-menu--version-predicate)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1632 ((string= package-menu-sort-key "Description")
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1633 'package-menu--description-predicate)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1634 (t ; By default, sort by package status
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1635 'package-menu--status-predicate))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1636
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1637 (dolist (elt info-list)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1638 (package-print-package (car (car elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1639 (cdr (car elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1640 (car (cdr elt))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1641 (car (cdr (cdr elt)))))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1642 (goto-char (point-min))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1643 (set-buffer-modified-p nil)
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1644 (current-buffer)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1645
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1646 (defun package-menu--version-predicate (left right)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1647 (let ((vleft (or (cdr (car left)) '(0)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1648 (vright (or (cdr (car right)) '(0))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1649 (if (version-list-= vleft vright)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1650 (package-menu--name-predicate left right)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1651 (version-list-< vleft vright))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1652
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1653 (defun package-menu--status-predicate (left right)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1654 (let ((sleft (cadr left))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1655 (sright (cadr right)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1656 (cond ((string= sleft sright)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1657 (package-menu--name-predicate left right))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1658 ((string= sleft "available") t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1659 ((string= sright "available") nil)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1660 ((string= sleft "installed") t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1661 ((string= sright "installed") nil)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1662 ((string= sleft "held") t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1663 ((string= sright "held") nil)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1664 ((string= sleft "built-in") t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1665 ((string= sright "built-in") nil)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1666 ((string= sleft "obsolete") t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1667 ((string= sright "obsolete") nil)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1668 (t (string< sleft sright)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1669
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1670 (defun package-menu--description-predicate (left right)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1671 (let ((sleft (car (cddr left)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1672 (sright (car (cddr right))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1673 (if (string= sleft sright)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1674 (package-menu--name-predicate left right)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1675 (string< sleft sright))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1676
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1677 (defun package-menu--name-predicate (left right)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1678 (string< (symbol-name (caar left))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1679 (symbol-name (caar right))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1680
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1681 (defun package-menu-sort-by-column (&optional e)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1682 "Sort the package menu by the column of the mouse click E."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1683 (interactive "e")
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1684 (let* ((pos (event-start e))
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1685 (obj (posn-object pos))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1686 (col (if obj
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1687 (get-text-property (cdr obj) 'column-name (car obj))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1688 (get-text-property (posn-point pos) 'column-name)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1689 (buf (window-buffer (posn-window (event-start e)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1690 (with-current-buffer buf
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1691 (when (eq major-mode 'package-menu-mode)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1692 (setq package-menu-sort-key col)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1693 (package--generate-package-list)))))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1694
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1695 (defun package--list-packages (&optional packages)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1696 "Generate and pop to the Packages buffer.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1697 Optional PACKAGES is a list of names of packages (symbols) to
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1698 list; the default is to display everything in `package-alist'."
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1699 (require 'finder-inf nil t)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1700 (let ((buf (get-buffer-create "Packages")))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1701 (with-current-buffer buf
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1702 (package-menu-mode)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1703 (set (make-local-variable 'package-menu-package-list) packages)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1704 (set (make-local-variable 'package-menu-sort-key) nil)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1705 (package--generate-package-list))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1706 ;; The package menu buffer has keybindings. If the user types
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1707 ;; `M-x list-packages', that suggests it should become current.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1708 (switch-to-buffer buf)))
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1709
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1710 ;;;###autoload
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1711 (defun list-packages ()
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1712 "Display a list of packages.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1713 Fetches the updated list of packages before displaying.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1714 The list is displayed in a buffer named `Packages'."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1715 (interactive)
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1716 ;; Initialize the package system if necessary.
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1717 (unless package--initialized
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1718 (package-initialize t))
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1719 (package-refresh-contents)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1720 (package--list-packages))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1721
336 ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1722 ;;;###autoload
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1723 (defalias 'package-list-packages 'list-packages)
ea73ef5dc38c emacs: avoid weird package.el breakage with newish packages Augie Fackler <raf@durin42.com> parents: 211 diff changeset	1724
211 8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1725 (defun package-list-packages-no-fetch ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1726 "Display a list of packages.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1727 Does not fetch the updated list of packages before displaying.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1728 The list is displayed in a buffer named `Packages'."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1729 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1730 (package--list-packages))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1731
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1732 (provide 'package)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1733
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs Augie Fackler <durin42@gmail.com> parents: diff changeset	1734 ;;; package.el ends here

Mercurial > dotfiles

annotate .elisp/old/package.el @ 523:a5a4f9e12c9f