diff --git a/.emacs.d/include/priime-convenience.el b/.emacs.d/include/priime-convenience.el index c58d08a..b7b7460 100644 --- a/.emacs.d/include/priime-convenience.el +++ b/.emacs.d/include/priime-convenience.el @@ -57,6 +57,17 @@ (unless (string-empty-p selected-term-buffer) (switch-to-buffer selected-term-buffer)))) +(defun priime-terminal-emulator () + "Open $TERM in the current project or current directory." + (interactive) + (let ((target-dir (or (projectile-project-root) + (file-name-directory (buffer-file-name))))) + (priime--open-terminal-emulator target-dir))) + +(defun priime--open-terminal-emulator (dir) + "Open a terminal at DIR." + (start-process "*terminal*" nil "alacritty" "--working-directory" dir)) + (use-package projectile :straight t :custom (projectile-completion-system 'auto) @@ -78,7 +89,8 @@ :custom (vterm-shell (or (executable-find "fish") shell-file-name)) :bind (("C-c v" . priime-terminal) ("" . priime-split-terminal) - ("C-" . priime-find-terminal))) + ("C-" . priime-find-terminal) + ("C-c V" . priime-terminal-emulator))) (use-package rg :straight t) (use-package anzu :straight t :bind ("C-c r a" . anzu-query-replace-regexp)