diff options
author | Case Duckworth | 2021-03-24 16:22:39 +0000 |
---|---|---|
committer | Case Duckworth | 2021-03-24 16:22:39 +0000 |
commit | 47bdc595c528dfb23c0e27add9fa3dd0257cead1 (patch) | |
tree | 2af8593bcf1f978ee9b9c53d1447b879224441fa | |
parent | Fix eol (diff) | |
download | emacs-47bdc595c528dfb23c0e27add9fa3dd0257cead1.tar.gz emacs-47bdc595c528dfb23c0e27add9fa3dd0257cead1.zip |
Change `exec-path'
-rw-r--r-- | early-init.el | 29 |
1 files changed, 9 insertions, 20 deletions
diff --git a/early-init.el b/early-init.el index 68e9f5d..9b3103a 100644 --- a/early-init.el +++ b/early-init.el | |||
@@ -98,26 +98,15 @@ | |||
98 | ;;; Bootstrap package manager (`straight.el') | 98 | ;;; Bootstrap package manager (`straight.el') |
99 | 99 | ||
100 | ;; 1. Update `exec-path'. | 100 | ;; 1. Update `exec-path'. |
101 | (let ((win-app-dir "~/Applications")) | 101 | (dolist (path (list (expand-file-name "bin" user-emacs-directory) |
102 | (dolist (path (list | 102 | (expand-file-name "~/bin") |
103 | ;; Windows | 103 | (expand-file-name "~/.local/bin") |
104 | (expand-file-name "exe" win-app-dir) | 104 | (expand-file-name "~/usr/bin") |
105 | (expand-file-name "exe/bin" win-app-dir) | 105 | (expand-file-name "~/cmd") |
106 | (expand-file-name "Git/bin" win-app-dir) | 106 | (expand-file-name "~/mingw64/bin"))) |
107 | (expand-file-name "Git/usr/bin" win-app-dir) | 107 | (when (file-exists-p path) |
108 | (expand-file-name "Git/mingw64/bin" win-app-dir) | 108 | (add-to-list 'exec-path path :append))) |
109 | (expand-file-name "Everything" win-app-dir) | 109 | |
110 | (expand-file-name "Win-builds/bin" win-app-dir) | ||
111 | (expand-file-name "Z/bin" win-app-dir) | ||
112 | (expand-file-name "racket" win-app-dir) | ||
113 | ;; Linux | ||
114 | (expand-file-name "bin" user-emacs-directory) | ||
115 | (expand-file-name "~/bin") | ||
116 | (expand-file-name "~/.local/bin") | ||
117 | (expand-file-name "~/usr/bin") | ||
118 | )) | ||
119 | (when (file-exists-p path) | ||
120 | (add-to-list 'exec-path path :append)))) | ||
121 | ;; 1.5. Update $PATH to reflect changes. | 110 | ;; 1.5. Update $PATH to reflect changes. |
122 | (setenv "PATH" (mapconcat #'identity exec-path path-separator)) | 111 | (setenv "PATH" (mapconcat #'identity exec-path path-separator)) |
123 | 112 | ||