From 98ba0e744bdf99ce0a894451700f11c39dc2579b Mon Sep 17 00:00:00 2001 From: Tharre Date: Mon, 14 Sep 2015 20:19:14 +0200 Subject: emacs: actually install .emacs.d --- shell/_emacs.d/site-lisp/with-package.el | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 shell/_emacs.d/site-lisp/with-package.el (limited to 'shell/_emacs.d/site-lisp/with-package.el') diff --git a/shell/_emacs.d/site-lisp/with-package.el b/shell/_emacs.d/site-lisp/with-package.el new file mode 100644 index 0000000..3dfc52d --- /dev/null +++ b/shell/_emacs.d/site-lisp/with-package.el @@ -0,0 +1,31 @@ +(require 'cl) + +;; will be available at emacs 24.4 +(unless (fboundp 'with-eval-after-load) + "Do magic from the future" + (defmacro with-eval-after-load (file &rest body) + `(eval-after-load ,file + `(funcall (function ,(lambda () ,@body)))))) + +(defmacro with-package (packages &rest body) + "After pkg macro" + (declare (indent defun)) + (when (symbolp packages) ;; make a list if necessary + (setf packages (list packages))) + `(progn + (dolist (p ',packages) + (when (not (package-installed-p p)) + (package-install p)) + (with-eval-after-load p ,@body)))) + +(defmacro with-package* (packages &rest body) + "After pkg macro*" + (declare (indent defun)) + (when (symbolp packages) ;; make a list if necessary + (setf packages (list packages))) + `(prog1 + (with-package ,packages ,@body) + (dolist (p ',packages) + (require p)))) + +(provide 'with-package) -- cgit v1.2.3-70-g09d2