Category: | One liners |
Author/Contact Info | fv@linuxvar.it |
Description: | graph git commits over the week |
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) = spli +t " ", <>){ $d--; $_ = sprintf "%05d", 10_000 * $d + 100 * $h * 99 / +23.0 + $m * 99 / 59.0; $x->{$_}++ } print "$_\t$x->{$_}" for sort key +s %$x' >! /tmp/git_minutes gnuplot> plot [0:][0:] "/tmp/git_minutes" using 1:2 notitle |
Back to
Code Catacombs