Commands for interacting with the log buffer remotely

* exwm-debug.el (exwm-debug--clear, exwm-debug--mark): New
functions.

1 files changed, 12 insertions, 0 deletions

diff --git a/exwm-debug.el b/exwm-debug.el
index 89421da651c5..cd2ec393d7e5 100644
--- a/exwm-debug.el
+++ b/exwm-debug.el
@@ -97,6 +97,18 @@ the passed OBJECTS.  See `format' for details."
          (debugger (lambda (&rest _) (exwm-debug--backtrace))))
      ,@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)