Emacs：是否将主机名添加到模式行？

我想在模式行的某个地方显示（getenv“HOSTNAME”）的输出。我的显示时间模式设置为“t”，因此我已经在模式行中显示时间、负载级别和邮件标志。有没有一种简单的方法可以把主机名也放进去

我想要这个，因为我用ssh访问了3台远程机器，所有这些机器都从一组常见的init文件运行emacs，我想要一些快速、简单、不引人注目的方法来知道我正在使用哪台机器。

要在Sean Bright的基础上构建，具体来说，您可以这样做：

(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")))

---

我尝试了上述答案，但并不是特别成功（我正在运行Emacs23）。经过大量调查，我最终将

系统名称

放入我的

模式行格式

，如下所示：

;; Set the modeline to tell me the filename, hostname, etc..
(setq-default mode-line-format
  (list " "
        ; */% indicators if the file has been modified
        'mode-line-modified
        "--"
        ; the name of the buffer (i.e. filename)
        ; note this gets automatically highlighted
        'mode-line-buffer-identification
        "--"
        ; major and minor modes in effect
        'mode-line-modes
        ; if which-func-mode is in effect, display which
        ; function we are currently in.
        '(which-func-mode ("" which-func-format "--"))
        ; line, column, file %
        'mode-line-position
        "--"
        ; if vc-mode is in effect, display version control
        ; info here
        `(vc-mode vc-mode)
        "--"
        ; hostname
        'system-name
        ; dashes sufficient to fill rest of modeline.
        "-%-"
        )
)

---

我已经详细介绍了这一点以及我在a中发现的有关emacs modeline的其他内容。

您还可以将垃圾附加到

全局模式字符串

变量：

(defvar my-hostname (concat " " (system-name)))
(setq global-mode-string (append global-mode-string '(my-hostname)))

这两行代码可能足够用于静态的东西，比如主机名

如果您有更具动态性的内容，可以使用

run at time

设置计时器来更新字符串（

my hostname

，在本例中）。查看

显示时间模式的定义，了解一个很好的小示例