Read environment vars into emacs

init.el

(let* ((env-output (shell-command-to-string "source .bashrc ; source .emacs.d/emacsenv.sh"))
       (lines (split-string env-output "[\r\n]+" t))
       (regex "^\\([^ ]+\\) \\(.*\\)$")
       (pairs (mapcar (lambda (line)
                        (if (string-match regex line)
                            (list (match-string 1 line) (match-string 2 line))))
                      lines)))
  (mapc (lambda (pair) (apply 'setenv pair)) pairs))