Commands for interacting with the log buffer remotely
* exwm-debug.el (exwm-debug--clear, exwm-debug--mark): New functions.
This commit is contained in:
parent
8d15a39c4d
commit
ac600f0916
2 changed files with 17 additions and 0 deletions
|
@ -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.
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue