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

Command to archive all completed TODOS in buffer.

Browse Source
This commit is contained in:
Ivan Malison 2015-01-12 12:28:16 -08:00
parent eb14992d5f
commit 80b0c6f52c
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -609,6 +609,18 @@ The current directory is assumed to be the project's root otherwise."
("C-c C-S-t" . org-todo-force-notes)) ("C-c C-S-t" . org-todo-force-notes))
:config :config
(progn (progn
(defun org-archive-if (condition-function)
(if (funcall condition-function)
(org-archive-subtree)))
(defun org-archive-if-completed ()
(interactive)
(org-archive-if 'org-entry-is-done-p))
(defun org-archive-completed-in-buffer ()
(interactive)
(org-map-entries 'org-archive-if-completed))
(defun org-capture-make-todo-template (&optional content) (defun org-capture-make-todo-template (&optional content)
(unless content (setq content "%?")) (unless content (setq content "%?"))
(with-temp-buffer (with-temp-buffer