;; getelget - el-get boostrap script
;;
;; Checks to see if el-get has been checked out, and bootstraps it if
;; it has not. After bootstrapping, calls el-get to load specified
;; packages.
;; 
;; el-get-sources should be defined before including this file.
;;
;; Written in 2011 by Nathan R. Yergler <nathan@yergler.net>
;; 
;; To the extent possible under law, the person who associated CC0 with
;; getelget has waived all copyright and related or neighboring rights
;; to getelget.
;;
;; You should have received a copy of the CC0 legalcode along with this
;; work.  If not, see <http://creativecommons.org/publicdomain/zero/1.0/>.

(if 
    (file-accessible-directory-p 
     (concat (file-name-as-directory user-emacs-directory) "el-get"))

    ;; el-get is boostrapped
    (progn 
      ;; add the checkout path to load-path, require, and execute
      (add-to-list 'load-path 
		   (concat (file-name-as-directory user-emacs-directory)
			   (file-name-as-directory "el-get")
			   "el-get"))
      (require 'el-get)
      (el-get)
      )

  ;; el-get is not boostrapped; this is largely lifted from the el-get
  ;; install for the lazy
  (url-retrieve
   "https://github.com/dimitri/el-get/raw/master/el-get-install.el"
   (lambda (s)
     ;; bootstrap
     (end-of-buffer)
     (eval-print-last-sexp)

     ;; and run
     (let (
	   (buf (switch-to-buffer "*el-get bootstrap*"))
	   )
       (with-current-buffer buf
	 (goto-char (point-max))
	 (insert "\n\nLoading packages for the first time, this will continue in the background."))

       ;; call el-get
       (el-get)
       )
     ))
  )