Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-23 21:17:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Add workspace support in per-application configurations

Browse source 
* exwm-manage.el (exwm-manage-configurations)
(exwm-manage--manage-window): Allow to specify which workspace an
applications should be created on.
This commit is contained in:
Chris Feng 2018-03-23 23:49:39 +08:00
parent 5448fb75fa
commit b6d660042e
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
exwm-manage.el
View file

@ -69,6 +69,7 @@ You can still make the X windows floating afterwards."
(const :tag "Char-mode" char-mode) (const :tag "Char-mode" char-mode)
(const :tag "Prefix keys" prefix-keys) (const :tag "Prefix keys" prefix-keys)
(const :tag "Simulation keys" simulation-keys) (const :tag "Simulation keys" simulation-keys)
(const :tag "Workspace" workspace)
;; For forward compatibility. ;; For forward compatibility.
(other)) (other))
:value-type (sexp :tag "Value" nil)))) :value-type (sexp :tag "Value" nil))))
@ -202,7 +203,6 @@ You can still make the X windows floating afterwards."
(exwm--update-hints id) (exwm--update-hints id)
(exwm-manage--update-geometry id) (exwm-manage--update-geometry id)
(exwm-manage--update-mwm-hints id) (exwm-manage--update-mwm-hints id)
(setq exwm--configurations (exwm-manage--get-configurations))
;; No need to manage (please check OverrideRedirect outside) ;; No need to manage (please check OverrideRedirect outside)
(when (or (when (or
(not (not
@ -266,6 +266,10 @@ You can still make the X windows floating afterwards."
(let ((kill-buffer-query-functions nil)) (let ((kill-buffer-query-functions nil))
(kill-buffer (current-buffer))) (kill-buffer (current-buffer)))
(throw 'return 'ignored)) (throw 'return 'ignored))
(setq exwm--configurations (exwm-manage--get-configurations))
(let ((index (plist-get exwm--configurations 'workspace)))
(when (and index (< index (length exwm-workspace--list)))
(setq exwm--frame (elt exwm-workspace--list index))))
;; Manage the window ;; Manage the window
(exwm--log "Manage #x%x" id) (exwm--log "Manage #x%x" id)
(xcb:+request exwm--connection ;remove border (xcb:+request exwm--connection ;remove border
@ -290,7 +294,8 @@ You can still make the X windows floating afterwards."
;; User has specified whether it should be floating. ;; User has specified whether it should be floating.
(if (plist-get exwm--configurations 'floating) (if (plist-get exwm--configurations 'floating)
(exwm-floating--set-floating id) (exwm-floating--set-floating id)
(exwm-floating--unset-floating id)) (with-selected-window (frame-selected-window exwm--frame)
(exwm-floating--unset-floating id)))
;; Try to determine if it should be floating. ;; Try to determine if it should be floating.
(if (and (not exwm-manage-force-tiling) (if (and (not exwm-manage-force-tiling)
(or exwm-transient-for exwm--fixed-size (or exwm-transient-for exwm--fixed-size
@ -299,7 +304,8 @@ You can still make the X windows floating afterwards."
(memq xcb:Atom:_NET_WM_WINDOW_TYPE_DIALOG (memq xcb:Atom:_NET_WM_WINDOW_TYPE_DIALOG
exwm-window-type))) exwm-window-type)))
(exwm-floating--set-floating id) (exwm-floating--set-floating id)
(exwm-floating--unset-floating id))) (with-selected-window (frame-selected-window exwm--frame)
(exwm-floating--unset-floating id))))
(if (plist-get exwm--configurations 'char-mode) (if (plist-get exwm--configurations 'char-mode)
(exwm-input-release-keyboard id) (exwm-input-release-keyboard id)
(exwm-input-grab-keyboard id)) (exwm-input-grab-keyboard id))