From: Carsten Dominik <carsten.dominik@gmail.com>
To: Gennady Trafimenkov <gennady.trafimenkov@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Visual representation of clocked time
Date: Tue, 3 Nov 2009 18:03:43 +0100 [thread overview]
Message-ID: <14A2BF1A-0FD8-4E26-8C95-6A3F1AA481E4@gmail.com> (raw)
In-Reply-To: <f05621fd0911021316w6348161au7bba8014b822bf0b@mail.gmail.com>
Hi Gennady,
thanks for sharing!
- Carsten
On Nov 2, 2009, at 10:16 PM, Gennady Trafimenkov wrote:
> Hello everyone,
>
> I was thinking that it would be nice to have a visual representation
> of clocked time. It could give you a quick overview of when and how
> long you had been working on a particular task.
>
> For example, you have a subtree like this:
>
> ** very important task
> CLOCK: [2009-10-03 Sat 22:02]--[2009-10-03 Sat 23:21] => 1:19
> CLOCK: [2009-10-04 Sun 23:53]--[2009-10-05 Mon 02:10] => 2:17
> CLOCK: [2009-10-06 Tue 14:10]--[2009-10-06 Tue 14:50] => 0:40
> CLOCK: [2009-10-07 Wed 21:25]--[2009-10-08 Thu 00:21] => 2:56
> CLOCK: [2009-10-13 Tue 01:52]--[2009-10-13 Tue 02:52] => 1:00
> CLOCK: [2009-10-13 Tue 20:58]--[2009-10-13 Tue 23:32] => 2:34
> CLOCK: [2009-10-14 Wed 23:20]--[2009-10-15 Thu 00:55] => 1:35
> CLOCK: [2009-10-16 Fri 14:14]--[2009-10-16 Fri 14:53] => 0:39
> some text here
>
> You press a combination of keys and get a table like this:
>
> |---------------+-----+-----+-----+-----+-----+-----+-----+------|
> | Week Starting | Mon | Tue | Wed | Thu | Fri | Sat | Sun | tt,h |
> |---------------+-----+-----+-----+-----+-----+-----+-----+------|
> | 2009-09-28 | | | | | | 79 | 137 | 3.6 |
> | 2009-10-05 | | 40 | 176 | | | | | 3.6 |
> | 2009-10-12 | | 214 | 95 | | 39 | | | 5.8 |
> |---------------+-----+-----+-----+-----+-----+-----+-----+------|
>
> The table contains total number of clocked minutes for every day and
> total number of hours for every week.
>
> If I could write such a thing in Emacs lisp, I would do that. But
> unfortunately I can't. So, I wrote a python script and small function
> in lisp to call it. I am posting them here in hope that it might be
> useful for someone.
>
> Org-mode is an excellent thing. Thank you!
>
> Best regards,
> Gennady Trafimenkov
>
> ============================================================
> === ===
> ============================================================
>
> (defun gt/org-get-clocked-time-stat-on-subtree ()
> "Calculate nice table with statistics of clocked time.
> It puts results into buffer '*clocked-time-stat*'.
> When called with C-u, it copies results into the kill ring.
> GNU General Public License version 3 or later."
> (interactive)
> (let ((outputbuffer "*clocked-time-stat*"))
> (save-excursion
> (outline-mark-subtree)
> (shell-command-on-region (region-beginning) (region-end)
> "python ~/bin/create-clock-table.py"
> outputbuffer)
> (if (equal current-prefix-arg '(4))
> (if (get-buffer outputbuffer)
> (progn
> (with-current-buffer outputbuffer
> (mark-whole-buffer)
> (kill-new (filter-buffer-substring
> (region-beginning) (region-end))))))))))
>
> ============================================================
> === create-clock-table.py ==================================
> ============================================================
>
> #/usr/bin/env python
> #
> # GNU General Public License version 3 or later
> #
> # This script extracts all record of this kind from the standart
> input:
> #
> # CLOCK: [2009-10-17 Sat 21:47]--[2009-10-17 Sat 23:10] => 1:23
> #
> # then aggregates data and build table with statistics like this:
> # |---------------+-----+-----+-----+-----+-----+-----+-----+------|
> # | Week Starting | Mon | Tue | Wed | Thu | Fri | Sat | Sun | Tot. |
> # |---------------+-----+-----+-----+-----+-----+-----+-----+------|
> # | 2009-08-03 | | | | | | | | 0 |
> # | 2009-08-10 | | | | | | | | 0 |
> # | 2009-08-17 | | | | 75 | 60 | 60 | 15 | 210 |
> # | 2009-08-24 | 75 | 60 | 60 | 70 | | | | 265 |
> # | 2009-08-31 | | 10 | | | | | | 10 |
> # |---------------+-----+-----+-----+-----+-----+-----+-----+------|
> import sys
> import re
> import datetime
>
> if __name__ == '__main__':
>
> dailyStat = {}
> # we are going to extract records like:
> # CLOCK: [2009-10-17 Sat 21:47]--[2009-10-17 Sat 23:10] => 1:23
> timeExtractor = re.compile('^\s*CLOCK:
> \[(\d{4})-(\d\d)-(\d\d).*\]--\[.*\] =>\s+(\d+):(\d\d)')
> for line in sys.stdin.readlines():
> match = timeExtractor.match(line)
> if match:
> year, month, day = int(match.group(1)),
> int(match.group(2)), int(match.group(3))
> hours, minutes = int(match.group(4)), int(match.group(5))
> date = datetime.date(year, month, day)
> minutes += hours * 60
> # print date, minutes
>
> dailyStat.setdefault(date, 0)
> dailyStat[date] += minutes
>
> if len(dailyStat) == 0:
> sys.exit(0)
>
> minDate = min(dailyStat.keys())
> maxDate = max(dailyStat.keys())
> firstWeek = minDate - datetime.timedelta(minDate.weekday())
> lastWeek = maxDate - datetime.timedelta(maxDate.weekday())
>
> # calculate weekly stat
> ############################################################
>
> weeklyStat = {}
> week = firstWeek
> while week <= lastWeek:
> weeklyStat[week] = [0, 0, 0, 0, 0, 0, 0, 0]
> week += datetime.timedelta(7)
>
> biggestNumber = 0
> for day in dailyStat.keys():
> weekday = day.weekday()
> week = day - datetime.timedelta(weekday)
> weeklyStat[week][weekday] = dailyStat[day]
> weeklyStat[week][7] += dailyStat[day]
> biggestNumber = max(biggestNumber, dailyStat[day])
>
> def PrintTableLine(firstColumn, otherColumns, otherColumnsWidth):
> cellTemplate = " %%%ds |" % otherColumnsWidth
> line = "| %13s |" % firstColumn
> for i in otherColumns:
> if i == 0:
> line += cellTemplate % ""
> else:
> line += cellTemplate % i
> print line
>
> def PrintTableDelimiter(numOfColumns, otherColumnsWidth):
> column = "-" * (otherColumnsWidth + 2)
> line = "|" + "-" * (13 + 2)
> for i in xrange(1, numOfColumns+1):
> line += "+"
> line += column
> line += "|"
> print line
>
> # printing the weekly stat table
> ############################################################
>
> columnWidth = max(4, len("%d" % biggestNumber) + 1)
> PrintTableDelimiter(8, columnWidth)
> PrintTableLine("Week Starting", ["Mon", "Tue", "Wed", "Thu",
> "Fri", "Sat",
> "Sun", "tt,h"], columnWidth)
> PrintTableDelimiter(8, columnWidth)
> cellTemplate = " %%%ds |" % columnWidth
> week = firstWeek
> while week <= lastWeek:
> # convert total number of minutes in number of hours
> weeklyStat[week][7] = "%0.1f" % (float(weeklyStat[week][7]) /
> 60)
> PrintTableLine(week.isoformat(), weeklyStat[week], columnWidth)
> week += datetime.timedelta(7)
> PrintTableDelimiter(8, columnWidth)
>
> ============================================================
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
- Carsten
prev parent reply other threads:[~2009-11-03 17:46 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-11-02 21:16 Visual representation of clocked time Gennady Trafimenkov
2009-11-03 17:03 ` Carsten Dominik [this message]
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=14A2BF1A-0FD8-4E26-8C95-6A3F1AA481E4@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=gennady.trafimenkov@gmail.com \
/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).