mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Commands for interacting with the log buffer remotely

Browse source 
* exwm-debug.el (exwm-debug--clear, exwm-debug--mark): New
functions.
This commit is contained in:
Adrián Medraño Calvo 2018-08-13 12:00:00 +00:00
parent 8d15a39c4d
commit ac600f0916
2 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
exwm-core.el
View file

@ -290,6 +290,11 @@ least SECS seconds later."
(/= ,i exwm-workspace-current-index)]) (/= ,i exwm-workspace-current-index)])
(number-sequence 0 (1- (exwm-workspace--count)))))))) (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" (define-derived-mode exwm-mode nil "EXWM"
"Major mode for managing X windows. "Major mode for managing X windows.

12
exwm-debug.el
View file

@ -97,6 +97,18 @@ the passed OBJECTS. See `format' for details."
(debugger (lambda (&rest _) (exwm-debug--backtrace)))) (debugger (lambda (&rest _) (exwm-debug--backtrace))))
,@forms)) ,@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) (provide 'exwm-debug)