diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2016-02-21T08·39+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2016-02-21T08·39+0800 |
| commit | 7116b01b0c9b7efda105487a17192470c466b9c4 (patch) | |
| tree | 1558c4e928f28dbd002e4024f7414cd48164726f /exwm-floating.el | |
| parent | 734b4013063d1bf3c6e34e0aa66e39a92ba49ace (diff) | |
Various fixes for floating X windows
* exwm-floating.el (exwm-floating--set-floating): Always create floating X windows on current workspace. * exwm-workspace.el (exwm-workspace-switch): Restore selected floating frames. * exwm-workspace.el (exwm-workspace-move-window): Restore the position of floating X windows. Recreate floating frames when using fixed minibuffer. Restack tiling X windows.
Diffstat (limited to 'exwm-floating.el')
| -rw-r--r-- | exwm-floating.el | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/exwm-floating.el b/exwm-floating.el index 1ec54d10fa..97d673c15b 100644 --- a/exwm-floating.el +++ b/exwm-floating.el @@ -63,14 +63,7 @@ (let ((window (get-buffer-window (exwm--id->buffer id)))) (when window ;window in non-floating state (set-window-buffer window (other-buffer)))) ;hide it first - (let* ((original-frame - (with-current-buffer (exwm--id->buffer id) - (if (and exwm-transient-for (exwm--id->buffer exwm-transient-for)) - ;; Place a modal in the same workspace with its leading window - (with-current-buffer (exwm--id->buffer exwm-transient-for) - exwm--frame) - ;; Fallback to current workspace - exwm-workspace--current))) + (let* ((original-frame exwm-workspace--current) ;; Create new frame (frame (with-current-buffer (or (get-buffer "*scratch*") @@ -79,7 +72,7 @@ (get-buffer-create "*scratch*")) (get-buffer "*scratch*"))) (make-frame - `((minibuffer . nil) ;use the one on workspace + `((minibuffer . nil) ;use the default minibuffer. (background-color . ,exwm-floating-border-color) (internal-border-width . ,exwm-floating-border-width) (left . 10000) @@ -107,11 +100,6 @@ ;; Save frame parameters. (set-frame-parameter frame 'exwm-outer-id outer-id) (set-frame-parameter frame 'exwm-container frame-container) - ;; Set urgency flag if it's not appear in the active workspace - (let ((idx (cl-position original-frame exwm-workspace--list))) - (when (/= idx exwm-workspace-current-index) - (set-frame-parameter original-frame 'exwm--urgency t) - (setq exwm-workspace--switch-history-outdated t))) ;; Fix illegal parameters ;; FIXME: check normal hints restrictions (let* ((display-width (frame-pixel-width original-frame)) |