From c7c233bc356fc6a846a09aa5fb13710e6706fce1 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sun, 3 Apr 2016 12:24:50 +0800 Subject: [PATCH] Some commands should be called interactively * exwm-layout.el (exwm-layout-set-fullscreen, exwm-layout-unset-fullscreen) (exwm-layout-show-mode-line): * exwm.el (exwm-reset): Call `exwm-input-grab-keyboard' and `exwm-input-release-keyboard' interactively. --- exwm-layout.el | 6 +++--- exwm.el | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/exwm-layout.el b/exwm-layout.el index c392ff9..9cbdd2b 100644 --- a/exwm-layout.el +++ b/exwm-layout.el @@ -177,7 +177,7 @@ :data (vector xcb:Atom:_NET_WM_STATE_FULLSCREEN))) (xcb:flush exwm--connection) (setq exwm--fullscreen t) - (exwm-input-release-keyboard))) + (call-interactively #'exwm-input-release-keyboard))) ;;;###autoload (defun exwm-layout-unset-fullscreen (&optional id) @@ -210,7 +210,7 @@ (make-instance 'xcb:ewmh:set-_NET_WM_STATE :window exwm--id :data [])) (xcb:flush exwm--connection) (setq exwm--fullscreen nil) - (exwm-input-grab-keyboard))) + (call-interactively #'exwm-input-grab-keyboard))) (defvar exwm-layout--fullscreen-frame-count 0 "Count the fullscreen workspace frames.") @@ -516,7 +516,7 @@ See also `exwm-layout-enlarge-window'." (window-mode-line-height (frame-root-window exwm--floating-frame))) nil t) - (exwm-input-grab-keyboard)) + (call-interactively #'exwm-input-grab-keyboard)) (force-mode-line-update))) ;;;###autoload diff --git a/exwm.el b/exwm.el index ac10247..f8a3fc7 100644 --- a/exwm.el +++ b/exwm.el @@ -80,7 +80,7 @@ (when exwm--fullscreen (exwm-layout-unset-fullscreen)) ;; Force refresh (exwm-layout--refresh) - (exwm-input-grab-keyboard)))) + (call-interactively #'exwm-input-grab-keyboard)))) (defun exwm--update-window-type (id &optional force) "Update _NET_WM_WINDOW_TYPE."