diff options
| -rw-r--r-- | emacs/elisp/package-install.el | 129 |
1 files changed, 0 insertions, 129 deletions
diff --git a/emacs/elisp/package-install.el b/emacs/elisp/package-install.el deleted file mode 100644 index f4ac9768..00000000 --- a/emacs/elisp/package-install.el +++ /dev/null @@ -1,129 +0,0 @@ -;;; package-install.el --- auto-installer for package.el - -;; Copyright (C) 2007, 2008 Tom Tromey <tromey@redhat.com> - -;; This file is not (yet) part of GNU Emacs. -;; However, it is distributed under the same license. - -;; GNU Emacs is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -;; Boston, MA 02110-1301, USA. - -;; Code: - -;;; We don't want to define anything global here, so no defuns or -;;; defvars. - -;; Some values we need, copied from package.el, but with different -;; names. -(let ((my-archive-base "http://tromey.com/elpa/") - (my-user-dir (expand-file-name "~/.emacs.d/elpa"))) - - (require 'pp) - (let ((download - (lambda (url) - (if (fboundp 'url-retrieve-synchronously) - ;; Use URL to download. - (let ((buffer (url-retrieve-synchronously url))) - (save-excursion - (set-buffer buffer) - (goto-char (point-min)) - (re-search-forward "^$" nil 'move) - (forward-char) - (delete-region (point-min) (point)) - buffer)) - ;; Use wget to download. - (save-excursion - (with-current-buffer - (get-buffer-create - (generate-new-buffer-name " *Download*")) - (shell-command (concat "wget -q -O- " url) - (current-buffer)) - (goto-char (point-min)) - (current-buffer))))))) - - ;; Make the ELPA directory. - (make-directory my-user-dir t) - - ;; Download package.el and put it in the user dir. - (let ((pkg-buffer (funcall download (concat my-archive-base "package.el")))) - (save-excursion - (set-buffer pkg-buffer) - (setq buffer-file-name - (concat (file-name-as-directory my-user-dir) - "package.el")) - (save-buffer) - (kill-buffer pkg-buffer))) - - ;; Load package.el. - (load (expand-file-name "~/.emacs.d/elpa/package.el")) - - ;; Download URL package if we need it. - (unless (fboundp 'url-retrieve-synchronously) - ;; Note that we don't name the symbol "url-version", as that - ;; will cause us not to define the real url-version when - ;; url-vars is loaded, which in turn will cause errors later. - ;; Thanks to Tom Breton for this subtlety. - (let* ((the-version "1.15") - (pkg-buffer (funcall download (concat my-archive-base - "url-" the-version ".tar")))) - (save-excursion - (set-buffer pkg-buffer) - (package-unpack 'url the-version) - (kill-buffer pkg-buffer)))) - - ;; Arrange to load package.el at startup. - ;; Partly copied from custom-save-all. - - - (let ((filename (or user-init-file - (and (yes-or-no-p "You have no user-init-file, probably because Emacs was started with -q. Use ~/.emacs? ") - (convert-standard-filename "~/.emacs")))) - (magic (pp-to-string - '(when (load (expand-file-name "~/.emacs.d/elpa/package.el")) - (package-initialize))))) - (if (not filename) - (warn (concat "Cannot automatically activate package.el after reboot.\n" - "Please append the following code to your .emacs manually:\n" - "%s") magic) - (let ((old-buffer (find-buffer-visiting filename))) - (with-current-buffer (let ((find-file-visit-truename t)) - (or old-buffer (find-file-noselect filename))) - (unless (eq major-mode 'emacs-lisp-mode) - (emacs-lisp-mode)) - (let ((inhibit-read-only t)) - (save-excursion - (goto-char (point-max)) - (newline (if (bolp) 2 1)) - (insert ";;; This was installed by package-install.el.\n") - (insert ";;; This provides support for the package system and\n") - (insert ";;; interfacing with ELPA, the package archive.\n") - (insert ";;; Move this code earlier if you want to reference\n") - (insert ";;; packages in your .emacs.\n") - (insert magic))) - (let ((file-precious-flag t)) - (save-buffer)) - (unless old-buffer - (kill-buffer (current-buffer))))))) - - ;; Start the package manager. - (package-initialize) - - ;; Read package archive to give the user a nice initial - ;; experience. FIXME: this doesn't work, at least squid gave a - ;; weird error when I tried it :( - ;; (package-refresh-contents) - )) - -;;; package-install.el ends here |