[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm 0863f41 2/2: * exwm-workspace.el (exwm-workspace--
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm 0863f41 2/2: * exwm-workspace.el (exwm-workspace--init): Remove possible |
Date: |
Tue, 12 Jul 2016 04:16:32 +0000 (UTC) |
branch: externals/exwm
commit 0863f4149062089abdadd0dd795ad17d0e73da03
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>
* exwm-workspace.el (exwm-workspace--init): Remove possible
internal borders of workspace frames.
---
exwm-workspace.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/exwm-workspace.el b/exwm-workspace.el
index b61b81c..f5a320b 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -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))
- ;; Prevent user from deleting this frame by accident.
- (set-frame-parameter (car exwm-workspace--list) 'client nil))
+ (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 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