From 47bdc595c528dfb23c0e27add9fa3dd0257cead1 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 24 Mar 2021 16:22:39 +0000
Subject: Change `exec-path'

---
 early-init.el | 29 +++++++++--------------------
 1 file changed, 9 insertions(+), 20 deletions(-)

(limited to 'early-init.el')

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 @@
 ;;; Bootstrap package manager (`straight.el')
 
 ;; 1. Update `exec-path'.
-(let ((win-app-dir "~/Applications"))
-  (dolist (path (list
-		 ;; Windows
-		 (expand-file-name "exe" win-app-dir)
-		 (expand-file-name "exe/bin" win-app-dir)
-		 (expand-file-name "Git/bin" win-app-dir)
-		 (expand-file-name "Git/usr/bin" win-app-dir)
-		 (expand-file-name "Git/mingw64/bin" win-app-dir)
-		 (expand-file-name "Everything" win-app-dir)
-		 (expand-file-name "Win-builds/bin" win-app-dir)
-		 (expand-file-name "Z/bin" win-app-dir)
-		 (expand-file-name "racket" win-app-dir)
-		 ;; Linux
-		 (expand-file-name "bin" user-emacs-directory)
-		 (expand-file-name "~/bin")
-		 (expand-file-name "~/.local/bin")
-		 (expand-file-name "~/usr/bin")
-		 ))
-    (when (file-exists-p path)
-      (add-to-list 'exec-path path :append))))
+(dolist (path (list (expand-file-name "bin" user-emacs-directory)
+		    (expand-file-name "~/bin")
+		    (expand-file-name "~/.local/bin")
+		    (expand-file-name "~/usr/bin")
+		    (expand-file-name "~/cmd")
+		    (expand-file-name "~/mingw64/bin")))
+  (when (file-exists-p path)
+    (add-to-list 'exec-path path :append)))
+
 ;; 1.5. Update $PATH to reflect changes.
 (setenv "PATH" (mapconcat #'identity exec-path path-separator))
 
-- 
cgit 1.4.1-21-gabe81