colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix org-archive-if to not skip neighboring completed tasks

Browse Source
This commit is contained in:
Ivan Malison 2015-08-16 16:10:50 -07:00
parent 147a24fb61
commit bb7fbf9c4e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dotfiles/emacs.d/init.el
View File

@ -756,7 +756,10 @@ The current directory is assumed to be the project's root otherwise."
(defun org-archive-if (condition-function) (defun org-archive-if (condition-function)
(if (funcall condition-function) (if (funcall condition-function)
(org-archive-subtree))) (let ((next-point-marker
(save-excursion (org-forward-heading-same-level 1) (point-marker))))
(org-archive-subtree)
(setq org-map-continue-from (marker-position next-point-marker)))))
(defun org-archive-if-completed () (defun org-archive-if-completed ()
(interactive) (interactive)