Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 06:48:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

Command for toggling debugging output

Browse source 
* exwm-core.el (exwm-debug-toggle): New function for toggling
debugging output.
(exwm-mode-map): Use it.
This commit is contained in:
Adrián Medraño Calvo 2018-09-04 12:00:00 +00:00
parent 3419337f52
commit ac1372eb11
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
exwm-core.el
View file

@ -85,6 +85,16 @@ FORMAT-STRING is a string specifying the message to output, as in
,@objects)
nil))
(defun exwm-debug-toggle (&optional arg)
"Toggle EXWM debugging output.
When ARG is positive, turn debugging on; when negative off. When
ARG is nil, toggle debugging output."
(interactive
(list (or current-prefix-arg 'toggle)))
(setq exwm-debug-on (if (eq arg 'toggle)
(not exwm-debug-on)
(> 0 arg))))
(defsubst exwm--id->buffer (id)
"X window ID => Emacs buffer."
(cdr (assoc id exwm--id-buffer-alist)))
@ -293,7 +303,8 @@ least SECS seconds later."
(exwm--debug
(let ((map exwm-mode-map))
(define-key map "\C-c\C-d\C-l" #'xcb-debug-clear)
(define-key map "\C-c\C-d\C-m" #'xcb-debug-mark)))
(define-key map "\C-c\C-d\C-m" #'xcb-debug-mark)
(define-key map "\C-c\C-d\C-t" #'exwm-debug-toggle)))
(define-derived-mode exwm-mode nil "EXWM"
"Major mode for managing X windows.