(require 'package)

(defvar marmalade '("marmalade" . "http://marmalade-repo.org/packages/"))
(defvar gnu '("gnu" . "http://elpa.gnu.org/packages/"))
(defvar melpa '("melpa" . "http://melpa.milkbox.net/packages/"))
(defvar org-elpa '("org-elpa" . "http://orgmode.org/elpa/"))
(defvar sc-elpa '("sc-elpa" . "http://joseito.republika.pl/sunrise-commander/"))
(defvar melpa-stable '("melpa-stable" . "http://melpa-stable.milkbox.net/packages/"))

;; Add additional archives to package repos
(setq package-archives '())
(add-to-list 'package-archives org-elpa t)
(add-to-list 'package-archives sc-elpa t)
(add-to-list 'package-archives melpa-stable t)
(add-to-list 'package-archives melpa t)
(add-to-list 'package-archives marmalade t)
(add-to-list 'package-archives gnu t)

(defvar elx/installed-packages
  (list
   (list 'stripe-buffer melpa t)
   ;; [...] other packages
  )
)

(package-initialize)

(unless (and (file-exists-p "~/.emacs.d/elpa/archives/marmalade")
             (file-exists-p "~/.emacs.d/elpa/archives/gnu")
             (file-exists-p "~/.emacs.d/elpa/archives/org-elpa")
             (file-exists-p "~/.emacs.d/elpa/archives/sc-elpa")
             (file-exists-p "~/.emacs.d/elpa/archives/melpa"))
  (package-refresh-contents))

(defun elx/packages-install (packages)
  (mapc (lambda (pkg)
          (let ((name (nth 0 pkg))
                (repo (nth 1 pkg))
                (activate-p (nth 2 pkg)))
            (when (not (directory-files (expand-file-name "elpa" dotfiles-dir) nil
                                        (format "^%s-[0-9]+" (regexp-quote (format "%s" name)))))
              (message "Downloading '%s' ..." name)
              (let ((package-archives (append (list repo) package-archives)))
                (package-initialize)
                (package-install name)))))
        packages)
  (package-initialize)
  (delete-other-windows))

(message "Loading packages ...")
(condition-case nil
    (elx/packages-install elx/installed-packages)
  (error
   (package-refresh-contents)
   (elx/packages-install elx/installed-packages)))