[emacs] anything-org-headings

anything-org-headings.el

(setq anything-c-source-org-headings
  '((name . "Org Headings")
    (headline . "^[*]+ ")
    (condition . (eq major-mode 'org-mode))
    (migemo)
    (persistent-action . (lambda (elm)
                           (anything-c-action-line-goto elm)
                           (show-subtree)))
    (action-transformer
     . (lambda (actions candidate)
         '(("Go to Line" . anything-c-action-line-goto)
           ("Go to section and fold otherse" . anything-c-outline-org-heading-hide-others))))
    )
  "Show Org headlings.

Differenct from `anything-c-source-org-headlines`, this one keeps faces")


(defun anything-org-headings ()
  "Preconfigured anything to show org-like headings."
  (interactive)
  (let ((anything-candidate-number-limit 200))
    (anything-other-buffer 'anything-c-source-org-headings "*org-mode headings*")))

(define-key global-map (kbd "<f5> h") 'anything-org-headings)