[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm dd6f5c3 1/4: Inform user about making a frame a wo
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm dd6f5c3 1/4: Inform user about making a frame a workspace |
Date: |
Sun, 11 Aug 2019 12:24:59 -0400 (EDT) |
branch: externals/exwm
commit dd6f5c36edf62f8c9d3c98a77b0d22b141663f6c
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>
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 a4ccc2f..f536bc5 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)