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? ") (interactive "nHow many splits? ")
(delete-other-windows) (delete-other-windows)
(let ((width (/ (window-total-width) count-windows))) (let ((width (/ (window-total-width) count-windows)))
(let ((count 0)) (dotimes (i (1- count-windows))
(while (< count (1- count-windows)) (split-window-right (- width)))))
(split-window-right (- 0 width))
(setf count (1+ count)))))) (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 () (defun me/split-h3 ()
(interactive) (interactive)
(me/split-windows-horizontal 3)) (me/split-windows-horizontal 3))
(defun me/split-windows-vertical () (defun me/split-v3 ()
"Split windows vertical by equal width."
(interactive) (interactive)
(setq count-windows 3) (me/split-windows-vertical 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)))))
(add-to-list 'org-latex-classes (add-to-list 'org-latex-classes
'("koma-article" '("koma-article"