[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] Re: monthly report
From: |
Steven Lumos |
Subject: |
[Orgmode] Re: monthly report |
Date: |
Tue, 29 May 2007 17:30:34 -0700 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.99 (berkeley-unix) |
Carsten Dominik <address@hidden> writes:
> On May 25, 2007, at 3:41, Steven Lumos wrote:
>> Being yet another planner switcher, I'm used to using planner-report-
>> generate to assist me with writing a monthly activity report. I don't
>> need fine-grained time tracking, or even most of what planner-report-
>> generate does--it would be ideal to get just a list of TODOs that were
>> closed between two dates and then I'll look at it while I type a few
>> sentences in an email buffer.
>>
>> Is there already an easy way to "get a list" (I guess that a sparse
>> tree would be most convenient for me) of TODOs marked as closed within
>> some date range?
>
> You can use org-occur to create a tree with matches of CLOSED time
> stamps.
> And you can use the callback argument of org-occur to verify if a
> match is in a given time interval. Something like this:
>
> (defun org-closed-in-range ()
> "Sparse treee of items closed in a certain time range."
> (interactive)
> ;; Get the time interval from the user.
> (let* ((time1 (time-to-seconds
> (org-read-date nil 'to-time nil "Starting date: ")))
> (time2 (time-to-seconds
> (org-read-date nil 'to-time nil "End date:")))
> ;; callbakc function
> (callback (lambda ()
> (let ((time
> (time-to-seconds
> (apply 'encode-time
> (org-parse-time-string
> (match-string 1))))))
> ;; check if time in interval
> (and (>= time time1) (<= time time2))))))
> ;; make tree, check each match with the callback
> (org-occur "CLOSED: +\\[\\(.*?\\)\\]" nil callback)))
This is just right. Thanks!
Steve