emacs: actually install .emacs.d

1 files changed, 31 insertions, 0 deletions

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)