my $date;
-for (qx{git log --pretty=format:%ct --shortstat --since='$height days ago'}) {
+for (qx{git log --find-renames --shortstat --pretty=format:%ct --since='$height days ago'}) {
next if m{^\s*$};
if (m{^(\d{10})\n$}) {
$date = int ($1 / 86400);
"#" x ($mod && 1 + $mod * $scale),
"+" x ($add && 1 + $add * $scale),
"-" x ($del && 1 + $del * $scale);
- if (length $line > $width) {
+ if (length $line > $width + 30) {
$line = sprintf "## %d ##\e[32m++ %d ++\e[31m-- %d --\e[0m\n",
$mod, $add, $del;
$line = "$greg \e[33m" . "#"x($width + 16 - length $line) . $line;