Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-12-12 03:58:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

No longer need to fill initial workspace list

Browse source 
Users are free to create as many as they like by hitting 'C-x 5 2' or running
`make-frame'.
This commit is contained in:
Urbano Ustero 2015-08-26 00:41:32 +02:00
parent 731cd74fdb
commit 22c7239f40
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
exwm-workspace.el
View file

@ -302,11 +302,6 @@ The optional FORCE option is for internal use only."
(cl-assert (= 1 (exwm-workspace--count))) (cl-assert (= 1 (exwm-workspace--count)))
;; Prevent user from deleting this frame by accident ;; Prevent user from deleting this frame by accident
(set-frame-parameter (car exwm-workspace--list) 'client nil)) (set-frame-parameter (car exwm-workspace--list) 'client nil))
;; Create remaining frames
(dotimes (i (1- exwm-workspace-number))
(nconc exwm-workspace--list
(list (make-frame '((window-system . x)
(visibility . nil))))))
;; Configure workspaces ;; Configure workspaces
(dolist (i exwm-workspace--list) (dolist (i exwm-workspace--list)
(exwm-workspace--add-frame-as-workspace i)) (exwm-workspace--add-frame-as-workspace i))