A bunch of Emacs Lisp utilities.

util.el

(defun cjw-load-env-from-file (filename)
  "Open a file of environment variable definitions like:
      export FOO=bar
      export BAZ=quux
  and load them into the current environment using `setenv`"
  (with-temp-buffer
    (insert-file-contents filename)
    (goto-char (point-min))
    (while (re-search-forward "^export \\(.*\\)=\\(.*\\)$")
      (apply 'setenv (list (match-string 1) (match-string 2))))))