emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] Autoarchiving done entries


From: John Wiegley
Subject: Re: [Orgmode] Autoarchiving done entries
Date: Mon, 03 Sep 2007 22:17:44 -0400
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1 (darwin)

Xavier Maillard <address@hidden> writes:

>    >> I use something that I thought your users might find handy.  It causes
>    >> all completed todo items to be automatically flushed to the archive
>    >> whenever I save my todo file.
>
>    How about having it auto-archive completed TODOs that were finished more
>    than a configurable number of days ago? I'd find that pretty useful.
>
> Sounds like the expiration mechanism one can find into gnus. I like the
> idea.

Quite a nice idea.  In fact... DONE.

John

(defvar org-my-archive-expiry-days 2
  "The number of days after which a completed task should be auto-archived.
This can be 0 for immediate, or a floating point value.")

(defun org-my-archive-done-tasks ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (let ((done-regexp
           (concat "\\* \\(" (regexp-opt org-done-keywords) "\\) "))
          (state-regexp
           (concat "- State \"\\(" (regexp-opt org-done-keywords)
                   "\\)\"\\s-*\\[\\([^]\n]+\\)\\]")))
      (while (re-search-forward done-regexp nil t)
        (let ((end (save-excursion
                     (outline-next-heading)
                     (point)))
              begin)
          (goto-char (line-beginning-position))
          (setq begin (point))
          (when (re-search-forward state-regexp end t)
            (let* ((time-string (match-string 2))
                   (when-closed (org-parse-time-string time-string)))
              (if (>= (time-to-number-of-days
                       (time-subtract (current-time)
                                      (apply #'encode-time when-closed)))
                      org-my-archive-expiry-days)
                  (org-archive-subtree)))))))))

(defalias 'archive-done-tasks 'org-my-archive-done-tasks)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]