From edbcca8cd2b93b8c88eb62c431d04ea832b73180 Mon Sep 17 00:00:00 2001 From: Tharre <tharre3@gmail.com> Date: Fri, 7 Oct 2016 20:53:06 +0000 Subject: Reorganise dotfiles --- shell/_emacs.d/site-lisp/with-package.el | 31 ------------------------------- 1 file changed, 31 deletions(-) delete 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 deleted file mode 100644 index 3dfc52d..0000000 --- a/shell/_emacs.d/site-lisp/with-package.el +++ /dev/null @@ -1,31 +0,0 @@ -(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