mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Inform user about making a frame a workspace

Browse source 
* exwm-workspace.el (exwm-workspace--add-frame-as-workspace): Add a
message.
(exwm-workspace--init): Exclude initial workspaces.
This commit is contained in:
Chris Feng 2019-08-11 00:00:00 +00:00
parent 37098a4009
commit dd6f5c36ed
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
exwm-workspace.el
View file

@ -1337,6 +1337,7 @@ Please check `exwm-workspace--minibuffer-own-frame-p' first."
(if exwm-workspace--create-silently (if exwm-workspace--create-silently
(setq exwm-workspace--switch-history-outdated t) (setq exwm-workspace--switch-history-outdated t)
(exwm-workspace-switch frame t) (exwm-workspace-switch frame t)
(message "Added %s as workspace %d" frame exwm-workspace-current-index)
(run-hooks 'exwm-workspace-list-change-hook))) (run-hooks 'exwm-workspace-list-change-hook)))
(defun exwm-workspace--get-remove-frame-next-workspace (frame) (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) (nconc initial-workspaces (list (make-frame '((window-system . x)
(client . nil)))))) (client . nil))))))
;; Configure workspaces ;; Configure workspaces
(dolist (i initial-workspaces) (let ((exwm-workspace--create-silently t))
(exwm-workspace--add-frame-as-workspace i))) (dolist (i initial-workspaces)
(exwm-workspace--add-frame-as-workspace i))))
(xcb:flush exwm--connection) (xcb:flush exwm--connection)
;; We have to advice `x-create-frame' or every call to it would hang EXWM ;; 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) (advice-add 'x-create-frame :around #'exwm-workspace--x-create-frame)