view lib/karma @ 1909:b9c4e79bfebb

<fizzie> printf \'%s\\n\' \'#!/bin/sh\' \'exec perl -C7 -pe \'\\\'\'chomp; $_ = join(" ", map { ord } split //, $_);\'\\\' > bin/ord
author HackBot
date Wed, 30 Jan 2013 14:11:32 +0000
parents e037173e0012
children ad5c5d1b7d04
line wrap: on
line source

#!/bin/sh
count () {
    hg log --template '{desc}\n' |
    egrep '<[^]]*> karma\'$1 |
    fgrep -vix "<$2> karma$1 $2" |
    cut -d' ' -f3 |
    fgrep -cix "$2"
}
plus=$(count + "$1")
minus=$(count - "$1")
echo $(($plus-$minus))