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)))))