Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (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))
Add Comment
Please, Sign In to add comment