diff options
| -rw-r--r-- | exwm-core.el | 5 | ||||
| -rw-r--r-- | exwm-debug.el | 12 |
2 files changed, 17 insertions, 0 deletions
diff --git a/exwm-core.el b/exwm-core.el index 66b79171f068..5c501e4e3fb7 100644 --- a/exwm-core.el +++ b/exwm-core.el @@ -290,6 +290,11 @@ least SECS seconds later." (/= ,i exwm-workspace-current-index)]) (number-sequence 0 (1- (exwm-workspace--count)))))))) +(exwm--debug + (let ((map exwm-mode-map)) + (define-key map "\C-c\C-l" #'exwm-debug--clear) + (define-key map "\C-c\C-m" #'exwm-debug--mark))) + (define-derived-mode exwm-mode nil "EXWM" "Major mode for managing X windows. diff --git a/exwm-debug.el b/exwm-debug.el index 89421da651c5..cd2ec393d7e5 100644 --- a/exwm-debug.el +++ b/exwm-debug.el @@ -97,6 +97,18 @@ the passed OBJECTS. See `format' for details." (debugger (lambda (&rest _) (exwm-debug--backtrace)))) ,@forms)) +(defun exwm-debug--clear () + "Clear the debug buffer." + (interactive) + (exwm-debug--with-debug-buffer + (erase-buffer))) + +(defun exwm-debug--mark () + "Insert a mark in the debug buffer." + (interactive) + (exwm-debug--with-debug-buffer + (insert " \n"))) + (provide 'exwm-debug) |