Question

我想在我的模式行中的某处显示（getenv“HOSTNAME”）的输出。我的显示时间模式设置为't'，所以我已经在模式行中显示时间，负载级别和邮件标志。是否有一种简单的方法可以获得主机名？

我想拥有这个，因为我正在使用3个远程计算机，所有正在运行的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")))指向的列表，所以您不必设置默认值。如果您自己设置变量，则必须执行以下操作：

{{1}}

Answer 2

我尝试了上述答案并没有特别成功（我正在运行emacs 23）。经过大量调查后，我最终将system-name放入我的mode-line-format，如下所示：

;; 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.
        "-%-"
        )
)

我在posting on my website中详细介绍了我发现的有关emacs模式行的这个和其他内容。

Answer 3

您还可以将垃圾追加到global-mode-string变量：

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

对于像主机名这样的静态内容，这两行可能就足够了。

如果您有更动态的内容，可以设置一个带run-at-time的计时器来更新字符串（本例中为my-hostname）。看看display-time-mode的定义，看一个很好的小例子。

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

3 个答案: