ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org.el (org-display-outline-path): New argument `as-string' 

* org.el (org-display-outline-path): New argument `as-string'.

This useful if you want to display the outline path in the
minibuffer like this:

(add-hook 'org-mode-hook
          (lambda() (add-to-list 'mode-line-format
                                 '(:eval (org-display-outline-path nil t t)) t)))
This commit is contained in:
Bastien Guerry 2012-09-25 03:43:41 +02:00
parent bf072bd647
commit 044dbf680e
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/org.el
View File

@ -10870,22 +10870,24 @@ such as the file name."
h)
path "/")))))
(defun org-display-outline-path (&optional file current)
(defun org-display-outline-path (&optional file current as-string)
"Display the current outline path in the echo area."
(interactive "P")
(let* ((bfn (buffer-file-name (buffer-base-buffer)))
(case-fold-search nil)
(path (and (derived-mode-p 'org-mode) (org-get-outline-path))))
(path (and (derived-mode-p 'org-mode) (org-get-outline-path)))
res)
(if current (setq path (append path
(save-excursion
(org-back-to-heading t)
(if (looking-at org-complex-heading-regexp)
(list (match-string 4)))))))
(message "%s"
(org-format-outline-path
path
(1- (frame-width))
(and file bfn (concat (file-name-nondirectory bfn) "/"))))))
(setq res
(org-format-outline-path
path
(1- (frame-width))
(and file bfn (concat (file-name-nondirectory bfn) "/"))))
(if as-string (org-no-properties res) (message "%s" res))))
(defvar org-refile-history nil
"History for refiling operations.")