From 46c0ec0f11ffc65a175953122c69bf3c8173d5d0 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Thu, 19 Sep 2019 13:56:38 +0900 Subject: [PATCH 1/2] [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 From 1ffaa699f8730d9168c4c00def963045d7ec28c2 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Thu, 19 Sep 2019 23:01:08 +0900 Subject: [PATCH 2/2] Fix naming convention Signed-off-by: Rudi Grinberg --- modules/lang/emacs-lisp/autoload.el | 4 ++-- modules/lang/emacs-lisp/config.el | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/modules/lang/emacs-lisp/autoload.el b/modules/lang/emacs-lisp/autoload.el index 5c9fcca9d..87be59029 100644 --- a/modules/lang/emacs-lisp/autoload.el +++ b/modules/lang/emacs-lisp/autoload.el @@ -176,13 +176,13 @@ verbosity when editing a file in `doom-private-dir' or `doom-emacs-dir'." ")")))) ;;;###autoload -(defun +emacs-lisp-edebug-instrument-defun-on () +(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 () +(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 de58f4e28..6c734424f 100644 --- a/modules/lang/emacs-lisp/config.el +++ b/modules/lang/emacs-lisp/config.el @@ -79,8 +79,8 @@ This marks a foldable marker for `outline-minor-mode' in elisp buffers.") :map emacs-lisp-mode-map "e" #'macrostep-expand (:prefix ("d" . "debug") - ("f" #'+emacs-lisp-edebug-instrument-defun-on) - ("F" #'+emacs-lisp-edebug-instrument-defun-off)))) + ("f" #'+emacs-lisp/edebug-instrument-defun-on) + ("F" #'+emacs-lisp/edebug-instrument-defun-off)))) ;; ;;; Packages