Thanks to a tweet from @caged , I wrote this Perl script to iterate over the months in my contributions :
use v5.12; use warnings; use utf8; my $uname = 'theory'; my %projects; for my $year (2012..2014) { for my $month (1..12) { last if $year == 2014 && $month > 1; my $from = sprintf '%4d-%02d-01', $year, $month; my $to = sprintf '%4d-%02d-01', $month == 12 ? ($year + 1, 1) : ($year, $month + 1); my $res = `curl 'https://github.com/$uname?tab=contributions&from=$from&to=$to' | grep 'class="title"'`; while ($res =~ /href="([^"?]+)/g) { my (undef, $user, $repo) = split m{/} => $1; $projects{"$user/$repo"}++; } } } say "$projects{$_}: $_" for sort keys %projects;
Yes, an HTML scraper is ugly, but it did the trick for my needs.
theory Feb 06 '14 at 12:45 a.m. 2014-02-06 00:45
source share