From dd6f5c36edf62f8c9d3c98a77b0d22b141663f6c Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sun, 11 Aug 2019 00:00:00 +0000 Subject: Inform user about making a frame a workspace * exwm-workspace.el (exwm-workspace--add-frame-as-workspace): Add a message. (exwm-workspace--init): Exclude initial workspaces. --- exwm-workspace.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/exwm-workspace.el b/exwm-workspace.el index a4ccc2f059cb..f536bc5a81ad 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -1337,6 +1337,7 @@ Please check `exwm-workspace--minibuffer-own-frame-p' first." (if exwm-workspace--create-silently (setq exwm-workspace--switch-history-outdated t) (exwm-workspace-switch frame t) + (message "Added %s as workspace %d" frame exwm-workspace-current-index) (run-hooks 'exwm-workspace-list-change-hook))) (defun exwm-workspace--get-remove-frame-next-workspace (frame) @@ -1629,8 +1630,9 @@ applied to all subsequently created X frames." (nconc initial-workspaces (list (make-frame '((window-system . x) (client . nil)))))) ;; Configure workspaces - (dolist (i initial-workspaces) - (exwm-workspace--add-frame-as-workspace i))) + (let ((exwm-workspace--create-silently t)) + (dolist (i initial-workspaces) + (exwm-workspace--add-frame-as-workspace i)))) (xcb:flush exwm--connection) ;; We have to advice `x-create-frame' or every call to it would hang EXWM (advice-add 'x-create-frame :around #'exwm-workspace--x-create-frame) -- cgit 1.4.1