annotate .elisp/package.el @ 228:0c8939baa35c

hg-rebase-all: new function to rebase all bookmarked revisions
author Augie Fackler <durin42@gmail.com>
date Sat, 09 Oct 2010 15:21:50 -0500
parents 8980dc2deda0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
3 ;; Copyright (C) 2007, 2008, 2009 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
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
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
7 ;; Version: 0.9.4
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
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
10 ;; This file is not (yet) part of GNU Emacs.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
11 ;; However, it is distributed under the same license.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
12
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
13 ;; 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
14 ;; 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
15 ;; 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
16 ;; 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
17
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
18 ;; 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
19 ;; 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
20 ;; 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
21 ;; 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
22
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
23 ;; 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
24 ;; 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
25 ;; 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
26 ;; 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
27
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
28 ;;; Commentary:
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
29
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
30 ;; To use this, put package.el somewhere on your load-path. Then add
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
31 ;; this to your .emacs:
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
32 ;;
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
33 ;; (load "package")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
34 ;; (package-initialize)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
35 ;;
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
36 ;; This will automatically make available the packages you have
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
37 ;; installed using package.el. If your .emacs will refer to these
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
38 ;; packages, you may want to initialize the package manager near the
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
39 ;; top.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
40 ;;
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
41 ;; Note that if you want to be able to automatically download and
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
42 ;; install packages from ELPA (the Emacs Lisp Package Archive), then
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
43 ;; you will need the 'url' package. This comes with Emacs 22; Emacs
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
44 ;; 21 users will have to find it elsewhere.
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 ;; If you installed package.el via the auto-installer:
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
47 ;;
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
48 ;; http://tromey.com/elpa/
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
49 ;;
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
50 ;; then you do not need to edit your .emacs, as the installer will
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
51 ;; have done this for you. The installer will also install the url
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
52 ;; package if you need it.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
53
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
54 ;; Other external functions you may want to use:
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
55 ;;
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
56 ;; M-x 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
57 ;; Enters a mode similar to buffer-menu which lets you manage
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
58 ;; packages. You can choose packages for install (mark with "i",
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
59 ;; then "x" to execute) or deletion (not implemented yet), and you
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
60 ;; can see what packages are available. This will automatically
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
61 ;; fetch the latest list of packages from ELPA.
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 ;; M-x 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
64 ;; Like package-list-packages, but does not automatically fetch the
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
65 ;; new 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
66 ;;
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
67 ;; M-x package-install-from-buffer
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
68 ;; Install a package consisting of a single .el file that appears
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
69 ;; in the current buffer. This only works for packages which
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
70 ;; define a Version header properly; package.el also supports the
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
71 ;; extension headers Package-Version (in case Version is an RCS id
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
72 ;; or similar), and Package-Requires (if the package requires other
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
73 ;; packages).
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
74 ;;
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
75 ;; M-x package-install-file
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
76 ;; Install a package from the indicated file. The package can be
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
77 ;; either a tar file or a .el file. A tar file must contain an
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
78 ;; appropriately-named "-pkg.el" file; a .el file must be properly
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
79 ;; formatted as with package-install-from-buffer.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
80
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
81 ;; 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
82 ;; 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
83 ;; 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
84 ;; 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
85 ;; 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
86 ;; 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
87 ;; 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
88 ;; work.)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
89
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
90 ;; This code supports a single package repository, ELPA. All packages
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
91 ;; must be registered there.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
92
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
93 ;; 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
94 ;; 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
95
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
96 ;; 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
97 ;; 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
98 ;; "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
99 ;; 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
100 ;; "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
101
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
102 ;; A .el file will be named "NAME-VERSION.el" in ELPA, but will be
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
103 ;; 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
104
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
105 ;; The downloader will download all dependent packages. It will also
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
106 ;; byte-compile the package's Lisp at install time.
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 ;; 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
109 ;; 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
110 ;; 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
111
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
112 ;; 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
113 ;;
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
114 ;; * 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
115 ;; * 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
116 ;; ~/.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
117 ;; * 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
118 ;; 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
119 ;; * 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
120 ;; 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
121 ;; * 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
122
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
123 ;;; Thanks:
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
124 ;;; (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
125
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
126 ;; 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
127 ;; 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
128 ;; 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
129 ;; Lawrence Mitchell
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
130 ;; 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
131 ;; 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
132 ;; 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
133 ;; 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
134 ;; 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
135 ;; Samuel Bronson <naesten@gmail.com>
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
136
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
137 ;;; History:
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
138 ;;
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
139 ;; Originally written by Tom Tromey, multiple archive support added by Phil
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
140 ;; Hagelberg.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
141
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
142 ;;; Code:
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
143
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
144 (defcustom package-archives '(("elpa" . "http://tromey.com/elpa/"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
145 "An alist of archives (names and URLs) from which to fetch.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
146 The default points to ELPA, the Emacs Lisp Package Archive.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
147 Note that some code in package.el assumes that this is an http: URL."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
148 :type '(alist :key-type (string :tag "Archive name")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
149 :value-type (string :tag "Archive URL"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
150 :group 'package
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
151 :package-version '("package.el" . "0.9.3"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
152
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
153 (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
154 "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
155 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
156
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
157 (defconst package-el-version "0.9.4"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
158 "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
159
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
160 ;; We don't prime the cache since it tends to get out of date.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
161 (defvar 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
162 nil
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
163 "A representation of the contents of 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
164 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
165 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
166 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
167 '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
168 the archive from which it came.")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
169
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
170 (defvar 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
171 (expand-file-name (convert-standard-filename "~/.emacs.d/elpa"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
172 "Name of the directory where the user's packages are stored.")
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 (defvar package-directory-list
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
175 (list (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
176 "/usr/share/emacs/site-lisp/elpa/")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
177 "List of directories to search for packages.")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
178
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
179 (defun package-version-split (string)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
180 "Split a package STRING into a version list."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
181 (mapcar 'string-to-int (split-string string "[.]")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
182
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
183 (defconst package--builtins-base
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
184 ;; We use package-version split here to make sure to pick up the
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
185 ;; minor version.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
186 `((emacs . [,(package-version-split emacs-version) nil
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
187 "GNU Emacs"])
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
188 (package . [,(package-version-split package-el-version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
189 nil "Simple package system for GNU Emacs"]))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
190 "Packages which are always built-in.")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
191
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
192 (defvar package--builtins
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
193 (delq nil
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
194 (append
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
195 package--builtins-base
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
196 (if (>= emacs-major-version 22)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
197 ;; FIXME: emacs 22 includes tramp, rcirc, maybe
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
198 ;; other things...
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
199 '((erc . [(5 2) nil "An Emacs Internet Relay Chat client"])
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
200 ;; The external URL is version 1.15, so make sure the
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
201 ;; built-in one looks newer.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
202 (url . [(1 16) nil "URL handling libary"])))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
203 (if (>= emacs-major-version 23)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
204 '(;; Strangely, nxml-version is missing in Emacs 23.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
205 ;; We pick the merge date as the version.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
206 (nxml . [(20071123) nil "Major mode for editing XML documents."])
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
207 (bubbles . [(0 5) nil "Puzzle game for Emacs."])))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
208 "Alist of all built-in packages.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
209 Maps the package name to a vector [VERSION REQS DOCSTRING].")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
210
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
211 (defvar package-alist package--builtins
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
212 "Alist of all packages available for activation.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
213 Maps the package name to a vector [VERSION REQS DOCSTRING].")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
214
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
215 (defvar package-activated-list
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
216 (mapcar #'car package-alist)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
217 "List of the names of all activated packages.")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
218
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
219 (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
220 "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
221 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
222 The inner alist is keyed by version.")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
223
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
224 (defun package-version-join (l)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
225 "Turn a list L of version numbers into a version string."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
226 (mapconcat 'int-to-string l "."))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
227
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
228 (defun package--version-first-nonzero (l)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
229 "Find the first non-zero number in the list L.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
230
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
231 Returns the value of the first non-zero integer in L, or 0 if
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
232 none is found."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
233 (while (and l (= (car l) 0))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
234 (setq l (cdr l)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
235 (if l (car l) 0))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
236
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
237 (defun package-version-compare (v1 v2 fun)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
238 "Compare two version V1 and V2 lists according to FUN.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
239
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
240 FUN can be <, <=, =, >, >=, or /=."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
241 (while (and v1 v2 (= (car v1) (car v2)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
242 (setq v1 (cdr v1)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
243 v2 (cdr v2)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
244 (if v1
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
245 (if v2
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
246 ;; Both not null; we know the cars are not =.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
247 (funcall fun (car v1) (car v2))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
248 ;; V1 not null, V2 null.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
249 (funcall fun (package--version-first-nonzero v1) 0))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
250 (if v2
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
251 ;; V1 null, V2 not null.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
252 (funcall fun 0 (package--version-first-nonzero v2))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
253 ;; Both null.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
254 (funcall fun 0 0))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
255
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
256 (defun package--test-version-compare ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
257 "Test suite for `package-version-compare'."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
258 (unless (and (package-version-compare '(0) '(0) '=)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
259 (not (package-version-compare '(1) '(0) '=))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
260 (package-version-compare '(1 0 1) '(1) '>=)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
261 (package-version-compare '(1 0 1) '(1) '>)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
262 (not (package-version-compare '(0 9 1) '(1 0 2) '>=)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
263 (error "Failed"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
264 t)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
265
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
266 (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
267 "Strip the version from a combined package name and version.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
268 E.g., if DIRNAME is \"quux-23.0\", will return \"quux\""
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
269 (if (string-match "^\\(.*\\)-[0-9]+\\([.][0-9]+\\)*$" dirname)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
270 (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
271
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
272 (defun package-load-descriptor (dir package)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
273 "Load the description file in directory DIR for a PACKAGE.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
274 Return nil if the package could not be found."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
275 (let* ((pkg-dir (expand-file-name package dir))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
276 (pkg-file (expand-file-name
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
277 (concat (package-strip-version package) "-pkg") pkg-dir)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
278 (when (and (file-directory-p pkg-dir)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
279 (file-exists-p (concat pkg-file ".el")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
280 (load pkg-file nil t))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
281
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
282 (defun 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
283 "Load descriptors of all packages.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
284 Uses `package-directory-list' to find packages."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
285 (mapc (lambda (dir)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
286 (if (file-directory-p dir)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
287 (mapc (lambda (name)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
288 (package-load-descriptor dir name))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
289 (directory-files dir nil "^[^.]"))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
290 package-directory-list))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
291
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
292 (defsubst package-desc-vers (desc)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
293 "Extract version from a package description vector DESC."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
294 (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
295
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
296 (defsubst package-desc-reqs (desc)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
297 "Extract requirements from a package description vector DESC."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
298 (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
299
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
300 (defsubst package-desc-doc (desc)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
301 "Extract doc string from a package description vector DESC."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
302 (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
303
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
304 (defsubst package-desc-kind (desc)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
305 "Extract the kind of download from an archive package description vector DESC."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
306 (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
307
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
308 (defun package-do-activate (package pkg-vec)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
309 "Set up a single PACKAGE.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
310
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
311 Modifies `load-path' to include the package directory and loads
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
312 the `autoload' file for the package. PKG-VEC is the package info
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
313 as retrieved from the package mirror."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
314 (let* ((pkg-name (symbol-name package))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
315 (pkg-ver-str (package-version-join (package-desc-vers pkg-vec)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
316 (dir-list package-directory-list)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
317 (pkg-dir))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
318 (while dir-list
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
319 (let ((subdir (concat (car dir-list) pkg-name "-" pkg-ver-str "/")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
320 (if (file-directory-p subdir)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
321 (progn
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
322 (setq pkg-dir subdir)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
323 (setq dir-list nil))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
324 (setq dir-list (cdr dir-list)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
325 (unless pkg-dir
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
326 (error "Internal error: could not find directory for %s-%s"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
327 pkg-name pkg-ver-str))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
328 (if (file-exists-p (concat pkg-dir "dir"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
329 (progn
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
330 ;; FIXME: not the friendliest, but simple.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
331 (require 'info)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
332 (info-initialize)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
333 (setq Info-directory-list (cons pkg-dir Info-directory-list))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
334 (setq load-path (cons pkg-dir load-path))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
335 ;; Load the autoloads and activate the package.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
336 (load (concat pkg-dir (symbol-name package) "-autoloads")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
337 nil t)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
338 (setq package-activated-list (cons package package-activated-list))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
339 ;; 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
340 t))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
341
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
342 (defun package--built-in (package version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
343 "Return true if PACKAGE at VERSION is built-in to Emacs."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
344 (let ((elt (assq package package--builtins)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
345 (and elt
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
346 (package-version-compare (package-desc-vers (cdr elt)) version '=))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
347
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
348 ;; FIXME: return a reason instead?
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
349 (defun package-activate (package version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
350 "Try to activate PACKAGE at version VERSION.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
351 Return nil if the package could not be activated.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
352 Recursively activates all dependencies of the named package."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
353 ;; Assume the user knows what he is doing -- go ahead and activate a
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
354 ;; newer version of a package if an older one has already been
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
355 ;; activated. This is not ideal; we'd at least need to check to see
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
356 ;; if the package has actually been loaded, and not merely
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
357 ;; activated. However, don't try to activate 'emacs', as that makes
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
358 ;; no sense.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
359 (unless (eq package 'emacs)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
360 (let* ((pkg-desc (assq package package-alist))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
361 (this-version (package-desc-vers (cdr pkg-desc)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
362 (req-list (package-desc-reqs (cdr pkg-desc)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
363 ;; If the package was never activated, we want to do it
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
364 ;; now.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
365 (keep-going (or (not (memq package package-activated-list))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
366 (package-version-compare this-version version '>))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
367 (while (and req-list keep-going)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
368 (or (package-activate (car (car req-list))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
369 (car (cdr (car req-list))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
370 (setq keep-going nil))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
371 (setq req-list (cdr req-list)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
372 (if keep-going
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
373 (package-do-activate package (cdr pkg-desc))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
374 ;; We get here if a dependency failed to activate -- but we
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
375 ;; can also get here if the requested package was already
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
376 ;; activated. Return non-nil in the latter case.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
377 (and (memq package package-activated-list)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
378 (package-version-compare this-version version '>=))))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
379
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
380 (defun package-mark-obsolete (package pkg-vec)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
381 "Put PACKAGE on the obsolete list, if not already there.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
382
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
383 PKG-VEC describes the version of PACKAGE to mark obsolete."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
384 (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
385 (if elt
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
386 ;; If this obsolete version does not exist in the list, update
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
387 ;; it the list.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
388 (unless (assoc (package-desc-vers pkg-vec) (cdr elt))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
389 (setcdr elt (cons (cons (package-desc-vers pkg-vec) pkg-vec)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
390 (cdr elt))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
391 ;; Make a new association.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
392 (setq 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
393 (cons (cons package (list (cons (package-desc-vers pkg-vec)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
394 pkg-vec)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
395 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
396
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
397 ;; (define-package "emacs" "21.4.1" "GNU Emacs core package.")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
398 ;; (define-package "erc" "5.1" "ERC - irc client" '((emacs "21.0")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
399 (defun define-package (name-str version-string
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
400 &optional docstring requirements)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
401 "Define a new package.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
402 NAME-STR is the name of the package, a string.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
403 VERSION-STRING is the version of the package, a dotted sequence
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
404 of integers.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
405 DOCSTRING is the optional description.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
406 REQUIREMENTS is a list of requirements on other packages.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
407 Each requirement is of the form (OTHER-PACKAGE \"VERSION\")."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
408 (let* ((name (intern name-str))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
409 (pkg-desc (assq name package-alist))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
410 (new-version (package-version-split version-string))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
411 (new-pkg-desc
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
412 (cons name
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
413 (vector new-version
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
414 (mapcar
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
415 (lambda (elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
416 (list (car elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
417 (package-version-split (car (cdr elt)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
418 requirements)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
419 docstring))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
420 ;; Only redefine a package if the redefinition is newer.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
421 (if (or (not pkg-desc)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
422 (package-version-compare new-version
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
423 (package-desc-vers (cdr pkg-desc))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
424 '>))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
425 (progn
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
426 (when pkg-desc
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
427 ;; Remove old package and declare it obsolete.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
428 (setq package-alist (delq pkg-desc package-alist))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
429 (package-mark-obsolete (car pkg-desc) (cdr pkg-desc)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
430 ;; Add package to the alist.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
431 (setq package-alist (cons new-pkg-desc package-alist)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
432 ;; You can have two packages with the same version, for instance
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
433 ;; one in the system package directory and one in your private
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
434 ;; directory. We just let the first one win.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
435 (unless (package-version-compare new-version
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
436 (package-desc-vers (cdr pkg-desc))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
437 '=)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
438 ;; The package is born obsolete.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
439 (package-mark-obsolete (car new-pkg-desc) (cdr new-pkg-desc))))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
440
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
441 ;; 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
442 (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
443 "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
444 (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
445 (write-region
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
446 (concat ";;; " (file-name-nondirectory file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
447 " --- automatically extracted autoloads\n"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
448 ";;\n"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
449 ";;; Code:\n\n"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
450 "\n;; Local Variables:\n"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
451 ";; version-control: never\n"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
452 ";; no-byte-compile: t\n"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
453 ";; no-update-autoloads: t\n"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
454 ";; End:\n"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
455 ";;; " (file-name-nondirectory file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
456 " ends here\n")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
457 nil file))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
458 file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
459
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
460 (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
461 "Generate autoload definitions for package NAME in PKG-DIR."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
462 (let* ((auto-name (concat name "-autoloads.el"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
463 (ignore-name (concat name "-pkg.el"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
464 (generated-autoload-file (concat pkg-dir auto-name))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
465 (version-control 'never))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
466 ;; In Emacs 22 `update-directory-autoloads' does not seem
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
467 ;; to be autoloaded...
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
468 (require 'autoload)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
469 (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
470 (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
471 (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
472
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
473 (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
474 "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
475 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
476 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
477 `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
478 (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
479 (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
480 (progn
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
481 ;; tar-mode messes with narrowing, so we just let it have the
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
482 ;; whole buffer to play with.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
483 (delete-region (point-min) (point))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
484 (tar-mode)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
485 (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
486 ;; 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
487 (call-process-region (point) (point-max) "tar" nil '(nil nil) nil
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
488 "xf" "-")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
489
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
490 (defun package-unpack (name version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
491 "Unpack a package tar from 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
492
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
493 Unpack the package, using NAME and VERSION to determine the
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
494 target. The current buffer is expected to contain a tarred
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
495 package archive."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
496 (let ((pkg-dir (concat (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
497 (symbol-name name) "-" version "/")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
498 ;; Be careful!!
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
499 (make-directory package-user-dir t)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
500 (if (file-directory-p pkg-dir)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
501 (mapc (lambda (file) nil) ; 'delete-file -- FIXME: when we're
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
502 ; more confident
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
503 (directory-files pkg-dir t "^[^.]")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
504 (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
505 (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
506 (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
507 (let ((load-path (cons pkg-dir load-path)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
508 (byte-recompile-directory pkg-dir 0 t)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
509
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
510 (defun package-unpack-single (file-name version desc requires)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
511 "Install the contents of the current buffer as a package.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
512
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
513 FILE-NAME is the name of the current file being unpacked.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
514 package.el itself is handled specially, so this information is
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
515 important.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
516
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
517 VERSION is the version (as a string) of the file being unpacked.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
518
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
519 DESC is a brief description of the package.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
520
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
521 REQUIRES is a list of symbols which this package needs to run."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
522 (let* ((dir (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
523 ;; Special case "package".
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
524 (if (string= file-name "package")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
525 (write-region (point-min) (point-max) (concat dir file-name ".el")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
526 nil nil nil nil)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
527 (let ((pkg-dir (file-name-as-directory
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
528 (concat dir file-name "-" version))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
529 (make-directory pkg-dir t)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
530 (write-region (point-min) (point-max)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
531 (concat pkg-dir file-name ".el")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
532 nil nil nil 'excl)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
533 (let ((print-level nil)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
534 (print-length nil))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
535 (write-region
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
536 (concat
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
537 (prin1-to-string
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
538 (list 'define-package
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
539 file-name
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
540 version
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
541 desc
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
542 (list 'quote
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
543 ;; Turn version lists into string form.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
544 (mapcar
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
545 (lambda (elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
546 (list (car elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
547 (package-version-join (car (cdr elt)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
548 requires))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
549 "\n")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
550 nil
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
551 (concat pkg-dir file-name "-pkg.el")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
552 nil nil nil 'excl))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
553 (package-generate-autoloads file-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
554 (let ((load-path (cons pkg-dir load-path)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
555 (byte-recompile-directory pkg-dir 0 t))))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
556
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
557 (defun package-handle-response ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
558 "Handle the response from the server.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
559 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
560 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
561 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
562 It will move point to somewhere in the headers."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
563 (let ((type (url-type url-current-object)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
564 (cond
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
565 ((equal type "http")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
566 (let ((response (url-http-parse-response)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
567 (when (or (< response 200) (>= response 300))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
568 (display-buffer (current-buffer))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
569 (error "Error during download request:%s"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
570 (buffer-substring-no-properties (point) (progn
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
571 (end-of-line)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
572 (point)))))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
573 ((equal type "file")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
574 nil))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
575
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
576 (defun package-download-single (name version desc requires)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
577 "Download and install a single-file package.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
578
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
579 NAME, VERSION, DESC, and REQUIRES are used to build the package
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
580 info."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
581 (let ((buffer (url-retrieve-synchronously
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
582 (concat (package-archive-for name)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
583 (symbol-name name) "-" version ".el"))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
584 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
585 (set-buffer buffer)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
586 (package-handle-response)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
587 (re-search-forward "^$" nil 'move)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
588 (forward-char)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
589 (delete-region (point-min) (point))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
590 (package-unpack-single (symbol-name name) version desc requires)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
591 (kill-buffer buffer))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
592
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
593 (defun package-download-tar (name version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
594 "Download and install a tar package NAME at VERSION."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
595 (let ((tar-buffer (url-retrieve-synchronously
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
596 (concat (package-archive-for name)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
597 (symbol-name name) "-" version ".tar"))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
598 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
599 (set-buffer tar-buffer)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
600 (package-handle-response)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
601
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
602 ;; Skip past url-retrieve headers, which would otherwise confuse poor
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
603 ;; tar-mode.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
604 (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
605 (re-search-forward "^$" nil 'move)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
606 (forward-char)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
607
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
608 (package-unpack name version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
609 (kill-buffer tar-buffer))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
610
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
611 (defun package-installed? (package &optional min-version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
612 "Check whether PACKAGE is installed and at least MIN-VERSION."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
613 (let ((pkg-desc (assq package package-alist)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
614 (and pkg-desc
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
615 (package-version-compare min-version
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
616 (package-desc-vers (cdr pkg-desc))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
617 '<=))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
618
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
619 (defun package-compute-transaction (result requirements)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
620 "Recursively prepare a transaction, resolving dependencies.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
621
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
622 RESULT is a flattened list of packages to install.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
623 `package-compute-transaction' recursively builds this argument
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
624 before passing it up to the caller.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
625
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
626 REQUIREMENTS is a list of required packages, to be recursively
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
627 processed to resolve all dependencies (if possible)."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
628 (while requirements
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
629 (let* ((elt (car requirements))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
630 (next-pkg (car elt))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
631 (next-version (car (cdr elt))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
632 (unless (package-installed? next-pkg next-version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
633 (let ((pkg-desc (assq next-pkg 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
634 (unless pkg-desc
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
635 (error "Package '%s' not available for installation"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
636 (symbol-name next-pkg)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
637 (unless (package-version-compare (package-desc-vers (cdr pkg-desc))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
638 next-version
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
639 '>=)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
640 (error
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
641 "Need package '%s' with version %s, but only %s is available"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
642 (symbol-name next-pkg) (package-version-join next-version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
643 (package-version-join (package-desc-vers (cdr pkg-desc)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
644 ;; Only add to the transaction if we don't already have it.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
645 (unless (memq next-pkg result)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
646 (setq result (cons next-pkg result)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
647 (setq result
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
648 (package-compute-transaction result
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
649 (package-desc-reqs
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
650 (cdr pkg-desc)))))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
651 (setq requirements (cdr requirements)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
652 result)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
653
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
654 (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
655 "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
656 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
657 (let* ((read-data (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
658 (more-left
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
659 (condition-case nil
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
660 ;; The call to `ignore' suppresses a compiler warning.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
661 (progn (ignore (read-from-string
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
662 (substring str (cdr read-data))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
663 t)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
664 (end-of-file nil))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
665 (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
666 (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
667 (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
668
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
669 (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
670 "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
671 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
672 Will throw an error if the archive version is too new."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
673 (let ((filename (concat (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
674 file)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
675 (if (file-exists-p filename)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
676 (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
677 (insert-file-contents-literally filename)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
678 (let ((contents (package-read-from-string
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
679 (buffer-substring-no-properties (point-min)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
680 (point-max)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
681 (if (> (car contents) package-archive-version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
682 (error "Package archive version %d is greater than %d - upgrade package.el"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
683 (car contents) package-archive-version))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
684 (cdr contents))))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
685
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
686 (defun 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
687 "Read the archive description of each of the archives in `package-archives'."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
688 (dolist (archive package-archives)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
689 (package-read-archive-contents (car archive)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
690 (let ((builtins (package--read-archive-file
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
691 (concat "archives/" (caar package-archives)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
692 "/builtin-packages"))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
693 (if builtins
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
694 ;; Version 1 of 'builtin-packages' is a list where the car is
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
695 ;; a split emacs version and the cdr is an alist suitable for
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
696 ;; package--builtins.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
697 (let ((our-version (package-version-split emacs-version))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
698 (result package--builtins-base))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
699 (setq package--builtins
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
700 (dolist (elt builtins result)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
701 (if (package-version-compare our-version (car elt) '>=)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
702 (setq result (append (cdr elt) result)))))))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
703
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
704 (defun package-read-archive-contents (archive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
705 "Re-read `archive-contents' and `builtin-packages', for ARCHIVE if they exist.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
706
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
707 Will set `package-archive-contents' and `package--builtins' if
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
708 successful. Will throw an error if the archive version is too
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
709 new."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
710 (let ((archive-contents (package--read-archive-file
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
711 (concat "archives/" archive
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
712 "/archive-contents"))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
713 (if archive-contents
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
714 ;; Version 1 of 'archive-contents' is identical to our
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
715 ;; internal representation.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
716 ;; TODO: merge archive lists
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
717 (dolist (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
718 (package--add-to-archive-contents package archive)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
719
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
720 (defun package--add-to-archive-contents (package archive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
721 "Add the PACKAGE from the given ARCHIVE if needed.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
722
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
723 Adds the archive from which it came to the end of the package vector."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
724 (let* ((package-name (car package))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
725 (package-version (aref (cdr package) 0))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
726 (package-with-archive (cons (car package)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
727 (vconcat (cdr package) (vector archive))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
728 (existing-package (cdr (assq package-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
729 (when (or (not existing-package)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
730 (package-version-compare package-version
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
731 (aref existing-package 0) '>))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
732 (add-to-list 'package-archive-contents package-with-archive))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
733
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
734 (defun package-download-transaction (transaction)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
735 "Download and install all the packages in the given TRANSACTION."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
736 (mapc (lambda (elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
737 (let* ((desc (cdr (assq elt 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
738 (v-string (package-version-join (package-desc-vers desc)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
739 (kind (package-desc-kind desc)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
740 (cond
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
741 ((eq kind 'tar)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
742 (package-download-tar elt v-string))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
743 ((eq kind 'single)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
744 (package-download-single elt v-string
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
745 (package-desc-doc desc)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
746 (package-desc-reqs desc)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
747 (t
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
748 (error "Unknown package kind: " (symbol-name kind))))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
749 transaction))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
750
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
751 (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
752 "Install the package named NAME.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
753 Interactively, prompts for 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
754 (interactive
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
755 (list (progn
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
756 (intern (completing-read "Install package: "
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
757 (mapcar (lambda (elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
758 (cons (symbol-name (car elt))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
759 nil))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
760 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
761 nil t)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
762 (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
763 (unless pkg-desc
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
764 (error "Package '%s' not available for installation"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
765 (symbol-name name)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
766 (let ((transaction
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
767 (package-compute-transaction (list name)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
768 (package-desc-reqs (cdr pkg-desc)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
769 (package-download-transaction transaction)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
770 ;; 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
771 (package-initialize))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
772
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
773 (defun package-strip-rcs-id (v-str)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
774 "Strip RCS version ID from the version string V-STR.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
775
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
776 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
777 Otherwise return nil."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
778 (if v-str
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
779 (if (string-match "[ \t]*\\$\\(?:Revision\\|Id\\):[ \t]\\(?:[^ \t]+,v[ \t]+\\)?\\([0-9.]+\\).*\\$$" v-str)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
780 (match-string 1 v-str)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
781 (if (string-match "^[0-9.]*$" v-str)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
782 v-str))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
783
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
784 (defun package-buffer-info ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
785 "Return a vector of information about the package in 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
786 The vector looks like [FILENAME REQUIRES DESCRIPTION VERSION COMMENTARY]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
787 FILENAME is the file name, a string. It does not have the \".el\" extension.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
788 REQUIRES is a requires list, or nil.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
789 DESCRIPTION is the package description (a string).
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
790 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
791 COMMENTARY is the commentary section, a string, or nil if none.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
792 Throws an exception if the buffer does not contain a conforming package.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
793 If there is a package, narrows the buffer to the file's boundaries.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
794 May narrow buffer or move point even on failure."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
795 (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
796 (if (re-search-forward "^;;; \\([^ ]*\\)\\.el --- \\(.*\\)$" nil t)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
797 (let ((file-name (match-string 1))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
798 (desc (match-string 2))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
799 (start (progn (beginning-of-line) (point))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
800 (if (search-forward (concat ";;; " file-name ".el ends here"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
801 (progn
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
802 ;; Try to include a trailing newline.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
803 (forward-line)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
804 (narrow-to-region start (point))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
805 (require 'lisp-mnt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
806 ;; Use some headers we've invented to drive the process.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
807 (let* ((requires-str (lm-header "package-requires"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
808 (requires (if requires-str
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
809 (package-read-from-string requires-str)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
810 ;; Prefer Package-Version, because if it is
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
811 ;; defined the package author probably wants us
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
812 ;; to use it. Otherwise try Version.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
813 (pkg-version
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
814 (or (package-strip-rcs-id (lm-header "package-version"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
815 (package-strip-rcs-id (lm-header "version"))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
816 (commentary (lm-commentary)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
817 (unless pkg-version
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
818 (error
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
819 "Package does not define a usable \"Version\" or \"Package-Version\" header"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
820 ;; Turn string version numbers into list form.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
821 (setq requires
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
822 (mapcar
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
823 (lambda (elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
824 (list (car elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
825 (package-version-split (car (cdr elt)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
826 requires))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
827 (set-text-properties 0 (length file-name) nil file-name)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
828 (set-text-properties 0 (length pkg-version) nil pkg-version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
829 (set-text-properties 0 (length desc) nil desc)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
830 (vector file-name requires desc pkg-version commentary)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
831 (error "Package missing a terminating comment")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
832 (error "No starting comment for package")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
833
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
834 (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
835 "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
836 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
837 The return result is a vector like `package-buffer-info'."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
838 (setq file (expand-file-name file))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
839 (unless (string-match "^\\(.+\\)-\\([0-9.]+\\)\\.tar$" file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
840 (error "`%s' doesn't have a package-ish name" file))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
841 (let* ((pkg-name (file-name-nondirectory (match-string-no-properties 1 file)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
842 (pkg-version (match-string-no-properties 2 file))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
843 ;; Extract the package descriptor.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
844 (pkg-def-contents (shell-command-to-string
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
845 ;; Requires GNU tar.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
846 (concat "tar -xOf " file " "
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
847 pkg-name "-" pkg-version "/"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
848 pkg-name "-pkg.el")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
849 (pkg-def-parsed (package-read-from-string pkg-def-contents)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
850 (unless (eq (car pkg-def-parsed) 'define-package)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
851 (error "%s-pkg.el doesn't contain `define-package' sexp" pkg-name))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
852 (let ((name-str (nth 1 pkg-def-parsed))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
853 (version-string (nth 2 pkg-def-parsed))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
854 (docstring (nth 3 pkg-def-parsed))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
855 (requires (nth 4 pkg-def-parsed))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
856
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
857 (readme (shell-command-to-string
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
858 ;; Requires GNU tar.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
859 (concat "tar -xOf " file " "
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
860 pkg-name "-" pkg-version "/README"))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
861 (unless (equal pkg-version version-string)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
862 (error "Inconsistent versions!"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
863 (unless (equal pkg-name name-str)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
864 (error "Inconsistent names!"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
865 ;; Kind of a hack.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
866 (if (string-match ": Not found in archive" readme)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
867 (setq readme nil))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
868 ;; Turn string version numbers into list form.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
869 (if (eq (car requires) 'quote)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
870 (setq requires (car (cdr requires))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
871 (setq requires
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
872 (mapcar
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
873 (lambda (elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
874 (list (car elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
875 (package-version-split (car (cdr elt)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
876 requires))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
877 (vector pkg-name requires docstring version-string readme))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
878
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
879 (defun package-install-buffer-internal (pkg-info type)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
880 "Download and install a single package.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
881
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
882 PKG-INFO describes the package to be installed.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
883
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
884 TYPE is either `single' or `tar'."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
885 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
886 (save-restriction
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
887 (let* ((file-name (aref pkg-info 0))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
888 (requires (aref pkg-info 1))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
889 (desc (if (string= (aref pkg-info 2) "")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
890 "No description available."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
891 (aref pkg-info 2)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
892 (pkg-version (aref pkg-info 3)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
893 ;; Download and install the dependencies.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
894 (let ((transaction (package-compute-transaction nil requires)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
895 (package-download-transaction transaction))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
896 ;; Install the package itself.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
897 (cond
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
898 ((eq type 'single)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
899 (package-unpack-single file-name pkg-version desc requires))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
900 ((eq type 'tar)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
901 (package-unpack (intern file-name) pkg-version))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
902 (t
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
903 (error "Unknown type: %s" (symbol-name type))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
904 ;; 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
905 (package-initialize)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
906
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
907 (defun package-install-from-buffer ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
908 "Install a package from 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
909 The package is assumed to be a single .el file which
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
910 follows the elisp comment guidelines; see
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
911 info node `(elisp)Library Headers'."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
912 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
913 (package-install-buffer-internal (package-buffer-info) 'single))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
914
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
915 (defun package-install-file (file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
916 "Install a package from a FILE.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
917 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
918 (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
919 (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
920 (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
921 (cond
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
922 ((string-match "\\.el$" file) (package-install-from-buffer))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
923 ((string-match "\\.tar$" file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
924 (package-install-buffer-internal (package-tar-file-info file) 'tar))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
925 (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
926
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
927 (defun package-delete (name version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
928 "Delete package NAME at VERSION."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
929 (require 'dired) ; for dired-delete-file
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
930 (dired-delete-file (concat (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
931 name "-" version)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
932 ;; FIXME: query user?
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
933 'always))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
934
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
935 (defun package--encode (string)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
936 "Encode a STRING by replacing some characters with XML entities."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
937 ;; We need a special case for translating "&" to "&amp;".
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
938 (let ((index))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
939 (while (setq index (string-match "[&]" string index))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
940 (setq string (replace-match "&amp;" t nil string))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
941 (setq index (1+ index))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
942 (while (string-match "[<]" string)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
943 (setq string (replace-match "&lt;" t nil string)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
944 (while (string-match "[>]" string)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
945 (setq string (replace-match "&gt;" t nil string)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
946 (while (string-match "[']" string)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
947 (setq string (replace-match "&apos;" t nil string)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
948 (while (string-match "[\"]" string)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
949 (setq string (replace-match "&quot;" t nil string)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
950 string)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
951
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
952 (defun package--update-file (file location text)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
953 "Update FILE by finding LOCATION and inserting TEXT."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
954 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
955 (let ((old-buffer (find-buffer-visiting file)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
956 (with-current-buffer (let ((find-file-visit-truename t))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
957 (or old-buffer (find-file-noselect file)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
958 (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
959 (search-forward location)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
960 (forward-line)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
961 (insert text)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
962 (let ((file-precious-flag t))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
963 (save-buffer))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
964 (unless old-buffer
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
965 (kill-buffer (current-buffer)))))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
966
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
967 (defun package-archive-for (name)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
968 "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
969 (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
970 (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
971
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
972 (defun package--download-one-archive (archive file)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
973 "Download a single archive file and cache it locally.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
974
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
975 Downloads the archive index from ARCHIVE and stores it in FILE."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
976 (let* ((archive-name (car archive))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
977 (archive-url (cdr archive))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
978 (buffer (url-retrieve-synchronously (concat archive-url file))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
979 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
980 (set-buffer buffer)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
981 (package-handle-response)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
982 (re-search-forward "^$" nil 'move)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
983 (forward-char)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
984 (delete-region (point-min) (point))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
985 (make-directory (concat (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
986 "archives/" archive-name) t)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
987 (setq buffer-file-name (concat (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
988 "archives/" archive-name "/" file))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
989 (let ((version-control 'never))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
990 (save-buffer))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
991 (kill-buffer buffer))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
992
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
993 (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
994 "Download the ELPA archive description if needed.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
995 Invoking this will ensure that Emacs knows about the latest versions
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
996 of all packages. This will let Emacs make them available for
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
997 download."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
998 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
999 (dolist (archive package-archives)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1000 (package--download-one-archive archive "archive-contents"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1001 (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
1002
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1003 (defun package-initialize ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1004 "Load all packages and activate as many as possible."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1005 (setq 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
1006 (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
1007 (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
1008 ;; Try to activate all our packages.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1009 (mapc (lambda (elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1010 (package-activate (car elt) (package-desc-vers (cdr elt))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1011 package-alist))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1012
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1013
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1014
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1015 ;;;; 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
1016
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1017 (defvar 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
1018 (let ((map (make-keymap))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1019 (menu-map (make-sparse-keymap "Package")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1020 (suppress-keymap map)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1021 (define-key map "q" 'quit-window)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1022 (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
1023 (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
1024 (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
1025 (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
1026 (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
1027 (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
1028 (define-key map "g" 'package-menu-revert)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1029 (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
1030 (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
1031 (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
1032 (define-key map "h" '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
1033 (define-key map "?" '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
1034 (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
1035 (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
1036 '(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
1037 :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
1038 (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
1039 (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
1040 '(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
1041 :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
1042 (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
1043 '(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
1044 :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
1045 (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
1046 (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
1047 '(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
1048 :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
1049 (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
1050 '(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
1051 :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
1052 (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
1053 '(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
1054 :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
1055 (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
1056 '(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
1057 :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
1058 (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
1059 (define-key menu-map [mg]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1060 '(menu-item "Update package list" package-menu-revert
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1061 :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
1062 (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
1063 '(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
1064 :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
1065 (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
1066 (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
1067 '(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
1068 :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
1069 (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
1070 '(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
1071 :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
1072 (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
1073 (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
1074 '(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
1075 :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
1076 (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
1077 '(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
1078 :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
1079 map)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1080 "Local keymap for `package-menu-mode' buffers.")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1081
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1082 (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
1083 (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
1084 (define-key map [header-line mouse-1] 'package-menu-sort-by-column)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1085 (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
1086 map)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1087 "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
1088
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1089 (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
1090
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1091 (defun 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
1092 "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
1093 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
1094 \\<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
1095 \\{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
1096 (kill-all-local-variables)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1097 (use-local-map 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
1098 (setq major-mode '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
1099 (setq mode-name "Package Menu")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1100 (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
1101 (setq buffer-read-only t)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1102 ;; Support Emacs 21.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1103 (if (fboundp 'run-mode-hooks)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1104 (run-mode-hooks 'package-menu-mode-hook)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1105 (run-hooks 'package-menu-mode-hook)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1106
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1107 (defun 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
1108 "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
1109 This fetches the file describing the current contents of
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1110 the Emacs Lisp Package Archive, and then refreshes the
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1111 package menu. This lets you see what new packages are
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1112 available for download."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1113 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1114 (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
1115 (package-list-packages-internal))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1116
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1117 (defun package-menu-revert ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1118 "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
1119 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1120 (package-list-packages-internal))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1121
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1122 (defun package-menu-mark-internal (what)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1123 "Internal function to mark a package.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1124
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1125 WHAT is the character used to mark the line."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1126 (unless (eobp)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1127 (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
1128 (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
1129 (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
1130 (insert what)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1131 (forward-line))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1132
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1133 (defun package-menu-mark-delete (&optional arg)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1134 "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
1135
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1136 ARG is a (currently unused) numeric argument."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1137 (interactive "p")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1138 (package-menu-mark-internal "D"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1139
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1140 (defun package-menu-mark-install (&optional arg)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1141 "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
1142
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1143 ARG is a (currently unused) numeric argument."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1144 (interactive "p")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1145 (package-menu-mark-internal "I"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1146
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1147 (defun package-menu-mark-unmark (&optional arg)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1148 "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
1149
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1150 ARG is a (currently unused) numeric argument."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1151 (interactive "p")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1152 (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
1153
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1154 (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
1155 "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
1156 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1157 (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
1158 (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
1159 (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
1160
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1161 (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
1162 "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
1163 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1164 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1165 (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
1166 (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
1167 (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
1168 (if (looking-at ".*\\s obsolete\\s ")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1169 (package-menu-mark-internal "D")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1170 (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
1171
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1172 (defun 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
1173 "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
1174 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1175 (message "n-ext, i-nstall, d-elete, u-nmark, x-ecute, r-efresh, h-elp ?-view commentary"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1176
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1177 (defun 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
1178 "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
1179 For single-file packages, shows the commentary section from the header.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1180 For larger packages, shows the README file."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1181 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1182 (let* (start-point ok
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1183 (pkg-name (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
1184 (buffer (url-retrieve-synchronously
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1185 (concat (package-archive-for pkg-name)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1186 pkg-name "-readme.txt"))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1187 (with-current-buffer buffer
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1188 ;; FIXME: it would be nice to work with any URL type.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1189 (setq start-point url-http-end-of-headers)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1190 (setq ok (eq (url-http-parse-response) 200)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1191 (let ((new-buffer (get-buffer-create "*Package Info*")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1192 (with-current-buffer new-buffer
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1193 (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
1194 (erase-buffer)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1195 (insert "Package information for " pkg-name "\n\n")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1196 (if ok
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1197 (insert-buffer-substring buffer start-point)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1198 (insert "This package does not have a README file or commentary comment.\n"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1199 (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
1200 (view-mode)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1201 (display-buffer new-buffer t))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1202
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1203 (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
1204 "Return the name of the package on the current line."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1205 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1206 (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
1207 (if (looking-at ". \\([^ \t]*\\)")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1208 (match-string-no-properties 1))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1209
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1210 (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
1211 "Return the version of the package on the current line."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1212 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1213 (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
1214 (if (looking-at ". [^ \t]*[ \t]*\\([0-9.]*\\)")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1215 (match-string 1))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1216
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1217 (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
1218 "Get the status of the current line."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1219 (save-excursion
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1220 (if (looking-at ". [^ \t]*[ \t]*[^ \t]*[ \t]*\\([^ \t]*\\)")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1221 (match-string 1)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1222 "")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1223
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1224 (defun 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
1225 "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
1226 Packages marked for installation will be downloaded and
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1227 installed. Packages marked for deletion will be removed.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1228 Note that after installing packages you will want to restart
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1229 Emacs."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1230 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1231 (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
1232 (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
1233 (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
1234 (let ((cmd (char-after))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1235 (pkg-name (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
1236 (pkg-vers (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
1237 (pkg-status (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
1238 (cond
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1239 ((eq cmd ?D)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1240 (when (and (string= pkg-status "installed")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1241 (string= pkg-name "package"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1242 ;; FIXME: actually, we could be tricky and remove all info.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1243 ;; But that is drastic and the user can do that instead.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1244 (error "Can't delete most recent version of `package'"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1245 ;; Ask for confirmation here? Maybe if package status is ""?
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1246 ;; Or if any lisp from package is actually loaded?
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1247 (message "Deleting %s-%s..." pkg-name pkg-vers)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1248 (package-delete pkg-name pkg-vers)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1249 (message "Deleting %s-%s... done" pkg-name pkg-vers))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1250 ((eq cmd ?I)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1251 (package-install (intern pkg-name)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1252 (forward-line))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1253 (package-menu-revert))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1254
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1255 (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
1256 "Print out a single PACKAGE line for the menu buffer.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1257
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1258 PACKAGE is the package name as a symbol.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1259
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1260 VERSION is the version as an integer vector.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1261
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1262 KEY is the installation status of the package; either
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1263 \"available\" or \"installed\".
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1264
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1265 DESC is the short description of the package."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1266 (let ((face
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1267 (cond ((eq package 'emacs) 'font-lock-builtin-face)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1268 ((string= key "available") 'default)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1269 ((string= key "installed") 'font-lock-comment-face)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1270 (t ; obsolete, but also the default.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1271 ; is warning ok?
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1272 'font-lock-warning-face))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1273 (insert (propertize " " '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
1274 (insert (propertize (symbol-name package) '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
1275 (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
1276 (insert (propertize (package-version-join version) '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
1277 (indent-to 30 1)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1278 (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
1279 ;; 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
1280 (when desc
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1281 (indent-to 41 1)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1282 (insert (propertize desc '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
1283 (insert "\n")))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1284
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1285 (defun package-list-maybe-add (package version status description result)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1286 "Add PACKAGE to the list if it is not already there.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1287
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1288 PACKAGE is the package name as a symbol.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1289
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1290 VERSION is the package version, as an integer vector.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1291
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1292 STATUS is the installation status of the package, either
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1293 \"available\" or \"installed\".
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1294
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1295 DESCRIPTION is the short description of the package.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1296
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1297 RESULT is the list to which to add the package."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1298 (let ((elt (assoc (cons package version) result)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1299 (unless elt
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1300 (setq result (cons (list (cons package version) status description)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1301 result))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1302 result)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1303
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1304 ;; This decides how we should sort; nil means by package name.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1305 (defvar package-menu-sort-key nil)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1306
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1307 (defun package-list-packages-internal ()
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1308 "List the available and installed packages."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1309 (package-initialize) ; FIXME: do this here?
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1310 (with-current-buffer (get-buffer-create "*Packages*")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1311 (setq 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
1312 (erase-buffer)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1313 (let ((info-list))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1314 (mapc (lambda (elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1315 (setq info-list
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1316 (package-list-maybe-add (car elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1317 (package-desc-vers (cdr elt))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1318 ;; FIXME: it turns out to
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1319 ;; be tricky to see if
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1320 ;; this package is
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1321 ;; presently activated.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1322 ;; That is lame!
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1323 "installed"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1324 (package-desc-doc (cdr elt))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1325 info-list)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1326 package-alist)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1327 (mapc (lambda (elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1328 (setq info-list
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1329 (package-list-maybe-add (car elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1330 (package-desc-vers (cdr elt))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1331 "available"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1332 (package-desc-doc (cdr elt))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1333 info-list)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1334 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
1335 (mapc (lambda (elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1336 (mapc (lambda (inner-elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1337 (setq info-list
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1338 (package-list-maybe-add (car elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1339 (package-desc-vers
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1340 (cdr inner-elt))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1341 "obsolete"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1342 (package-desc-doc
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1343 (cdr inner-elt))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1344 info-list)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1345 (cdr elt)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1346 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
1347 (let ((selector (cond
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1348 ((string= package-menu-sort-key "Version")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1349 ;; FIXME this doesn't work.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1350 #'(lambda (e) (cdr (car e))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1351 ((string= package-menu-sort-key "Status")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1352 #'(lambda (e) (car (cdr e))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1353 ((string= package-menu-sort-key "Description")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1354 #'(lambda (e) (car (cdr (cdr e)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1355 (t ; "Package" is default.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1356 #'(lambda (e) (symbol-name (car (car e))))))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1357 (setq info-list
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1358 (sort info-list
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1359 (lambda (left right)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1360 (let ((vleft (funcall selector left))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1361 (vright (funcall selector right)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1362 (string< vleft vright))))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1363 (mapc (lambda (elt)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1364 (package-print-package (car (car elt))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1365 (cdr (car elt))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1366 (car (cdr elt))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1367 (car (cdr (cdr elt)))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1368 info-list))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1369 (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
1370 (current-buffer)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1371
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1372 (defun package-menu-sort-by-column (&optional e)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1373 "Sort the package menu by the last column clicked, E."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1374 (interactive (list last-input-event))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1375 (if e (mouse-select-window e))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1376 (let* ((pos (event-start e))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1377 (obj (posn-object pos))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1378 (col (if obj
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1379 (get-text-property (cdr obj) 'column-name (car obj))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1380 (get-text-property (posn-point pos) 'column-name))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1381 (setq package-menu-sort-key col))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1382 (package-list-packages-internal))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1383
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1384 (defun 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
1385 "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
1386 Helper function that does all the work for the user-facing functions."
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1387 (with-current-buffer (package-list-packages-internal)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1388 (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
1389 ;; Set up the header line.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1390 (setq header-line-format
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1391 (mapconcat
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1392 (lambda (pair)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1393 (let ((column (car pair))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1394 (name (cdr pair)))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1395 (concat
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1396 ;; Insert a space that aligns the button properly.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1397 (propertize " " 'display (list 'space :align-to column)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1398 'face 'fixed-pitch)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1399 ;; Set up the column button.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1400 (if (string= name "Version")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1401 name
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1402 (propertize name
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1403 'column-name name
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1404 'help-echo "mouse-1: sort by column"
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1405 'mouse-face 'highlight
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1406 'keymap 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
1407 ;; We take a trick from buff-menu and have a dummy leading
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1408 ;; space to align the header line with the beginning of the
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1409 ;; text. This doesn't really work properly on Emacs 21,
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1410 ;; but it is close enough.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1411 '((0 . "")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1412 (2 . "Package")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1413 (20 . "Version")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1414 (30 . "Status")
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1415 (41 . "Description"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1416 ""))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1417
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1418 ;; It's okay to use pop-to-buffer here. The package menu buffer
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1419 ;; has keybindings, and the user just typed 'M-x
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1420 ;; package-list-packages', suggesting that they might want to use
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1421 ;; them.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1422 (pop-to-buffer (current-buffer))))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1423
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1424 (defun 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
1425 "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
1426 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
1427 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
1428 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1429 (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
1430 (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
1431
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1432 (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
1433 "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
1434 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
1435 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
1436 (interactive)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1437 (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
1438
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1439 ;; Make it appear on the menu.
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1440 (define-key-after menu-bar-options-menu [package]
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1441 '(menu-item "Manage Packages" 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
1442 :help "Install or uninstall additional Emacs packages"))
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1443
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1444 (provide 'package)
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1445
8980dc2deda0 emacs: use package.el to bootstrap instead of checking in all needed libs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1446 ;;; package.el ends here