[emacs lisp] Add bindings for debugging defuns

`, d f` - turn on debugging for defun
`, d F` - turn off debugging for defun

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2019-09-19 13:56:38 +09:00
parent 42df2eaf8e
commit 46c0ec0f11
2 changed files with 16 additions and 2 deletions

View file

@ -174,3 +174,15 @@ verbosity when editing a file in `doom-private-dir' or `doom-emacs-dir'."
" "
(default-value 'flycheck-emacs-lisp-check-form)
")"))))
;;;###autoload
(defun +emacs-lisp-edebug-instrument-defun-on ()
"Toggle on instrumentalisation for the function under `defun'."
(interactive)
(eval-defun 'edebugit))
;;;###autoload
(defun +emacs-lisp-edebug-instrument-defun-off ()
"Toggle off instrumentalisation for the function under `defun'."
(interactive)
(eval-defun nil))

View file

@ -77,8 +77,10 @@ This marks a foldable marker for `outline-minor-mode' in elisp buffers.")
(map! :localleader
:map emacs-lisp-mode-map
"e" #'macrostep-expand))
"e" #'macrostep-expand
(:prefix ("d" . "debug")
("f" #'+emacs-lisp-edebug-instrument-defun-on)
("F" #'+emacs-lisp-edebug-instrument-defun-off))))
;;
;;; Packages