diff --git a/lisp/cli/env.el b/lisp/cli/env.el index 5256e7b93..e6463d893 100644 --- a/lisp/cli/env.el +++ b/lisp/cli/env.el @@ -33,7 +33,8 @@ "^SSH_\\(AUTH_SOCK\\|AGENT_PID\\)$" "^\\(SSH\\|GPG\\)_TTY$" "^GPG_AGENT_INFO$" ;; Internal Doom envvars - "^DEBUG$" "^INSECURE$" "^\\(EMACS\\|DOOM\\)DIR$" "^DOOMPROFILE$" "^__") + "^DEBUG$" "^INSECURE$" "^\\(EMACS\\|DOOM\\)DIR$" + "^DOOM\\(PATH\\|PROFILE\\)$" "^__") "Environment variables to omit from envvar files. Each string is a regexp, matched against variable names to omit from diff --git a/lisp/doom-cli.el b/lisp/doom-cli.el index 674e07e94..25c4e1216 100644 --- a/lisp/doom-cli.el +++ b/lisp/doom-cli.el @@ -92,15 +92,14 @@ :group 'doom) (defvar doom-cli-load-path - (let ((paths (split-string (or (getenv "DOOMPATH") "") path-separator))) - (if (member "" paths) - (cl-substitute (doom-path (dir!) "cli/") "" paths :test #'equal) - paths)) + (append (when-let ((doompath (getenv "DOOMPATH"))) + (cl-loop for dir in (split-string doompath path-separator) + collect (expand-file-name dir))) + (list (file-name-concat (dir!) "cli"))) "A list of paths to search for autoloaded Doom CLIs. It is prefilled by the DOOMPATH envvar (a colon-separated list on Linux/macOS, -semicolon otherwise). Empty entries in DOOMPATH are replaced with the -$EMACSDIR/cli/.") +semicolon otherwise).") ;;; CLI definition variables (defvar doom-cli-argument-types