Fix annoying PATH loading issue introduced in some random OSX update

init.el

@@ -9,6 +9,9 @@
 ;;   defaults write $HOME/.MacOSX/environment PATH "$HOME/bin:/usr/local/bin:/usr/local/sbin:/usr/bin:/bin:/usr/sbin:/sbin:/usr/X11/bin"
 ;;
 ;; You will have to log out and back in for this to take effect.
+;;
+;; NOTE: At some point a Lion update broke this behavior. I now
+;; manually load this file in rdj-fix-path.
 
 (require 'cl)
 (require 'assoc)
@@ -32,6 +35,7 @@
 (load custom-file)
 
 (require 'rdj-utils)
+(require 'rdj-fix-path)
 
 (require 'rdj-early-off)
 (require 'rdj-package)

rdj/rdj-fix-path.el

@@ -0,0 +1,24 @@
+;; At some point a Lion update broke loading PATH from
+;; environment.plist. Thanks to jwiegley for this little elisp gem to
+;; load the file manually.
+;;
+;; Source: https://github.com/jwiegley/dot-emacs/blob/master/init.el
+
+(when rdj-is-mac
+  (let ((plist (expand-file-name "~/.MacOSX/environment.plist")))
+    (when (file-readable-p plist)
+      (let ((dict (cdr (assq 'dict (cdar (xml-parse-file plist))))))
+        (while dict
+          (if (and (listp (car dict))
+                   (eq 'key (caar dict)))
+              (setenv (car (cddr (car dict)))
+                      (car (cddr (car (cddr dict))))))
+          (setq dict (cdr dict))))
+
+      ;; Configure exec-path based on the new PATH
+      (setq exec-path nil)
+      (mapc (apply-partially #'add-to-list 'exec-path)
+            (nreverse (split-string (getenv "PATH") ":"))))))
+
+(provide 'rdj-fix-path)
+