my-env.el

;; Setup PATH 
(setenv "PATH" (shell-command-to-string "source ~/.bashrc; echo -n $PATH"))
;; Update exec-path with the contents of $PATH
(loop for path in (split-string (getenv "PATH") ":") do 
      (add-to-list 'exec-path path))
;; Grab other environment variables
(loop for var in (split-string (shell-command-to-string "source ~/.bashrc; env")) do
      (let* ((pair (split-string var "="))
	     (key (car pair))
	     (value (cadr pair)))
	(unless (getenv key)
	  (setenv key value))))