Autoarchiving done entries

Autoarchiving done entries

[Carsten Dominik]

I got his message from John a few days ago - might be useful for
some.  And since I have not yet decided if and how I am going to
include it, help yourself, for now.

(message has been slightly edited by CD)

Begin forwarded message:

> From: John Wiegley <johnw@newartisans.com>
> Date: August 31, 2007 5:04:49 CEST


> 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.
>
> It consists of these settings:
>
>   (setq safe-local-variable-values (quote ((after-save-hook 
> archive-done-tasks))))
>
>   (defun org-my-archive-done-tasks ()
>     (interactive)
>     (save-excursion
>       (goto-char (point-min))
>       (while (re-search-forward
>      	        (concat "\\* " (regexp-opt org-done-keywords) " ") nil t)
>         (goto-char (line-beginning-position))
>         (org-archive-subtree))))
>
>   (defalias 'archive-done-tasks 'org-my-archive-done-tasks)
>
> After setting these, I add the following to the top of my todo file:
>
>   MY TASKS  -*- mode: org; fill-column: 78; after-save-hook: 
> (archive-done-tasks) -*-
>
> John
>
>

Re: Autoarchiving done entries

[Xavier Maillard]

   I got his message from John a few days ago - might be useful for
   some.  And since I have not yet decided if and how I am going to
   include it, help yourself, for now.

I like the idea, considering that my main org files is full of
hundreds of todo items, notes, meetings, etc... Having
auto-archive for this org file would be of great help for me.

	Xavier
-- 
http://www.gnu.org
http://www.april.org
http://www.lolica.org

Re: Autoarchiving done entries

[David Emery]

Carsten Dominik <dominik@science.uva.nl> writes:

> I got his message from John a few days ago - might be useful for
> some.  And since I have not yet decided if and how I am going to
> include it, help yourself, for now.
>
> Begin forwarded message:
>
>> 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.

//Dave

Re: Autoarchiving done entries

[Xavier Maillard]

   >> 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.

	Xavier
-- 
http://www.gnu.org
http://www.april.org
http://www.lolica.org

Re: Autoarchiving done entries

[John Wiegley]

Xavier Maillard <xma@gnu.org> 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)

Re: Autoarchiving done entries

[Xavier Maillard]

> > Sounds like the expiration mechanism one can find into gnus. I like the
> > idea.
> 
> Quite a nice idea.  In fact... DONE.

Wonderful ! Please Carsten, would you mind considering to install this useful
change.

Xavier

Re: Re: Autoarchiving done entries

[Carsten Dominik]

On Sep 4, 2007, at 9:02, Xavier Maillard wrote:

>
>>> Sounds like the expiration mechanism one can find into gnus. I like 
>>> the
>>> idea.
>>
>> Quite a nice idea.  In fact... DONE.
>
> Wonderful ! Please Carsten, would you mind considering to install this 
> useful
> change.

Certainly.

- Carsten

Re: Autoarchiving done entries

[John Wiegley]

John Wiegley <johnw@gnu.org> wort:

>>   (concat "\\* " (regexp-opt org-done-keywords) " ") nil t)

This part here should read instead:

   (concat "\\* \\(" (regexp-opt org-done-keywords) "\\) ") nil t)

John