emacs - 在窗口内居中 Emacs 缓冲区

Question

我将所有代码都包装在 80 列中，有时 Emacs 窗口的宽度超过 80 列，并且右侧有很多未使用的空白。

我想定位 Emacs 缓冲区，因此所有文本都显示在窗口中间。

这与居中对齐文本不同(更类似于查看 pdf 时文本两侧的空白)。

我认为这可以通过根据当前窗口大小动态调整边缘模式宽度来实现，但我不确定从哪里开始。有任何想法吗？

Answer 1

如演示 here这确实是可能的:

(set-fringe-mode
 (/ (- (frame-pixel-width)
       (* 80 (frame-char-width)))
    2))

但是，当我测试这个时，我似乎在使用边距方面更有运气，至少在调整我的框架大小时:

(defun my-resize-margins ()
  (let ((margin-size (/ (- (frame-width) 80) 2)))
    (set-window-margins nil margin-size margin-size)))

(add-hook 'window-configuration-change-hook #'my-resize-margins)
(my-resize-margins)