diff --git a/modules/tools/term/autoload.el b/modules/tools/term/autoload.el index 34ae5a5e1..bb4391650 100644 --- a/modules/tools/term/autoload.el +++ b/modules/tools/term/autoload.el @@ -9,19 +9,21 @@ non-nil, cd into the current project's root." (call-interactively #'multi-term))) ;;;###autoload -(defun +term/open-popup (&optional project-root) - "Open a terminal popup window. If PROJECT-ROOT (C-u) is non-nil, cd into the -current project's root." +(defun +term/open-popup (arg) + "Open a terminal popup window. If ARG (universal argument) is +non-nil, cd into the current project's root." (interactive "P") (require 'multi-term) - (let ((default-directory (if project-root (doom-project-root 'nocache) default-directory)) + (let ((default-directory (if arg (doom-project-root 'nocache) default-directory)) (buffer (multi-term-get-buffer current-prefix-arg))) (pop-to-buffer buffer) (setq multi-term-buffer-list (nconc multi-term-buffer-list (list buffer))) (multi-term-internal))) ;;;###autoload -(defun +term/open-popup-in-project () - "Open a terminal popup window in the root of the current project." - (interactive) - (+term/open-popup t)) +(defun +term/open-popup-in-project (arg) + "Open a terminal popup window in the root of the current project. + +If ARG (universal argument) is non-nil, open it in `default-directory' instead." + (interactive "P") + (+term/open-popup (not arg)))