Jump to location in org-mode while properly unfolding headings

Question

I'd like to find a way to jump to a location in an org-mode file while automatically unfolding only the heading at the location I'm jumping to and all its parent headings (but not any sibling headings).

For example, if I have this org-mode file:

* A
** AA
*** AAA
** AB
*** ABA
* B
** BA
*** BAA
** BB
*** BBA
* C
** CA
*** CAA
** CB
*** CBA

and I use evil-set-marker to mark the location at BBA, and then fold up all the headings, the file will now be displayed in org-mode as:

* A...
* B...
* C...

and if I now evil-goto-mark with the intention of going back to BBA, emacs will only place point on B without unfolding any of the headings, so the way the file is displayed remains unchanged.

Instead, I'd like emacs to unfold just BBA and all of its parent headings (but no sibling headings) like so:

* A...
* B
** BA...
** BB
*** BBA
* C...

and place point on the exact location I marked at BBA.

Answer 1

You could define a custom function :

(defun evil-goto-and-unfold ()
  (interactive)
  (progn
    (evil-goto-mark)
    (show-subtree)))

It is untested as-is as I do not use evil-mode myself, but might work as I bumped on the same limitations/weirdnesses of org-reveal as you, and I solved it with show-subtree.

Answer 2

This does what you want -- except it does not show the sister heading BA.

Function Signature
(org-reveal &optional SIBLINGS)

Documentation
Show current entry, hierarchy above it, and the following headline.

This can be used to show a consistent set of context around
locations exposed with org-show-context.

With optional argument SIBLINGS, on each level of the hierarchy all
siblings are shown.  This repairs the tree structure to what it would
look like when opened with hierarchical calls to org-cycle.

With a C-u C-u prefix, go to the parent and show the entire tree.

Key Bindings
org-mode-map <menu-bar> <Org> <Show/Hide> <Reveal Context>
org-mode-map C-c C-r

Answer 3

Lisp function org-show-context works. This is the command used by me to open file at point.

(defun my-find-file-at-point-with-line ()
  "Opens the file at point and goes to line-number."
  (interactive)
  ;; TODO: support file like "d:\\asbc\\dd.txt"
  (if (eq major-mode 'org-mode)
    (org-open-at-point)
    (let ((fname (ffap-file-at-point)))
      (if fname
        (let ((line
               (save-excursion
                 (goto-char (cadr ffap-string-at-point-region))
                 (and (re-search-backward ":\\([0-9]+\\)"
                                          (line-beginning-position) t)
                      (string-to-number (match-string 1))))))
          ;;(message "file:%s,line:%s" fname line)
          (when (and (tramp-tramp-file-p default-directory)
                     (= ?/ (aref fname 0)))
            ;; if fname is an absolute path in remote machine, it will not return a tramp path,fix it here.
            (let ((pos (position ?: default-directory)))
              (if (not pos) (error "failed find first tramp indentifier ':'"))
              (setf pos (position ?: default-directory :start (1+ pos)))
              (if (not pos) (error "failed find second tramp indentifier ':'"))
              (setf fname (concat (substring default-directory 0 (1+ pos)) fname))))
          (find-file-existing fname)
          (when line (goto-line line))
          ;; make sure context in point is visible.
          (when (and buffer-file-name (string-match "\\.org$" buffer-file-name))
            (org-show-context)))
        (warn "File does not exist.")))))