derekcollison

#!/usr/bin/tclsh8.5
#
# Usage: unmerged branch1 branch2

proc getlog branch {
    lrange [split [exec git log $branch --oneline] "\n"] 0 100
}

proc diff {title c1 c2} {
    puts "\n$title"