24 lines
668 B
Factor
24 lines
668 B
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
|