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

Remove obsolete shell and ansi-term popup shortcuts

Browse Source 
Using `project-shell` as a replacement for the shell buffer.  I haven't used `ansi-term` in ages,
mostly because it does not work on Windows.
This commit is contained in:
Daniel Borchmann 2025-07-14 17:27:29 +02:00
parent 072fd2887b
commit 5655c58341
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
2 changed files with 0 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
init.el
View File

@ -458,14 +458,12 @@ 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
db/find-user-init-file
db/find-default-org-file
db/find-default-refile-file
db/run-or-hide-ansi-term
db/ement-connect
db/hex-to-ascii
db/text-to-hex

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

@ -38,17 +38,6 @@
;;; Application Shortcuts
(defun db/run-or-hide-ansi-term ()
"Find *ansi-term* buffer or run `ansi-term' with `explicit-shell-file-name'.
If already in *ansi-term* buffer, bury it."
(interactive)
(if (string= "term-mode" major-mode)
(bury-buffer)
(if (get-buffer "*ansi-term*")
(switch-to-buffer "*ansi-term*")
(ansi-term explicit-shell-file-name))))
(defun db/gnus ()
"Switch to the `*Group*' buffer, starting `gnus' if not existent."
(interactive)
@ -90,42 +79,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)