Emacs:将主机名添加到模式行？

Question

我想在模式行中的某处显示 (getenv "HOSTNAME") 的输出。我的显示时间模式设置为“t”，因此我已经在模式行中显示时间、负载级别和邮件标志。有没有一种简单的方法来获取主机名？

我想要这个，因为我通过 ssh 连接到 3 台远程机器，所有机器都从一组通用的 init 文件运行 emacs，并且我想要一些快速、简单、不引人注目的方法来知道我在哪台机器正在努力。

Answer 1

以 Sean Bright 的 answer 为基础，具体来说你可以这样做:

(let ((pos (memq 'mode-line-modes mode-line-format)))
  (setcdr pos (cons (getenv "HOSTNAME") (cdr pos))))

这假设'mode-line-modes是'mode-line-format的一部分，默认情况下是这样。由于您正在修改变量'mode-line-format 指向的列表，因此不必设置默认值。如果您要设置变量本身，则必须执行以下操作:

(setq-default mode-line-format (build-list-that-contains-(getenv "HOSTNAME")))