Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 14:57:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Some commands should be called interactively

Browse source 
* 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:
Chris Feng 2016-04-03 12:24:50 +08:00
parent fa204e1367
commit c7c233bc35
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
exwm-layout.el
View file

@ -177,7 +177,7 @@
:data (vector xcb:Atom:_NET_WM_STATE_FULLSCREEN))) :data (vector xcb:Atom:_NET_WM_STATE_FULLSCREEN)))
(xcb:flush exwm--connection) (xcb:flush exwm--connection)
(setq exwm--fullscreen t) (setq exwm--fullscreen t)
(exwm-input-release-keyboard))) (call-interactively #'exwm-input-release-keyboard)))
;;;###autoload ;;;###autoload
(defun exwm-layout-unset-fullscreen (&optional id) (defun exwm-layout-unset-fullscreen (&optional id)
@ -210,7 +210,7 @@
(make-instance 'xcb:ewmh:set-_NET_WM_STATE :window exwm--id :data [])) (make-instance 'xcb:ewmh:set-_NET_WM_STATE :window exwm--id :data []))
(xcb:flush exwm--connection) (xcb:flush exwm--connection)
(setq exwm--fullscreen nil) (setq exwm--fullscreen nil)
(exwm-input-grab-keyboard))) (call-interactively #'exwm-input-grab-keyboard)))
(defvar exwm-layout--fullscreen-frame-count 0 (defvar exwm-layout--fullscreen-frame-count 0
"Count the fullscreen workspace frames.") "Count the fullscreen workspace frames.")
@ -516,7 +516,7 @@ See also `exwm-layout-enlarge-window'."
(window-mode-line-height (frame-root-window (window-mode-line-height (frame-root-window
exwm--floating-frame))) exwm--floating-frame)))
nil t) nil t)
(exwm-input-grab-keyboard)) (call-interactively #'exwm-input-grab-keyboard))
(force-mode-line-update))) (force-mode-line-update)))
;;;###autoload ;;;###autoload

2
exwm.el
View file

@ -80,7 +80,7 @@
(when exwm--fullscreen (exwm-layout-unset-fullscreen)) (when exwm--fullscreen (exwm-layout-unset-fullscreen))
;; Force refresh ;; Force refresh
(exwm-layout--refresh) (exwm-layout--refresh)
(exwm-input-grab-keyboard)))) (call-interactively #'exwm-input-grab-keyboard))))
(defun exwm--update-window-type (id &optional force) (defun exwm--update-window-type (id &optional force)
"Update _NET_WM_WINDOW_TYPE." "Update _NET_WM_WINDOW_TYPE."