Hi Ken,
Ken Williams <[email protected]> writes:
> Has anyone ever tried implementing a “breadcrumbs”-type feature in
> org-mode?
What about this?
(defun org-show-olpath ()
"Show the outline path."
(interactive)
(let (p h)
(save-excursion
(while (and (setq h (ignore-errors (org-get-heading t t)))
(org-up-heading-safe))
(setq p (concat h "/" p)))
(setq p (concat (org-get-heading t t) "/" p)))
p))
(add-hook 'org-mode-hook
(lambda() (add-to-list 'mode-line-format
'(:eval (org-show-olpath)) t)))
--
Bastien
