Emacs/Slime/硬代码垂直分割比

Question

我目前处于模式:C-x 2

通常，我不太关心垂直拆分。但是，我在 13"显示器上进行编码，这使得垂直空间相当宝贵。

我想要一些设置，当我执行 C-x 2 时，我的窗口不是拆分为 50/50，而是拆分为 70/30 [这样我可以将 repl 发送到屏幕的底部，并且会看到很多代码.]

C-h 垂直分割

提出:

垂直分割窗口，垂直分割调用表

但是，我怀疑有一些参数会改变/控制分流比。

什么 emacs 选项告诉我的计算机拆分 70/30 而不是 50/50？

谢谢!

Answer 1

您可以使用前缀参数告诉 Emacs 给两个窗口中的每一个提供多少行。
参见:C-hk C-x2
或 C-hf split-window-below RET

If optional argument SIZE is omitted or nil, both windows get thesame height, or close to it. If SIZE is positive, the upper(selected) window gets SIZE lines. If SIZE is negative, thelower (new) window gets -SIZE lines.

所以你可以给上面的窗口 20 行和下面的窗口剩下的: C-u 20 C-x2
(或 M-2M-0C-x2 等...)
你可以给下面的窗口 10 行和上面的窗口剩下的: C-u -10 C-x2
(或 M--M-1M-0C-x2 等...)
见 How to change size of split screen emacs windows?有很多方法可以在拆分后修改窗口的大小。
编辑:
您可以使用以下功能来做您想做的事:

(defun my-split-window-below (&optional arg)
  "Split the current window 70/30 rather than 50/50.
A single-digit prefix argument gives the top window arg*10%."
  (interactive "P")
  (let ((proportion (* (or arg 7) 0.1)))
    (split-window-below (round (* proportion (window-height))))))

(global-set-key (kbd "C-c x 2") 'my-split-window-below)

默认比率为 70/30，但您可以提供一位数前缀参数以 10% 的增量指定顶部窗口的大小。
如果将此命令绑定(bind)到 C-x2，则 C-9C-x2 将提供顶部窗口 90% 和底部 10%。

编辑 2:我最终使用了它的一个变体作为我自己的 C-x2 绑定(bind)。此版本默认为正常的 50/50 拆分，但提供与其他函数相同的前缀 arg 功能，以防我想要不同的东西。

(defun my-split-window-below (&optional arg)
  "Split the current window 50/50 by default.
A single-digit prefix argument gives the top window ARG * 10%
of the available lines."
  (interactive "P")
  (let* ((proportion (and arg (* arg 0.1)))
         (size (and proportion (round (* proportion (window-height))))))
    (split-window-below size)))