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

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

Browse source 
internal borders of workspace frames.
This commit is contained in:
Chris Feng 2016-07-12 12:13:50 +08:00
parent 9c8e95b376
commit 0863f41490
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-workspace.el
View file

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