diff options
| author | Tharre <tharre3@gmail.com> | 2015-04-06 16:41:29 +0200 |
|---|---|---|
| committer | Tharre <tharre3@gmail.com> | 2016-10-07 19:42:55 +0000 |
| commit | 6c9ecd4bc57a318f9b8663cb476efa2945de716b (patch) | |
| tree | 8752a60bd59aff898868139a460678f09464dfd9 /shell/_emacs/site-lisp/with-package.el | |
| parent | b76107ee2d8698671a6fa9d732ea86e32f371e2d (diff) | |
| download | dotfiles-6c9ecd4bc57a318f9b8663cb476efa2945de716b.tar.gz dotfiles-6c9ecd4bc57a318f9b8663cb476efa2945de716b.tar.xz dotfiles-6c9ecd4bc57a318f9b8663cb476efa2945de716b.zip | |
Initial commit, add everything else
Diffstat (limited to 'shell/_emacs/site-lisp/with-package.el')
| -rw-r--r-- | shell/_emacs/site-lisp/with-package.el | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/shell/_emacs/site-lisp/with-package.el b/shell/_emacs/site-lisp/with-package.el new file mode 100644 index 0000000..3dfc52d --- /dev/null +++ b/shell/_emacs/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) |