TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

pupo: option to split the active window or the entire frame

Browse source
This commit is contained in:
tddsg 2017-06-20 22:32:08 +10:00 committed by Eivind Fonn
parent 4353535a98
commit e2b49da274
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
layers/+spacemacs/spacemacs-purpose/local/spacemacs-purpose-popwin/spacemacs-purpose-popwin.el
View file

@ -6,6 +6,12 @@
(require 'window-purpose)
(defcustom pupo-split-active-window nil
"Non-nil if Pupo splits the active window.
Nil if Pupo splits the entire frame."
:type '(boolean)
:group 'pupo)
(defconst pupo--direction-to-purpose '((left . popl)
(right . popr)
(top . popt)
@ -46,8 +52,10 @@ width or height depending on POSITION."
('top 'above)
('bottom 'below))))
(lambda (buffer alist)
(let ((window (ignore-errors
(split-window (frame-root-window) size side))))
(let* ((main-window (if pupo-split-active-window
(selected-window)
(frame-root-window)))
(window (ignore-errors (split-window main-window size side))))
(when window
(purpose-change-buffer buffer window 'window alist))))))