* exwm-workspace.el (exwm-workspace--init): Remove possible

internal borders of workspace frames.
This commit is contained in:
Chris Feng 2016-07-12 12:13:50 +08:00
parent 9c8e95b376
commit 0863f41490

View file

@ -657,18 +657,23 @@ The optional FORCE option is for internal use only."
(cl-assert (= 1 (length exwm-workspace--list)))
(setq exwm-workspace--client
(frame-parameter (car exwm-workspace--list) 'client))
(let ((f (car exwm-workspace--list)))
;; Remove the possible internal border.
(set-frame-parameter f 'internal-border-width 0)
;; Prevent user from deleting this frame by accident.
(set-frame-parameter (car exwm-workspace--list) 'client nil))
(set-frame-parameter f 'client nil))
;; Create remaining frames.
(dotimes (_ (1- exwm-workspace-number))
(nconc exwm-workspace--list
(list (make-frame '((window-system . x)))))))
(list (make-frame '((window-system . x)
(internal-border-width . 0))))))))
;; Initialize workspaces without minibuffers.
(let ((old-frames (frame-list)))
(setq exwm-workspace--minibuffer
(make-frame '((window-system . x) (minibuffer . only)
(left . 10000) (right . 10000)
(width . 0) (height . 0)
(internal-border-width . 0)
(client . nil))))
;; Remove/hide existing frames.
(dolist (f old-frames)
@ -723,6 +728,7 @@ The optional FORCE option is for internal use only."
(push (make-frame `((window-system . x)
(minibuffer . ,(minibuffer-window
exwm-workspace--minibuffer))
(internal-border-width . 0)
(client . nil)))
exwm-workspace--list))
;; The default behavior of `display-buffer' (indirectly called by