Bastien <b...@altern.org> writes:

> What about this?

Or, inspired by Anthony's use of `org-get-outline-path':

(defun org-show-olpath ()
  "Show the outline path."
  (org-no-properties
   (mapconcat 'identity
              (append (ignore-errors (org-get-outline-path))
                      (ignore-errors (list (org-get-heading t t))))
              "/")))

(add-hook 'org-mode-hook
          (lambda() (add-to-list 'mode-line-format
                                 '(:eval (org-show-olpath)) t)))

-- 
 Bastien

Reply via email to