lang/emacs-lisp: update for v2.0

modules/lang/emacs-lisp/autoload.el

@@ -0,0 +1,66 @@
+;;; lang/emacs-lisp/autoload.el
+
+;; ---- emacs-lisp ---------------------------------------------------
+
+;;;###autoload (autoload 'doom:byte-compile "lang/emacs-lisp/autoload" nil t)
+(evil-define-command +emacs-lisp:byte-compile (&optional bang)
+  (interactive "<!>")
+  (if bang (doom-byte-compile) (byte-compile-file buffer-file-name)))
+
+;;;###autoload
+(defun +emacs-lisp/find-function-at-pt ()
+  (interactive)
+  (let ((func (function-called-at-point)))
+    (if func (find-function func))))
+
+;;;###autoload
+(defun +emacs-lisp/find-function-at-pt-other-window ()
+  (interactive)
+  (let ((func (function-called-at-point)))
+    (if func (find-function-other-window func))))
+
+;;;###autoload
+(defun +emacs-lisp/repl ()
+  (interactive)
+  (ielm)
+  (let ((buf (current-buffer)))
+    (bury-buffer)
+    (pop-to-buffer buf)))
+
+
+;; ---- ert ---------------------------------------------------
+
+(defsubst +ert--pre ()
+  (save-buffer) (eval-buffer))
+
+;;;###autoload
+(defun +ert/run-test ()
+  (interactive)
+  (let (case-fold-search thing)
+    (+ert--pre)
+    (setq thing (thing-at-point 'defun t))
+    (if thing
+        (if (string-match "(ert-deftest \\([^ ]+\\)" thing)
+            (ert-run-tests-interactively
+             (substring thing (match-beginning 1) (match-end 1)))
+          (user-error "Invalid test at point"))
+      (user-error "No test found at point"))))
+
+;;;###autoload
+(defun +ert/rerun-test ()
+  (interactive)
+  (let (case-fold-search thing)
+    (+ert--pre)
+    (setq thing (car-safe ert--selector-history))
+    (if thing
+        (ert-run-tests-interactively thing)
+      (message "No test found in history, looking for test at point")
+      (+ert-run-test))))
+
+;;;###autoload
+(defun +ert/run-all-tests ()
+  (interactive)
+  (ert-delete-all-tests)
+  (+ert--pre)
+  (ert-run-tests-interactively t))
+