Re: Date-centric Clocktable

[Olaf Dietsche <olaf+list.orgmode@olafdietsche.de>]

Rasmus <rasmus@gmx.us> writes:

> Olaf Dietsche <olaf+list.orgmode@olafdietsche.de> writes:
>> If you insist on elisp, maybe something along these (untested) lines
>> might work:
>
> It just nicer to do text stuff from within Emacs but my personal Lisp
> skill are surpassed by my Python skills.  That is not to say that any of
> the skill sets are high. . . 
>
> The function didn't work in my test.org in emacs -q. I will investigate
> more later when I've got more time. 
>
>> ---8<--- cut here ---
>> (defvar clockstable)
>>
>> (defun collect-clock-lines ()
>>   (org-narrow-to-subtree)
>>   (let ((re (concat "^[ \t]*" org-clock-string "[ \t]+\\(.+?\\)[ \t]+=>[ \t]+\\(.+\\)"))
>> 	(headline (nth 4 (org-heading-components))))
>>     (while (re-search-forward re)
>>       (setq clockstable (concat clockstable (match-string 1) "|" headline "|" (match-string 2) "\n")))))
>>
>> (defun summarize-clocks ()
>>   (interactive)
>>   (setq clockstable "| date | headline | total |\n|-----+----+----|\n")
>>   (org-map-entries collect-clock-lines nil 'agenda)
>>   (insert clockstable))
>> --- cut here --->8---

Look at C-h f org-map-entries RET. Maybe changing the scope from 'agenda
to 'file will help.

Regards, Olaf