Emacs 强制组织模式捕获缓冲区在新窗口中打开

如何强制组织模式的捕获缓冲区在新窗口中打开？我试过

(setq special-display-regexps
    '("^\\*Capture\\*$"))

但它不起作用 - 我立即看到一个新窗口，然后 org-mode 进行两个垂直分割（我使用 3 个垂直分割），并将捕获缓冲区放入右侧分割中。当我完成任一C-c C-c or C-c C-k，恢复原来的分割设置。

我也喜欢使用许多并排分割（通常是 4 个——我分布在多个显示器上），所以org-capture将 4 个普通窗户变成 2 个非常宽的窗户的行为每次都让我头疼——这往往会让我脱离我的流程。

+---+---+---+---+     +-------+-------+
| 1 | 2 | 3 | 4 | --> |   1   |capture| = head explosion
+---+---+---+---+     +-------+-------+

所以这里有一个方法可以防止org-capture修改您的窗口配置。

经过一番搜索后，似乎没有一种简单的方法来自定义此行为（或者至少不是一个明显的方法）。跟踪源代码中的函数调用使我们发现org-capture-place-template，这会保存您的原始窗口配置，然后删除其他窗口，然后给你两个窗口的分割。当然，当您完成捕获后，您可以稍后恢复窗口配置，但是摆脱“让我们在没有您的同意的情况下更改窗口布局”的步骤肯定会很好。

事实证明这很简单。只是重新评估org-capture-place-template注释掉单行调用后(delete-other-windows):

(defun org-capture-place-template ()
  "Insert the template at the target location, and display the buffer."
  (org-capture-put :return-to-wconf (current-window-configuration))
  ;; (delete-other-windows)                ; this is the culprit!
  (org-switch-to-buffer-other-window
   (org-capture-get-indirect-buffer (org-capture-get :buffer) "CAPTURE"))
  (widen)
  (show-all)
  (goto-char (org-capture-get :pos))
  (org-set-local 'org-capture-target-marker
         (point-marker))
  (org-set-local 'outline-level 'org-outline-level)
  (let* ((template (org-capture-get :template))
     (type (org-capture-get :type)))
    (case type
      ((nil entry) (org-capture-place-entry))
      (table-line (org-capture-place-table-line))
      (plain (org-capture-place-plain-text))
      (item (org-capture-place-item))
      (checkitem (org-capture-place-item))))
  (org-capture-mode 1)
  (org-set-local 'org-capture-current-plist org-capture-plist))

啊啊啊。它就像org-capture每次我用它的时候都会打我的脸，但现在它停止了。

（编辑：以下内容适用于较新版本的组织模式）

(defun org-capture-place-template (&optional inhibit-wconf-store)
  "Insert the template at the target location, and display the buffer.
When `inhibit-wconf-store', don't store the window configuration, as it
may have been stored before."
  (unless inhibit-wconf-store
    (org-capture-put :return-to-wconf (current-window-configuration)))
  ;(delete-other-windows)
  (org-switch-to-buffer-other-window
   (org-capture-get-indirect-buffer (org-capture-get :buffer) "CAPTURE"))
  (widen)
  (show-all)
  (goto-char (org-capture-get :pos))
  (org-set-local 'org-capture-target-marker
         (point-marker))
  (org-set-local 'outline-level 'org-outline-level)
  (let* ((template (org-capture-get :template))
     (type (org-capture-get :type)))
    (case type
      ((nil entry) (org-capture-place-entry))
      (table-line (org-capture-place-table-line))
      (plain (org-capture-place-plain-text))
      (item (org-capture-place-item))
      (checkitem (org-capture-place-item))))
  (org-capture-mode 1)
  (org-set-local 'org-capture-current-plist org-capture-plist))