67 lines
1.8 KiB
EmacsLisp
67 lines
1.8 KiB
EmacsLisp
|
;;; 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))
|
||
|
|
|