From: Carsten Dominik <carsten.dominik@gmail.com>
To: Olaf Dietsche <olaf+list.orgmode@olafdietsche.de>
Cc: emacs-orgmode@gnu.org, Rasmus <rasmus@gmx.us>
Subject: Re: Date-centric Clocktable
Date: Wed, 7 Sep 2011 12:28:22 +0200 [thread overview]
Message-ID: <F3DD95C3-9812-40A7-A733-60649674BDF9@gmail.com> (raw)
In-Reply-To: <871uvsejxp.fsf@rat.lan>
On Sep 7, 2011, at 12:16 PM, Olaf Dietsche wrote:
> Rasmus <rasmus@gmx.us> writes:
>
>>> Why don't you just use a simple (perl/python/...) script to collect your
>>> data? Here's a quick hack in perl:
>>
>> That was my plan if I was not able to do from within Org. To me it would
>> be a lot faster than hacking something together in emacs-lisp,
>> unfortunately.
>
> If you insist on elisp, maybe something along these (untested) lines
> might work:
>
> ---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---
Hi Olaf,
this is great! Maybe we should make this a little builtin function,
with a format specification to create the lines.
What is still missing, I think, is some sorting by time would.
Basically, use
(org-float-time
(apply 'encode-time (save-match-data (org-parse-time-string (match-string 1)))))
after the successful search for a clock string to get a floating
point number representing the starting time, collect the
line you are creating into an alist with the times and sort
them before inserting into the buffer.
- Carsten
next prev parent reply other threads:[~2011-09-07 10:28 UTC|newest]
Thread overview: 21+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-08-31 12:33 Date-centric Clocktable Rasmus
2011-09-06 10:36 ` Bernt Hansen
2011-09-06 21:36 ` Rasmus
2011-09-06 21:47 ` Carsten Dominik
2011-09-07 8:07 ` Rasmus
2011-09-07 8:16 ` Carsten Dominik
2011-09-07 12:54 ` Giovanni Ridolfi
2011-09-07 2:08 ` Bernt Hansen
2011-09-07 8:11 ` Rasmus
2011-09-07 9:01 ` Olaf Dietsche
2011-09-07 9:09 ` Rasmus
2011-09-07 10:16 ` Olaf Dietsche
2011-09-07 10:28 ` Carsten Dominik [this message]
2011-09-07 13:54 ` Olaf Dietsche
2011-09-07 22:53 ` Rasmus
2011-09-08 13:40 ` A. Ryan Reynolds
2011-09-07 10:56 ` Rasmus
2011-09-07 11:30 ` Olaf Dietsche
2011-09-07 13:38 ` Olaf Dietsche
2011-09-07 23:38 ` Rasmus
2011-10-21 17:52 ` Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=F3DD95C3-9812-40A7-A733-60649674BDF9@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=olaf+list.orgmode@olafdietsche.de \
--cc=rasmus@gmx.us \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).