[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Chris Feng
Subject: [elpa] externals/exwm ac1372e 3/7: Command for toggling debugging output
Date: Sun, 9 Sep 2018 06:40:00 -0400 (EDT)

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
+(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."
   (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.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]