Tải lại các biến môi trường

Câu hỏi này đã được hỏi tại superuser là-there-a-way-to-reload-môi trường-biến-in-emacs , nhưng không có giải pháp tốt nào được đưa ra.

Tôi đang sử dụng EmacsClient với hơn 30 bộ đệm mở, nếu tôi thay đổi biến môi trường trong trình bao, tôi cần thoát EmacsClient (và mở lại tất cả các bộ đệm) hoặc tôi phải tự đặt biến môi trường trong Emacs. Tôi thấy khó chịu khi tôi không thể cập nhật các biến môi trường một cách dễ dàng trong Emacs. Bất kỳ đề xuất?

exec-path-from-shell cung cấp exec-path-from-shell-copy-envlệnh, cho phép bạn sao chép giá trị của các biến môi trường vào các phiên Emacs. Chẳng hạn, cũng M-x exec-path-from-shell-copy-env RET FOOđặt giá trị của $FOOEmacs.

Lưu ý rằng exec-path-from-shell-copy-envsinh ra một shell mới để trích xuất giá trị của biến môi trường. Do đó, nó sẽ chỉ hoạt động cho các biến mà bạn đặt trong các tệp cấu hình shell của mình (ví dụ .bashrc), nhưng không hoạt động cho các biến chỉ được đặt trong phiên shell đang chạy với export. Việc trích xuất các biến này nói chung là không thể nếu không có các bản hack phức tạp kiểm tra /proc/hoặc API tương tự để chạy các quy trình.

Như một giải pháp thay thế, những điều sau đây có thể được sử dụng (Linux, Bash):

• Lần chạy đầu tiên printenv -0 > env.txttừ cửa sổ đầu cuối Bash,
• Sau đó từ bên trong Emacs, chạy

(defun my-update-env ()
  (interactive)
  (let ((str 
         (with-temp-buffer
           (insert-file-contents "env.txt")
           (buffer-string))) lst)
    (setq lst (split-string str "\000"))
    (while lst
      (setq cur (car lst))
      (when (string-match "^\\(.*?\\)=\\(.*\\)" cur)
        (setq var (match-string 1 cur))
        (setq value (match-string 2 cur))
        (setenv var value))
      (setq lst (cdr lst)))))

Cập nhật

Tôi chỉ ra rằng điều này có thể được thực hiện một cách thanh lịch hơn bằng cách sử dụng --evaltùy chọn của emacsclientlệnh: Xác định tập lệnh Bash update_emacs_env:

#! /bin/bash

fn=tempfile
printenv -0 > "$fn" 
emacsclient -s server_name -e '(my-update-env "'"$fn"'")' >/dev/null

server_nametên máy chủ Emacs của bạn ở đâu và my-update-envlà một chức năng được xác định bởi ~/.emacstệp của bạn :

(defun my-update-env (fn)
  (let ((str 
         (with-temp-buffer
           (insert-file-contents fn)
           (buffer-string))) lst)
    (setq lst (split-string str "\000"))
    (while lst
      (setq cur (car lst))
      (when (string-match "^\\(.*?\\)=\\(.*\\)" cur)
        (setq var (match-string 1 cur))
        (setq value (match-string 2 cur))
        (setenv var value))
      (setq lst (cdr lst)))))

Bây giờ bạn có thể chỉ cần gõ update_emacs_envtừ dòng lệnh shell để cập nhật các biến môi trường Emacs ..

Tôi đã từng sử dụng điều này:

function export-emacs {
    if [ "$(emacsclient -e t)" != 't' ]; then
        return 1
    fi

    for name in "${@}"; do
        value=$(eval echo \"\$${name}\")
        emacsclient -e "(setenv \"${name}\" \"${value}\")" >/dev/null
    done
}

Cho phép bạn xuất một biến được đặt tên, EG:

export EDITOR=vim
export-emacs EDITOR