标题几乎说: 我经常想要创建一个稀疏树 对于我当前缓冲区中的当前位置, 显示所有标题给我。
这是
** WANTED为我现在的位置创建一个稀疏树:orgmode:
我经常希望能够为我现在的位置创建稀疏树。 创建搜索C-c //有点痛苦 - 但那是我现在的克拉奇:
a)插入一个像HERE-I-AM
这样的唯一字符串b)C-C // HERE-I-AM (组织出现“HERE-I-AM”无)
给这样的东西
** My (org-mode) LOGS :top:
** LOGs :log
*** Fri Mar 22 2013
**** DONE org-mode - trying to get calendar to work
***** DONE rewrote docs
- State "DONE" from "" [2013-03-22 Fri 14:49]
blah blah blah
HERE-I-AM
** ...NEXT Daily Log
这显然不能令人满意。 例如可能没有写入权限
答案 0 :(得分:1)
我很快就把你想要的东西扯掉了,或者至少关闭了:
(defun tr/path-sparse-tree ()
"sparse tree to the current buffer position"
(interactive)
(setq pathmarker "Eeshoo9OomeiRaix") ;; random string obtained from
;; pwgen, probably a unique marker
;; in any org document...
(save-excursion
(insert pathmarker)
(org-occur pathmarker))
(delete-char 16))
我本身不是emacs-lisp从业者,但我的快速测试对你的问题描述很有希望。至少这是你现在的kludge自动化; - )。
答案 1 :(得分:1)
这个功能可以做你想要的:
(defun my-org-sparse-tree ()
"Create an org sparse tree showing only point"
(interactive)
(org-overview) ;; Hide everything
(org-show-context)) ;; Show context around point