awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix +eshell-enable-new-shell-on-split

Browse Source 
Also enables this implicitly after opening eshell with
+eshell/open-fullscreen.
This commit is contained in:
Henrik Lissner
2018-06-27 19:34:48 +02:00
parent 5bcec25529
commit dceb9bea09
1 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
modules/emacs/eshell/autoload/eshell.el
View File

@ -23,9 +23,9 @@
(defun +eshell--bury-buffer ()
(unless (switch-to-prev-buffer nil 'bury)
(switch-to-buffer (doom-fallback-buffer))
(switch-to-buffer (doom-fallback-buffer)))
(when +eshell-enable-new-shell-on-split
(+eshell/open t))))
(+eshell/open t)))
(defun +eshell--setup-window (window &optional flag)
(when (window-live-p window)
@ -163,15 +163,22 @@ delete."
(defun +eshell/split-below ()
"Create a new eshell window below the current one."
(interactive)
(let ((ignore-window-parameters t)
(+eshell-enable-new-shell-on-split
(or +eshell-enable-new-shell-on-split (frame-parameter nil 'saved-wconf))))
(select-window (split-window-vertically))
(+eshell--bury-buffer))
(+eshell--bury-buffer)))
;;;###autoload
(defun +eshell/split-right ()
"Create a new eshell window to the right of the current one."
(interactive)
(let* ((ignore-window-parameters t)
(window-state (window-state-get))
(+eshell-enable-new-shell-on-split
(or +eshell-enable-new-shell-on-split (frame-parameter nil 'saved-wconf))))
(select-window (split-window-horizontally))
(+eshell--bury-buffer))
(+eshell--bury-buffer)))
;;;###autoload
(defun +eshell/switch-to-next ()