From 46c0ec0f11ffc65a175953122c69bf3c8173d5d0 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Thu, 19 Sep 2019 13:56:38 +0900 Subject: [PATCH] [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 --- modules/lang/emacs-lisp/autoload.el | 12 ++++++++++++ modules/lang/emacs-lisp/config.el | 6 ++++-- 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/modules/lang/emacs-lisp/autoload.el b/modules/lang/emacs-lisp/autoload.el index 5c413a018..5c9fcca9d 100644 --- a/modules/lang/emacs-lisp/autoload.el +++ b/modules/lang/emacs-lisp/autoload.el @@ -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)) diff --git a/modules/lang/emacs-lisp/config.el b/modules/lang/emacs-lisp/config.el index 98ec80de7..de58f4e28 100644 --- a/modules/lang/emacs-lisp/config.el +++ b/modules/lang/emacs-lisp/config.el @@ -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