emacs组织模式,仅搜索标头

时间:2015-01-19 18:06:58

标签: regex search emacs header org-mode

在emacs中,我希望只能搜索'标题'在组织模式文件中。

创意1:仅搜索可见
我可以通过隐藏所有内容来实现这一点,然后只显示轮廓(S-TAB,S-TAB),然后搜索所有可见的内容。(在这种情况下,它将是整个内容表)。 但是,我如何只搜索可见内容? C-s搜索所有内容。

创意2:使用正则表达式
我可以这样做:

C-c / /             //opens regex search
\*.*heading        //start with * (escaped), followed by any chars, then heading.

但目前输入所有这些内容很麻烦。考虑到我3小时前开始学习emacs,我可以以某种方式自动化吗? 例如,我可以编写一个函数来搜索" *。* ARGUMENT"并绑一个热键?但是仍然有能力去找下一个找到,然后找到'等。?

这个用例就是搜索我的笔记。有些像~7000 +行很长,我通常只搜索标题。

[编辑解决方案1]
@ abo-abo的回答对我很有用。我现在使用helm-org-in-buffer-headings

是的,我安装了Melpa: https://github.com/milkypostman/melpa#usage

然后我从包列表中安装了helm: M-x package-list-packages

然后我编辑了我的.emacs并绑定了一个热键:
(global-set-key (kbd "C-=") 'helm-org-in-buffer-headings) ;Outline search.

我重新加载了emacs,现在当按下Ctrl + =时会弹出一个可搜索的轮廓,当我输入其他字符时会自动缩小。通常的C-n,C-p按钮用于导航。

谢谢!

[编辑解决方案2] 好奇心得到了我的好处。在享受了头盔搜索后,我也和worf一起搞砸了。它就像掌舵(它使用头盔),但看起来更好,我可以选择一个级别'按数字键的轮廓。如果使用的话,我只删除了标题搜索所需的位:

;; ——— WORF Utilities ———————————————————————————————————————————————————————————————
;; https://github.com/abo-abo/worf/blob/master/worf.el
(defun worf--pretty-heading (str lvl)
  "Prettify heading STR or level LVL."
  (setq str (or str ""))
  (setq str (propertize str 'face (nth (1- lvl) org-level-faces)))
  (let (desc)
    (while (and (string-match org-bracket-link-regexp str)
                (stringp (setq desc (match-string 3 str))))
      (setq str (replace-match
                 (propertize desc 'face 'org-link)
                 nil nil str)))
    str))
(defun worf--pattern-transformer (x)
  "Transform X to make 1-9 select the heading level in `worf-goto'."
  (if (string-match "^[1-9]" x)
      (setq x (format "^%s" x))
    x))

(defun worf-goto ()
  "Jump to a heading with `helm'."
  (interactive)
  (require 'helm-match-plugin)
  (let ((candidates
         (org-map-entries
          (lambda ()
            (let ((comp (org-heading-components))
                  (h (org-get-heading)))
              (cons (format "%d%s%s" (car comp)
                            (make-string (1+ (* 2 (1- (car comp)))) ?\ )
                            (if (get-text-property 0 'fontified h)
                                h
                              (worf--pretty-heading (nth 4 comp) (car comp))))
                    (point))))))
        helm-update-blacklist-regexps
        helm-candidate-number-limit)
    (helm :sources
          `((name . "Headings")
            (candidates . ,candidates)
            (action . (lambda (x) (goto-char x)
                         (call-interactively 'show-branches)
                         (worf-more)))
            (pattern-transformer . worf--pattern-transformer)))))

然后把它绑在热键上:

(global-set-key (kbd "<f3>") 'worf-goto)

3 个答案:

答案 0 :(得分:3)

来自worf

worf-goto可以做到这一点, 来自helmhelm-org-in-buffer-headings也是如此。

worf-goto实际上使用helm作为后端。除了helm-org-in-buffer-headings之外,您还可以获得:

  • 标题的颜色与原始缓冲区中的颜色相同
  • 您可以使用相应的数字
  • 选择具有相同级别的所有标题

答案 1 :(得分:1)

如果您安装了常春藤,则可以使用counsel-org-goto搜索当前缓冲区中的标题或counsel-org-goto-all以搜索所有打开的组织模式缓冲区中的标题。

如果你不想安装worf附带的其他东西,这是一个不错的选择。

答案 2 :(得分:0)

如果您不想依赖外部软件包,那么org实际上已经提供了此功能:函数为org-goto

如果您希望它的行为类似于helm-org-in-buffer-headings,则必须将org-goto-interface设置为outline-path-completion,例如,将其添加到您的初始化文件中:

(setq org-goto-interface (quote outline-path-completion))