From fc589b899b71e88e48931de41ea1df760f9c1edd Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Fri, 19 Feb 2016 17:12:43 +0800 Subject: Fix system tray issues after updating workspaces * exwm-workspace.el (exwm-workspace-switch-hook): New hook run by `exwm-workspace-switch'. * exwm-randr.el (exwm-randr-refresh-hook): New hook run by `exwm-randr--refresh'. * exwm-systemtray.el (exwm-systemtray--on-randr-refresh) (exwm-systemtray--on-workspace-switch, exwm-systemtray--init): Update the system tray in `exwm-randr-refresh-hook' and `exwm-workspace-switch-hook'. * exwm-layout.el (exwm-layout--set-frame-fullscreen): * exwm-workspace.el (exwm-workspace--post-init): Wait until all workspace frames are set fullscreen. * exwm-workspace.el (exwm-workspace--current-width) (exwm-workspace--current-height): New functions for retrieving the width and height of the current workspace. * exwm-layout.el (exwm-layout-set-fullscreen): * exwm-manage.el (exwm-manage--manage-window) (exwm-manage--on-ConfigureRequest): * exwm-systemtray.el (exwm-systemtray--refresh, exwm-systemtray--init): * exwm-workspace.le (exwm-workspace--resize-minibuffer-frame) (exwm-workspace--on-ConfigureNotify): Switch to `exwm-workspace--current-width' and `exwm-workspace--current-height'. * exwm-core.el: * exwm-floating.el: * exwm-floating.el: * exwm-input.el: * exwm-layout.el: * exwm-manage.el: * exwm-randr.el: * exwm-systemtray.el: * exwm-workspace.el: * exwm.el: Clean up loading file. Set/Unset some functions as commands. * README.md: Add intro to system tray. --- exwm-core.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'exwm-core.el') diff --git a/exwm-core.el b/exwm-core.el index b09ca52c0c5a..4d936ed75217 100644 --- a/exwm-core.el +++ b/exwm-core.el @@ -78,6 +78,9 @@ (logior xcb:EventMask:StructureNotify xcb:EventMask:PropertyChange)) "Event mask set on all managed windows.") +(declare-function exwm-input--on-KeyPress-line-mode "exwm-input.el" + (key-press)) + ;; Internal variables (defvar-local exwm--id nil) ;window ID (defvar-local exwm--container nil) ;container @@ -110,7 +113,7 @@ (defvar-local exwm--normal-hints-max-height nil) ;; (defvar-local exwm--normal-hints-win-gravity nil) ;; WM_HINTS -(defvar-local exwm--hints-input nil) ;FIXME +(defvar-local exwm--hints-input nil) (defvar-local exwm--hints-urgency nil) ;; _MOTIF_WM_HINTS (defvar-local exwm--mwm-hints nil) @@ -126,6 +129,8 @@ map) "Keymap for `exwm-mode'.") +(declare-function exwm-manage--kill-buffer-query-function "exwm-manage.el") + (define-derived-mode exwm-mode nil "EXWM" "Major mode for managing X windows. -- cgit 1.4.1