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

Add function to open shell at the bottom

Browse source
This commit is contained in:
Marcus Kammer 2024-09-26 18:17:09 +02:00
parent 4019155ffc
commit 0d3d39b109
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
bundle/bundle--mk.el
View file

@ -527,5 +527,14 @@ an ALIAS and SERVICE as arguments and call
(global-set-key (kbd "C-<f12>") #'mk/set-frame-size-85x50) (global-set-key (kbd "C-<f12>") #'mk/set-frame-size-85x50)
(defun shell-new-bottom ()
"Open a shell window in the bottom third of the current window."
(interactive)
(let* ((current-window (selected-window))
(new-window (split-window-below (- (window-height) (/ (window-height) 3)))))
(select-window new-window)
(shell)
(select-window current-window)))
(provide 'bundle-mk) (provide 'bundle-mk)
;;; bundle-mk.el ends here ;;; bundle-mk.el ends here