Kabuk profilini ve geçerli dizin kancalarını kullanarak kabuk komutunu çalıştırma (ör. Direnv)

Ben almaya çalışıyorum shell-commandve async-shell-commandbenim de programların bir çift ile sorunsuzca entegre etmek .bashrcözellikle dosyaya direnv bu örnekte.

Özelleştirirsem shell-command-switchprofilimi normal bir etkileşimli giriş kabuğu gibi yüklemek için kabuk süreçleri alabileceğimi fark ettim:

(setq shell-command-switch (salt kopya "-ic"))
(setq açık-bash-args '("-ic" "dışa aktarma EMACS =; stty echo; bash"))

Ben de exec-path-from-shell kullanıyorum .

Diyelim ki bir ~/.bashrcdosya var:

...

eval "$ (direnv hook $ 0)"
echo "foo"

İçinde ~/code/foobir .envrcdosya var:

dışa aktarma PATH = $ PWD / bin: $ PATH
echo "bar"

Eğer set M-x shellile çalıştırırsam , bir bash kabuğu profilimi doğru şekilde yükler ve bunu yoluma eklemek için direnv kancasını çalıştırır:default-directory~/code/foo

direnv: yükleme .envrc
bar
direnv: ihracat ~ PATH
~ / kod / foo $ echo $ PATH
/ Kullanıcılar / kullanıcı adı / kod / foo / bin: / usr / local / bin: ... # $ PATH geri kalanı

Ancak default-directoryhala ~/code/foove ben çalışırsam , M-! echo $PATHdoğru benim .bashrc yükler ama geçerli dizinin direnv kanca yürütmez:

foo
/ usr / local / bin: ... #. /bin olmadan $ PATH'ın geri kalanı

Eğer koşarsam aynı sonucu alırım M-! cd ~/code/foo && echo $PATH.

Bir interaktif kabuk tamponundan gönderiliyormuş gibi davranmasını sağlamak shell-commandveya tavsiye etmek veya takmak için bir yol var mı start-process?

Bu Emacs ile değil, bash ile ilgili bir sorun gibi görünüyor. shell-commandsadece call-processkabuk üzerinde çalışır ve argümanlar iletir. Bunu düzenli bir kabukta denedim:

bash -ic "cd ~/code/foo && echo $PATH"

~/.bashrckaynaklanır, ancak direnv kancası çalıştırılmaz. Ne zaman direnv hook bashyürütüldüğünde, bir fonksiyon _direnv_hookçıkışı ve başına ilave olduğunu PROMPT_COMMAND.

_direnv_hook() {
  eval "$(direnv export bash)";
};
if ! [[ "$PROMPT_COMMAND" =~ _direnv_hook ]]; then
  PROMPT_COMMAND="_direnv_hook;$PROMPT_COMMAND";
fi

Bunun PROMPT_COMMANDişe yaramayacağından şüpheleniyorum . Bu bir sorun değil, çünkü _direnv_hookgerçekten basit. Biz sadece eval $(direnv export bash)shell komutunun başına geçebiliriz ve çalışır:

(let ((default-directory "~/code/foo/"))
  (shell-command "eval \"$(direnv export bash)\" && echo $PATH"))

Bu, ileti arabelleğinin artırılmış yolunu yazdırır. Alternatif olarak M-!:

cd ~/code/foo && eval "$(direnv export bash)" && echo $PATH

Bunun (setq shell-command-switch "-ic")çalışması için gerek yok .

Çalıştırma eval "$(direnv hook $0)", $PROMPT_COMMANDbash çalıştırıldığında bash -ichiçbir zaman istem olmadığı için çağrılmayan, içine giren bir işlevi tanımlar . Çizgiyi değiştirebilirsiniz:

eval "$(direnv hook $0)"

için:

eval "$(direnv hook $0)" && _direnv_hook

hook işlevini açıkça çağırmak için.

Edit: Sadece fark rekado çok benzer bir cevap verdi.

Direnv kancasının nasıl çalıştığını gösterdikleri için Rekado ve Erik'e teşekkürler $PROMPT_COMMAND. Yana shell-commandbir istem kullanmaz, bu idam elde değildi.

Erik'in yanıtı M-!, default-directoryset ile birlikte bir kabuk komutu çağırma örneğimde çalışırken, aşağıdaki örnekte işe yaramaz:

(let ((default-directory "~/code/"))
  (shell-command "cd ~/code/foo && echo $PATH"))

Bazı googling sonra, bir komut yürütülmeden önce bir şey yürütmek için bash içinde bir preexec kanca oluşturmak için bir yol buldum . Bu fikri aldım ve direnv ihtiyacımı karşılayacak şekilde değiştirdim. İşte ~ / .bashrc'nin ilgili kısmı şu şekilde görünüyor:

eval "$(direnv hook $0)"
direnv_preexec () {
  [ -n "$COMP_LINE" ] && return # don't execute on completion
  [ "$BASH_COMMAND" \< "$PROMPT_COMMAND" ] && return # don't double execute on prompt hook
  eval "$(direnv export bash)"
}
trap "direnv_preexec && $BASH_COMMAND" DEBUG

bugünlerde muhtemelen https://github.com/wbolster/emacs-direnv

bu, kabuğunuza monte edilen kancaya benzer şekilde çalışır. emacs ortamı istek üzerine (veya arabellekleri değiştirirken otomatik olarak) hangi dizinv durumlarının geçerli dizin için doğru ortam olduğu ile eşleşecek şekilde güncellenir.

değiştirerek exec-pathve process-environmentemacs kabuk gibi davranacaktır: programları doğru yollardan ve doğru ortam ile yürütmek.