about summary refs log tree commit diff
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2019-08-11T00·00+0000
committerChris Feng <chris.w.feng@gmail.com>2019-08-11T00·00+0000
commitdd6f5c36edf62f8c9d3c98a77b0d22b141663f6c (patch)
tree230756684595c06a99e75af08409abbd2dfdc6fc
parent37098a400994948fe99a2bb944fc2c66e0c71b6a (diff)
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.
-rw-r--r--exwm-workspace.el6
1 files 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)