Re: How to do proper folding and semantic markup

[Adam Porter <adam@alphapapa.net>]

Eduardo Mercovich <eduardo <at> mercovich.net> writes:

> Also less known that it deserves, for focusing I do use narrowing a lot:

Yeah, that's basically what tree-to-indirect does, it makes an indirect
buffer and then narrows it.  So you can widen the indirect buffer and get
another view of the whole buffer.  

I also use this advice to rename the indirect buffer to the name of the
heading, that way you don't end up with "file.org<1>"-style buffers:

(defun ap/org-rename-tree-to-indirect-buffer (&rest args)
    "Rename the new buffer to the current org heading after using
org-tree-to-indirect-buffer."
    (with-current-buffer (car (buffer-list (car (frame-list))))
      (save-excursion
        (let* ((heading (nth 4 (org-heading-components)))
               (name (if (string-match org-bracket-link-regexp heading)
                         ;; Heading is an org link; use link name
                         ;; TODO: but what if only part of the heading is?
                         (match-string 3 heading)
                       ;; Not a link; use whole heading
                       heading)))
          (rename-buffer name) t))))
  (advice-add 'org-tree-to-indirect-buffer :after
'ap/org-rename-tree-to-indirect-buffer)