Comment faire pour que Emacs utilise mon fichier .bashrc?

Voici une astuce pour J'utilise pour assurer ma GUI Emacs voit toujours la même $PATH que je reçois à l'intérieur d'une coquille:

(defun set-exec-path-from-shell-PATH ()
  (let ((path-from-shell (replace-regexp-in-string
                          "[ \t\n]*$"
                          ""
                          (shell-command-to-string "$SHELL --login -i -c 'echo $PATH'"))))
    (setenv "PATH" path-from-shell)
    (setq eshell-path-env path-from-shell) ; for eshell users
    (setq exec-path (split-string path-from-shell path-separator))))

(when window-system (set-exec-path-from-shell-PATH))

Spécifiquement, sur OS X, un graphique Emacs ne sera pas ramasser le shell de l'utilisateur définition de $PATHdonc cette astuce m'aide sur cette plate-forme.

Mise à jour: ce code a été publié en elisp bibliothèque appelée exec-chemin-de-shell et installer les paquets sont disponibles dans MELPA.

Si votre env vars ne sont pas ramassés, il peut être due à la façon dont emacs est commencé. De vérifier la menuitem ou quoi que ce soit et essayer de changer de emacs à bash -c emacs.

Je suis venu avec quelque chose de similaire pour l'approvisionnement en mon .bash_profile. Si vous ne se soucient CHEMIN, l'un de l'autre les réponses ci-dessus est plus simple.

Il fonctionne en exécutant source ~/.bash_profile ; echo post-env; env alors vous débarrasser de tout ce qui est avant le "post-env", puis analyse les valeurs de la "clé=valeur" format "env" commande de tirages.

Il n'a probablement pas gérer tous les cas parfaitement, mais fonctionne assez bien pour moi.

;;-------------------------------------------------------
;; begin sourcing of .bash_profile
;; only do this on Mac OS X
(when (string= system-type "darwin")
;; require common lisp extensions, for search
(require 'cl)
(defun src-shell-unescape (string)
;; replace \n \t \r \b \a \v \\
;; and octal escapes of the form \0nn
(replace-regexp-in-string
"\\\\\\([ntrbav]\\|\\(\\\\\\)\\|\\(0[0-7][0-7]\\)\\)"
(lambda (str)
;; interpret octal expressions
;; of the form "\0nn"
(let ((char1 (aref str 1)))
(cond ((= ?0 (aref str 1))
(byte-to-string
(+ (* (- (aref str 2) ?0) 8)
(- (aref str 3) ?0))))
((eq char1 ?n) "\n")
((eq char1 ?t) "\t")
((eq char1 ?r) "\r")
((eq char1 ?b) "\b")
((eq char1 ?a) "\a")
((eq char1 ?v) "\v")
((eq char1 ?\\) "\\\\")
(t "")))) string))
(defun src-set-environment-from-env-output(env-output)
;; set the environment from shell's "env" output
(let ((lines (split-string env-output "\n" t)))
(dolist (line lines)
(let ((idx-equals (search "=" line)))
(when (and (not (eq idx-equals nil))
(> idx-equals 1))
(let  ((key (substring line 0 idx-equals))
(value (substring line (+ idx-equals 1))))
(setenv key (src-shell-unescape value))
;; (message "%s = %s" key value)
))))))
(defun src-source-shell-file (file-name)
;; if your shell is sh rather than bash, the "source " may need
;; to be ". " instead
(let* ((command (concat "source '"  file-name "'; echo 'post-env'; env"))
(output (shell-command-to-string command))
(idx-post-env (search "post-env" output)))
(if (eq nil idx-post-env)
(message "Didn't find expected output after sourcing %s. Found: %s" file-name output)
(let ((trimmed-output (substring output idx-post-env)))
;; (message "trimmed-output: %s" trimmed-output)
(src-set-environment-from-env-output trimmed-output)))))
(src-source-shell-file (expand-file-name "~/.bash_profile")))
;; end sourcing of .bash_profile
;;-------------------------------------------------------