[elpa] externals/exwm ac1372e 3/7: Command for toggling debugging output

[Chris Feng]

branch: externals/exwm
commit ac1372eb1154a536e32096befa4c975c814c813c
Author: Adrián Medraño Calvo <address@hidden>
Commit: Adrián Medraño Calvo <address@hidden>

    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.