diff options
| author | Arun Isaac | 2022-03-18 20:40:16 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-03-18 20:40:16 +0530 |
| commit | fd98ba35dcc576b0c07887f879dd92714e8341e3 (patch) | |
| tree | 65929e55a02fd03131d8989606afa873eb490517 | |
| parent | 673fd702ec144eea671a68940d97e0d6543710ec (diff) | |
| download | tissue-fd98ba35dcc576b0c07887f879dd92714e8341e3.tar.gz tissue-fd98ba35dcc576b0c07887f879dd92714e8341e3.tar.lz tissue-fd98ba35dcc576b0c07887f879dd92714e8341e3.zip | |
issue: Build list of authors from list of issues.
For some reason, `git shortlog' outputs nothing inside a Guix
derivation.
* tissue/issue.scm (file-details): Build list of authors from list of
issues instead of relying on `git shortlog'.
| -rw-r--r-- | tissue/issue.scm | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/tissue/issue.scm b/tissue/issue.scm index a86484d..b9b6c32 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -140,14 +140,9 @@ return #f." "Return a list of all authors who have committed to this git repository." (delete-duplicates - (map (cut resolve-alias <> (%aliases)) - (call-with-input-pipe - (lambda (port) - (port-transduce (tmap (lambda (line) - (match (string-split line #\tab) - ((_ author) author)))) - rcons get-line port)) - "git" "shortlog" "--summary")))))) + (append-map (lambda (issue) + (map post-author (issue-posts issue))) + (issues)))))) (define (resolve-alias name aliases) "Resolve NAME against ALIASES, a list of aliases. ALIASES should be |