From bf39d7bc00dab2675edbb3a66baccf2a2378aa44 Mon Sep 17 00:00:00 2001
From: Raphael Roberts <raphael.roberts48@gmail.com>
Date: Thu, 5 Sep 2019 02:48:02 -0500
Subject: [PATCH] Added rlbr prefix to stuff that I made and programs are no
 longer hard coded in

---
 settings.org | 62 ++++++++++++++++++++++++++++++++++++++++++++--------
 1 file changed, 53 insertions(+), 9 deletions(-)

diff --git a/settings.org b/settings.org
index b193d0d..35a2240 100644
--- a/settings.org
+++ b/settings.org
@@ -206,21 +206,65 @@
 #+begin_src emacs-lisp
  ((string-equal system-type "windows-nt")
   (progn
-    (defun quote-exe (path)
+    (defun rlbr/quote-exe (path)
       (w32-short-file-name path))
-    (defun start-external-shell ()
+    (defun rlbr/start-external-shell ()
       (interactive)
       (start-process-shell-command (format "cmd(%s)" default-directory) nil "start default.bat"))
-    (global-set-key (kbd "C-S-C") 'start-external-shell)
-    (setq insert-directory-program "C:/Program Files/git/usr/bin/ls.exe")
-    (setq find-program (quote-exe "C:/Program Files/git/usr/bin/find.exe"))
-    (setq grep-program (quote-exe "C:/Program Files/git/usr/bin/grep.exe"))
-    (setq python-shell-interpreter (quote-exe (executable-find "python")))
-    (setq python-check-command (quote-exe (executable-find "flake8")))
+    (global-set-key (kbd "C-S-C") 'rlbr/start-external-shell)
+    (defun rlbr/start-windows-explorer-here ()
+      (interactive)
+      (start-process-shell-command "explorer" nil
+ 				  (format "explorer %s"
+ 					  (replace-regexp-in-string "/" (regexp-quote "\\") (expand-file-name default-directory))))
+      )
+    (global-set-key (kbd "C-S-E") 'rlbr/start-windows-explorer-here)
+    (defun rlbr/case-insensitive-match (string1 string2)
+      (apply 'string-equal (mapcar 'downcase (list string1 string2))))
+
+    (defun rlbr/output-matches (output-matches-p exe args)
+      "locate the executable whose output satifies output-matches-p when fed args and return the fullpath"
+      (let
+          (
+           (exec-path exec-path)
+           (output)
+           (bad)
+           (command-output)
+           (current-exe)
+           (failed)
+           )
+        (while (not (or output failed))
+          (setq current-exe (executable-find exe))
+          (if current-exe
+     	  (progn
+     	    (setq command-output (shell-command-to-string (format "%s %s" (rlbr/quote-exe current-exe) args)))
+     	    (if (funcall output-matches-p command-output)
+     		(setq output current-exe)
+     	      (progn
+     		(setq bad (replace-regexp-in-string "/$" "" (file-name-directory current-exe)))
+     		(setq exec-path (seq-filter (lambda (item) (not (rlbr/case-insensitive-match item bad))) exec-path)))))
+     	(setq failed t)))
+        output))
+    (let
+        ((find)
+ 	(grep)
+ 	(ls))
+      (progn
+        (setq find (rlbr/output-matches (lambda (output) (string-equal ".\n" output)) "find" "-maxdepth 0"))
+        (if find
+ 	   (setq find-program (rlbr/quote-exe find)))
+        (setq grep (rlbr/output-matches (lambda (output) (string-match "grep (\\w+ grep)" output)) "grep" "-V"))
+        (if grep
+ 	   (setq grep-program (rlbr/quote-exe grep)))
+        (setq ls (rlbr/output-matches (lambda (output) (string-match "ls: .*'\\?/': No such file or directory" output)) "ls" "?/"))
+        (if ls
+ 	   (setq insert-directory-program (rlbr/quote-exe ls)))))
+    (setq python-shell-interpreter (rlbr/quote-exe (executable-find "python")))
+    (setq python-check-command (rlbr/quote-exe (executable-find "flake8")))
     (setq delete-by-moving-to-trash t)
     (defun python-shell-interpreter-refresh ()
       (interactive)
-      (setq python-shell-interpreter (quote-exe (executable-find "python"))))
+      (setq python-shell-interpreter (rlbr/quote-exe (executable-find "python"))))
     (add-hook 'python-django-project-root-hook 'python-shell-interpreter-refresh)
     ))
  #+end_src