Skip to content

Instantly share code, notes, and snippets.

@DinoChiesa

DinoChiesa/darwin.el

Created April 21, 2014 20:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save DinoChiesa/11154958 to your computer and use it in GitHub Desktop.
Save DinoChiesa/11154958 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
darwin.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; fixup path
;; for each directory in the list, if it exists, and is not already
;; present on the path, add it to path.
(let ((path-elts (split-string (getenv "PATH") ":")))
(dolist (path '("/usr/local/bin"
"/Library/Frameworks/Mono.framework/Versions/Current/bin"))
(and (file-directory-p path)
(not (member path path-elts))
(setenv "PATH" (concat (getenv "PATH") ":" path)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment