factor/extra/contributors/contributors.factor

! Copyright (C) 2007, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: io.files io.launcher io.directories io.pathnames
io.encodings.ascii io prettyprint hashtables kernel sequences
assocs system sorting math.parser sets ;
IN: contributors

: changelog ( -- authors )
    image parent-directory [
        "git log --no-merges --pretty=format:%an" ascii <process-reader> stream-lines
    ] with-directory ;

: patch-counts ( authors -- assoc )
    dup members
    [ dup rot [ = ] with count ] with
    { } map>assoc ;

: contributors ( -- )
    changelog patch-counts
    sort-values <reversed>
    simple-table. ;

MAIN: contributors