Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add my/always-use-eat

Browse Source
This commit is contained in:
Alexander Rosenberg 2025-02-20 20:33:00 -08:00
parent 2d072241a7
commit 997be323f5
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
init.el
View File

@ -2663,11 +2663,15 @@ If no name is given, list all bookmarks instead."
(defvar my/eshell-or-eat-hook nil (defvar my/eshell-or-eat-hook nil
"Hook to determine weather `my/open-shell-dwin' uses `eshell' or `eat'.") "Hook to determine weather `my/open-shell-dwin' uses `eshell' or `eat'.")
(defvar my/always-use-eat nil
"Make `my/open-shell-dwim' always use eat.")
(put 'my/always-use-eat 'safe-local-variable 'booleanp)
(defun my/open-shell-dwim (&optional arg) (defun my/open-shell-dwim (&optional arg)
"Open either an `eshell' or `eat' terminal based on `my/eshell-or-eat-hook'. "Open either an `eshell' or `eat' terminal based on `my/eshell-or-eat-hook'.
ARG is the same as for either of the above functions." ARG is the same as for either of the above functions."
(interactive "P") (interactive "P")
(if (run-hook-with-args-until-success 'my/eshell-or-eat-hook) (if (or my/always-use-eat
(run-hook-with-args-until-success 'my/eshell-or-eat-hook))
(my/project-eat-or-default arg) (my/project-eat-or-default arg)
(my/project-eshell-or-default arg))) (my/project-eshell-or-default arg)))
(keymap-global-set "C-c v" #'my/open-shell-dwim) (keymap-global-set "C-c v" #'my/open-shell-dwim)