about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--early-init.el29
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