Rework logic of `db/run-or-hide-shell'

It's a bit clearer now what the function is doing when ARG is given, I hope.  It
also turns out that switching to the current working directory does not make
much sense when we are in the shell buffer, because CWD is then just the, well,
current directory.  The original logic used to CWD of the previous buffer (by
closing the shell buffer and immediately reopening it), but that's actually not
what the function is supposed to be doing, is it?
This commit is contained in:
Daniel Borchmann 2020-07-31 16:18:35 +02:00
parent b65d05e2d3
commit e38ae56584
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 22 additions and 19 deletions

View File

@ -64,28 +64,31 @@ If already in `*ansi-term*' buffer, bury it."
(defun db/run-or-hide-shell (arg)
"Opens a shell buffer in new window if not already in one.
Otherwise, closes the current shell window. With ARG, switch
to `default-directory' first."
to `default-directory' of the current buffer first."
;; idea to split the current window is from
(interactive "P")
(if (derived-mode-p 'shell-mode)
;; bury buffer; reopen with current working directory if arg is given
(and arg (db/run-or-hide-shell arg)))
(if-let ((shell-window (db/find-window-by-buffer-mode 'shell-mode)))
(select-window shell-window)
;; open shell
(let ((current-dir (expand-file-name default-directory))
(height (/ (window-total-height) 3)))
(enlarge-window (- height (window-total-height)))
(when arg
(insert (format "cd '%s'" current-dir))
(cl-flet ((change-to-shell ()
(if-let ((shell-window (db/find-window-by-buffer-mode 'shell-mode)))
(select-window shell-window)
;; open shell in buffer with height of ⅓ of current window
(let ((height (/ (window-total-height) 3)))
(enlarge-window (- height (window-total-height)))))))
(if (not arg)
;; toggle shell window
(if (not (derived-mode-p 'shell-mode))
;; unconditionally go to shell, and also change to cwd
(let ((current-dir (expand-file-name default-directory)))
(insert (format "cd '%s'" current-dir))
;;; General Utilities