From ac1372eb1154a536e32096befa4c975c814c813c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Adri=C3=A1n=20Medra=C3=B1o=20Calvo?= Date: Tue, 4 Sep 2018 12:00:00 +0000 Subject: [PATCH] Command for toggling debugging output * exwm-core.el (exwm-debug-toggle): New function for toggling debugging output. (exwm-mode-map): Use it. --- exwm-core.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/exwm-core.el b/exwm-core.el index 2d74aba..49914d3 100644 --- a/exwm-core.el +++ b/exwm-core.el @@ -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.