summary refs log tree commit diff stats
path: root/emacs
diff options
context:
space:
mode:
Diffstat (limited to 'emacs')
-rw-r--r--emacs/elisp/package-install.el129
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 f4ac976..0000000
--- 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