From 0a3dde042a6ff671bd728bf1943fd3a743371161 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Sebastian=20W=C3=A5linder?= Date: Sun, 30 Jun 2019 18:21:24 +0200 Subject: [PATCH] Added option to have a key that ends exwm-input-send-next-key * exwm-input.el (exwm-input-send-next-key): Accept an optional end key. --- exwm-input.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/exwm-input.el b/exwm-input.el index 22c8002..351820c 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -845,11 +845,11 @@ button event." (xcb:flush exwm--connection))) ;;;###autoload -(cl-defun exwm-input-send-next-key (times) +(cl-defun exwm-input-send-next-key (times &optional end-key) "Send next key to client window. EXWM will prompt for the key to send. This command can be prefixed to send -multiple keys." +multiple keys. If END-KEY is non-nil, stop sending keys if it's pressed." (interactive "p") (exwm--log) (unless (derived-mode-p 'exwm-mode) @@ -861,11 +861,17 @@ multiple keys." (let ((exwm-input-line-mode-passthrough t)) (catch 'break (while t - (setq key (read-key (format "Send key: %s (%d/%d)" + (setq key (read-key (format "Send key: %s (%d/%d) %s" (key-description keys) - (1+ i) times))) + (1+ i) times + (if end-key + (concat "To exit, press: " + (key-description + (list end-key))) + "")))) (unless (listp key) (throw 'break nil))))) (setq keys (vconcat keys (vector key))) + (when (eq key end-key) (cl-return-from exwm-input-send-next-key)) (exwm-input--fake-key key)))) (defun exwm-input--set-simulation-keys (simulation-keys &optional no-refresh)