package.el config

(setq jpk-packages
      '(
        auctex
        bm
        boxquote
        buffer-move
        csharp-mode
        csv-mode
        diminish
        dired-isearch
        drag-stuff
        etags-select
        etags-table
        findr
        full-ack
        hideshowvis
        htmlize
        ido-ubiquitous
        lua-mode
        mic-paren
        rainbow-mode
        smex
        undo-tree
        wgrep
        workgroups
        wrap-region
        yas-jit
        ))

(package-initialize)
(add-to-list 'package-archives
             '("marmalade" . "http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives
             '("ELPA" . "http://tromey.com/elpa/"))

(when (not package-archive-contents)
  (package-refresh-contents))

(dolist (pkg jpk-packages)
  (when (and (not (package-installed-p pkg))
           (assoc pkg package-archive-contents))
    (package-install pkg)))

(defun package-list-unaccounted-packages ()
  "Like `package-list-packages', but shows only the packages that
  are installed and are not in `jpk-packages'.  Useful for
  cleaning out unwanted packages."
  (interactive)
  (package-show-package-list
   (remove-if-not (lambda (x) (and (not (memq x jpk-packages))
                            (not (package-built-in-p x))
                            (package-installed-p x)))
                  (mapcar 'car package-archive-contents))))