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 | ||