(defun source-bashrc (&optional bashrc)
  (interactive)
  (loop with cmd = (format "source %s &> /dev/null; env" (or bashrc "~/.bashrc"))
        with env = (s-split "\n" (shell-command-to-string cmd) t)

        for var-val in env
        do (string-match "\\([^=]+\\)=\\(.*\\)" var-val)
        as var = (match-string 1 var-val)
        as val = (match-string 2 var-val)
        do (message "setting %s to %s" var val)
        do (setenv var val)))