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.
This commit is contained in:
parent
fa204e1367
commit
c7c233bc35
2 changed files with 4 additions and 4 deletions
|
@ -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
|
||||
|
|
2
exwm.el
2
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."
|
||||
|
|
Loading…
Reference in a new issue