diff --git a/settings.org b/settings.org
index 796adf1..9961f8f 100644
--- a/settings.org
+++ b/settings.org
@@ -38,6 +38,65 @@
 * Platform dependant
 ** Windows
 #+BEGIN_SRC emacs-lisp
+  (when (string-equal system-type "windows-nt")
+    (progn
+      (defun rlbr/quote-exe (path)
+	(w32-short-file-name path))
+      (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") '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)))))))
 #+END_SRC
 * Major modes
 ** Java