exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove obsolete shell popup shortcut

Browse Source 
Using `project-shell` as a replacement.
This commit is contained in:
Daniel Borchmann 2025-07-14 17:27:29 +02:00
parent 072fd2887b
commit 92ff95b2e6
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
2 changed files with 0 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
init.el
View File

@ -458,7 +458,6 @@ split horizontally again, but this extra work should not matter much."
(use-package db-utils
:commands (endless/fill-or-unfill
db/run-or-hide-shell
db/gnus
db/org-agenda
db/scratch

36
site-lisp/db-utils.el
View File

@ -90,42 +90,6 @@ If already in *ansi-term* buffer, bury it."
(user-error "Cannot open default refile file: file «%s» does not exist" db/org-default-refile-file))
(find-file db/org-default-refile-file))
(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.
The buffer's name has to start with “*shell-side*” to be recognized by
this function. Otherwise the current buffer is not treated as a shell
buffer.
With ARG, switch to `default-directory' of the current buffer first."
(interactive "P")
(cl-flet ((change-to-shell ()
(if-let ((shell-window (cl-find-if (lambda (window)
(with-current-buffer (window-buffer window)
(and (derived-mode-p 'shell-mode)
(string-match-p "^\\*shell-side\\*" (buffer-name)))))
(window-list-1))))
(select-window shell-window)
(--if-let (display-buffer (shell (get-buffer-create "*shell-side*")))
(select-window it)
(error "Could not start shell (`display-buffer' returned nil)")))))
(if (not arg)
;; toggle shell window
(if (and (derived-mode-p 'shell-mode)
(string-match-p "^\\*shell-side\\*" (buffer-name)))
(bury-buffer)
(change-to-shell))
;; unconditionally go to shell, and also change to cwd
(let ((current-dir (expand-file-name default-directory)))
(change-to-shell)
(end-of-line)
(comint-kill-input)
(insert (format "cd '%s'" current-dir))
(comint-send-input)))))
(defun db/ement-connect ()
"Connect to my matrix account."
(interactive)