73 lines
2 KiB
EmacsLisp
73 lines
2 KiB
EmacsLisp
;;; lang/emacs-lisp/autoload.el
|
|
|
|
;; ---- emacs-lisp ---------------------------------------------------
|
|
|
|
;;;###autoload (autoload '+emacs-lisp:byte-compile "lang/emacs-lisp/autoload" nil t)
|
|
(evil-define-command +emacs-lisp:byte-compile (&optional bang)
|
|
"Byte compile the current file, or if BANG, the entire emacs configuration."
|
|
(interactive "<!>")
|
|
(if bang (doom-byte-compile) (byte-compile-file buffer-file-name)))
|
|
|
|
;;;###autoload
|
|
(defun +emacs-lisp/find-function ()
|
|
"Jump to the definition of the function at point."
|
|
(interactive)
|
|
(let ((func (function-called-at-point)))
|
|
(if func (find-function func))))
|
|
|
|
;;;###autoload
|
|
(defun +emacs-lisp/find-function-other-window ()
|
|
"Jump to the definition of the function at point in a popup window."
|
|
(interactive)
|
|
(let ((fn (function-called-at-point)))
|
|
(when fn
|
|
(find-function-do-it
|
|
fn nil
|
|
(lambda (buffer)
|
|
(select-window (doom-popup-buffer buffer :size 30)))))))
|
|
|
|
;;;###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))
|
|
|