git log --pretty=format:%aD | while read s ; do date -d $s +'%u %H %M' ; done | perl -Mstrict -le 'my $x = {}; while(my ($d, $h, $m) = split " ", <>){ $d--; $_ = sprintf "%05d", 10_000 * $d + 100 * $h * 99 / 23.0 + $m * 99 / 59.0; $x->{$_}++ } print "$_\t$x->{$_}" for sort keys %$x' >! /tmp/git_minutes

##</code><code>##

gnuplot> plot [0:][0:] "/tmp/git_minutes" using 1:2 notitle