From ca36b49592990ec69413050dd4cc085256fa6ad2 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Tue, 14 May 2013 16:20:12 +0100
Subject: Emacs: Remove el-get in favour of package.el

---
 emacs/init.el | 35 ++---------------------------------
 1 file changed, 2 insertions(+), 33 deletions(-)

(limited to 'emacs/init.el')

diff --git a/emacs/init.el b/emacs/init.el
index dc594fd..4716c59 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -10,36 +10,14 @@
 (setq custom-file "~/.emacs.d/custom.el")
 
 ;;;; Package Management
-(setq *el-get-dir* (expand-file-name "el-get/" user-emacs-directory)
-      *elisp-dir*  (expand-file-name "elisp/" user-emacs-directory)
+(setq *elisp-dir*  (expand-file-name "elisp/" user-emacs-directory)
       *custom-dir* (expand-file-name "custom/" user-emacs-directory)
-      el-get-github-default-url-type "git"
-      el-get-emacswiki-base-url "http://raw.github.com/emacsmirror/emacswiki.org/master/"
       package-archives '(("ELPA"      . "http://tromey.com/elpa/")
                          ("gnu"       . "http://elpa.gnu.org/packages/")
                          ("marmalade" . "http://marmalade-repo.org/packages/")
                          ("melpa"     . "http://melpa.milkbox.net/packages/")))
 
-(defun add-subdirs-to-load-path (path)
-  (unless (member path load-path)
-    (mapc (lambda (file)
-            (let ((full-path (concat path file)))
-              (if (and (not (string-prefix-p "." file))
-                       (file-directory-p full-path))
-                  (add-to-list 'load-path full-path))))
-          (directory-files path)))
-  (add-to-list 'load-path path))
-
-(if (file-exists-p (concat *el-get-dir* "el-get"))
-    (add-subdirs-to-load-path *el-get-dir*)
-  (unless (require 'el-get nil t)
-    (with-current-buffer
-      (url-retrieve-synchronously
-       "https://raw.github.com/dimitri/el-get/master/el-get-install.el")
-      (make-local-variable 'el-get-master-branch)
-      (goto-char (point-max))
-      (eval-print-last-sexp)
-      (load (concat *elisp-dir* "el-get-setup")))))
+(package-initialize)
 
 (add-to-list 'load-path *elisp-dir*)
 
@@ -49,15 +27,6 @@
   (unless (fboundp 'diminish)
     (require 'diminish nil t)))
 
-(use-package el-get
-  :commands (el-get-init
-             el-get-install
-             el-get-reinstall
-             el-get-remove
-             el-get-update
-             el-get-self-update
-             el-get-describe))
-
 ;;;; Style
 
 (use-package linum
-- 
cgit 1.4.1