Emacs org-mode：我如何折叠除当前标题之外的所有内容？

Question

我使用 org-mode 在多个文件中处理我的任务和项目。

在每周议程中，可以使用<TAB> 或<RET> 跳转到每个 TODO 条目的位置。如果目标文件之前未打开，则会加载该文件并将光标设置为正确的标题并展开整个文档，包括抽屉。

我非常希望只看到一棵稀疏树，除了正确的标题折叠外，其他所有内容都折叠起来（子树的可见性无关紧要）。

可以通过使用C-u <TAB 循环全局可见性来折叠整个树，但是我必须再次找到标题。

我知道我可以通过缩小缓冲区来隐藏其余部分，如下所述： Emacs, How can I display only current task and hide others in org-mode? 但后来我失去了上下文（父标题，轻松访问兄弟姐妹）并且抽屉仍然打开。

理想情况下，我希望有一个显示以下内容的命令：

• 顶级标题
• 当前标题，以及它的所有父级，直到顶层
• 当前标题的孩子

编辑：

张贴的函数user3173715 的略微修改版本似乎可以解决问题：

(defun org-show-current-heading-tidily ()
  "Show next entry, keeping other entries closed."
  (if (save-excursion (end-of-line) (outline-invisible-p))
      (progn (org-show-entry) (show-children))
    (outline-back-to-heading)
    (unless (and (bolp) (org-on-heading-p))
      (org-up-heading-safe)
      (hide-subtree)
      (error "Boundary reached"))
    (org-overview)
    (org-reveal t)
    (org-show-entry)
    (show-children)))

Answer 1

这是基于实际问题的编辑中的答案。

如果对任何人有帮助： 当我尝试将上述内容绑定到热键时，我不断收到错误，commandp wrong argument something something ... 结果证明必须添加（交互式）标志才能使其工作。 下面是绑定到 M-=

的函数示例

(defun org-show-current-heading-tidily ()
  (interactive)  ;Inteactive
  "Show next entry, keeping other entries closed."
  (if (save-excursion (end-of-line) (outline-invisible-p))
      (progn (org-show-entry) (show-children))
    (outline-back-to-heading)
    (unless (and (bolp) (org-on-heading-p))
      (org-up-heading-safe)
      (hide-subtree)
      (error "Boundary reached"))
    (org-overview)
    (org-reveal t)
    (org-show-entry)
    (show-children)))

(global-set-key "\M-=" 'org-show-current-heading-tidily)

@Patrick.B 感谢编辑！

Answer 2

我不太确定这是否是您的需求（我只是认为它适合您的问题标题），但是通过将它们绑定在 org-mode 的速度命令中，我非常高兴地使用这两个功能。您可以在org-mode hacks 中找到这两个函数。我稍微修改了它们以满足我的目的。

两个功能支持：

1. 展开除当前标题之外的所有其他标题
2. 将当前标题移至屏幕顶部以扩大阅读区域。

为了完成（2），你需要(setq recenter-positions '(top bottom))，可能有更好的解决方案，但我没有深入研究。

(defun ded/org-show-next-heading-tidily ()
  "Show next entry, keeping other entries closed."
  (if (save-excursion (end-of-line) (outline-invisible-p))
      (progn (org-show-entry) (show-children))
    (outline-next-heading)
    (unless (and (bolp) (org-on-heading-p))
      (org-up-heading-safe)
      (hide-subtree)
      (error "Boundary reached"))
    (org-overview)
    (org-reveal t)
    (org-show-entry)
    (recenter-top-bottom)
    (show-children)
    (recenter-top-bottom)))

(defun ded/org-show-previous-heading-tidily ()
  "Show previous entry, keeping other entries closed."
  (let ((pos (point)))
    (outline-previous-heading)
    (unless (and (< (point) pos) (bolp) (org-on-heading-p))
      (goto-char pos)
      (hide-subtree)
      (error "Boundary reached"))
    (org-overview)
    (org-reveal t)
    (org-show-entry)
    (recenter-top-bottom)
    (show-children)
    (recenter-top-bottom)))

您可以使用j 和l 使用org-mode speed 键将它们绑定，然后您可以使用j 和l 来控制光标在标题开头时的折叠。

(setq org-speed-commands-user
      '(("j" . ded/org-show-next-heading-tidily)
        ("l" . ded/org-show-previous-heading-tidily))))

非常适合阅读 org-mode 文件，干杯！

Answer 3

检查您的组织启动选项 (customize-group > org-startup)，例如 org-startup-folded 或 org-agenda-inhibit-startup（其他人已经提到过这些）并将选项设置为仅显示折叠视图。像#+STARTUP 这样的组织模式变量在here 中讨论。

当您现在跳转到议程时，您可能会注意到所有内容都已折叠，甚至可能看不到活动项目的父项。然后，您可以使用org-reveal（C-c C-r 根据manual）使 上下文（父母、孩子、下一个兄弟姐妹）可见