62 lines
2.2 KiB
EmacsLisp
62 lines
2.2 KiB
EmacsLisp
;; Package management bootstrap
|
|
(setq package-user-dir "~/.emacs.d/vendor/")
|
|
(setq package-enable-at-startup nil)
|
|
(setq package-archives '(("melpa" . "http://melpa.milkbox.net/packages/")
|
|
("org" . "http://orgmode.org/elpa/")
|
|
("marmalade" . "http://marmalade-repo.org/packages/")
|
|
("gnu" . "http://elpa.gnu.org/packages/")))
|
|
|
|
(let ((default-directory my-elisp-dir))
|
|
(normal-top-level-add-to-load-path '("."))
|
|
(normal-top-level-add-subdirs-to-load-path))
|
|
|
|
(package-initialize)
|
|
|
|
;; Run a body of code *after* a package is ready
|
|
(defmacro after (feature &rest body)
|
|
"After FEATURE is loaded, evaluate BODY."
|
|
(declare (indent defun))
|
|
(if (fboundp 'with-eval-after-load)
|
|
`(with-eval-after-load ,feature ,@body)
|
|
`(eval-after-load ,feature '(progn ,@body))))
|
|
|
|
;; Check if a package is installed; if load is t, load it too.
|
|
;; Works for packages bundled with emacs too!
|
|
(defun require-package (package)
|
|
(message "=> require-package(%s)" package)
|
|
(unless (require package nil 'noerror)
|
|
(unless (package-installed-p package)
|
|
(unless (assoc package package-archive-contents)
|
|
(package-refresh-contents))
|
|
(package-install package)))
|
|
(require package))
|
|
|
|
;; List version of require-package
|
|
(defun require-packages (packages)
|
|
(mapc 'require-package packages))
|
|
|
|
;; Associate an extension with a mode, and install the necessary
|
|
;; package(s) for it. Also look for a modules/env-*.el modefile for
|
|
;; extra configuration.
|
|
(defun associate-mode (mode ext &optional only-load-env)
|
|
(let* ((mode-name (symbol-name mode))
|
|
(env-mode-name (concat "env-" mode-name))
|
|
(mode-path (expand-file-name (concat env-mode-name ".el") my-modules-dir)))
|
|
|
|
(message "=> Init %s" mode-name)
|
|
;; (unless only-load-env (autoload mode mode-name))
|
|
(unless only-load-env (require-package mode))
|
|
(when (file-exists-p mode-path)
|
|
(message "=> Loaded %s" env-mode-name)
|
|
(require (intern env-mode-name))
|
|
)
|
|
)
|
|
|
|
(if (typep ext 'list)
|
|
(dolist (e ext)
|
|
(add-to-list 'auto-mode-alist `(,e . ,mode)))
|
|
(add-to-list 'auto-mode-alist `(,ext . ,mode))))
|
|
|
|
;;
|
|
(provide 'core-packages)
|