在 emacs 窗口中居中文本

Question

在一个单独的 emacs 框架中，我经常在编辑 70 列文本文件 (LaTeX) 和 120 列程序 (.h/.cpp 文件) 之间切换。我想继续只使用一个 emacs 框架，而不调整它的大小或创建额外的框架。

这就是问题所在。我的窗口宽度大约适合编辑 120 列程序，但在扩展文本编辑会话期间，窗口左侧出现 70 列。一天结束的时候，在笔记本电脑前，我的脖子似乎已经半永久性地向左倾斜了。

您是否知道一种使文本居中显示的方法，同时仍使文本文件在右侧保持锯齿状？

Answer 1

您可以尝试通过增加边缘尺寸来缩小框架。例如：

(set-fringe-style '(200 . 200))

会在主文本区域的每一侧削减 200 像素，使工作区域变窄 400 像素，但仍居中。要返回常规视图，

(set-fringe-style 'default)

会将边缘恢复为正常大小。

您可以将其包含在一些建议中，如果您坚持只使用一个窗口，这可能对您很有效：

(defadvice switch-to-buffer (after switch-to-buffer-adjust-fringe activate)
  "depending on major mode, switch fringe style"
  (if (memq major-mode '(latex-mode))
  (set-fringe-style '(200 . 200))
(set-fringe-style 'default)))

注意：更新列表 (latex-mode) 以包含您希望拥有大边缘的任何模式。

Answer 2

EmacsWiki 在shrink-wrapping frames 上有一个页面。您可以使用那里引用的库和代码来根据需要自动缩小和扩大 Emacs 框架。

Answer 3

;; Add left and right margins, when file is markdown or text.
(defun center-window (window) ""
  (let* ((current-extension (file-name-extension (or (buffer-file-name) "foo.unknown")))
         (max-text-width 80)
         (margin (max 0 (/ (- (window-width window) max-text-width) 2))))
    (if (and (not (string= current-extension "md"))
             (not (string= current-extension "txt")))
        ;; Do nothing if this isn't an .md or .txt file.
        ()
      (set-window-margins window margin margin))))

;; Adjust margins of all windows.
(defun center-windows () ""
  (walk-windows (lambda (window) (center-window window)) nil 1))

;; Listen to window changes.
(add-hook 'window-configuration-change-hook 'center-windows)

在“md”和“txt”下方添加您的文件扩展名。