marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Clean up split-windows functions

Browse source
This commit is contained in:
Marcus Kammer 2021-06-05 16:56:43 +02:00
parent bb31c86a5f
commit a6410697d2
1 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
bundle/bundle--mk.el
View file

@ -34,25 +34,24 @@
(interactive "nHow many splits? ")
(delete-other-windows)
(let ((width (/ (window-total-width) count-windows)))
(let ((count 0))
(while (< count (1- count-windows))
(split-window-right (- 0 width))
(setf count (1+ count))))))
(dotimes (i (1- count-windows))
(split-window-right (- width)))))
(defun me/split-windows-vertical (count-windows)
"Split windows vertical by equal width."
(interactive "nHow many splits? ")
(delete-other-windows)
(let ((height (/ (window-total-height) count-windows)))
(dotimes (i (1- count-windows))
(split-window-below (- height)))))
(defun me/split-h3 ()
(interactive)
(me/split-windows-horizontal 3))
(defun me/split-windows-vertical ()
"Split windows vertical by equal width."
(defun me/split-v3 ()
(interactive)
(setq count-windows 3)
(delete-other-windows)
(let ((height (/ (window-total-height) count-windows)))
(setq count 0)
(while (< count (1- count-windows))
(split-window-below (- 0 height))
(setq count (1+ count)))))
(me/split-windows-vertical 3))
(add-to-list 'org-latex-classes
'("koma-article"