ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove the first part in showing the outline

Browse source 
The first part is an artifact from the way I've been using GTD and the
other parts (if any) make the first implicit.
This commit is contained in:
Tom Willemse 2015-05-25 20:06:11 +02:00
parent 3eb9eb45f3
commit 30952ab6a5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
emacs/.emacs.d/site-lisp/org-init.el
View file

@ -77,7 +77,8 @@
"* " (alist-get 'subject task) "\n")))
(defun oni:org-maybe-outline-path ()
(let ((outline-path (org-format-outline-path (org-get-outline-path))))
(let ((outline-path (org-format-outline-path
(cdr (org-get-outline-path)))))
(unless (string= outline-path "")
(setq outline-path (concat "[ " outline-path " ] ")))
outline-path))