summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2022-03-18 20:40:16 +0530
committerArun Isaac2022-03-18 20:40:16 +0530
commitfd98ba35dcc576b0c07887f879dd92714e8341e3 (patch)
tree65929e55a02fd03131d8989606afa873eb490517
parent673fd702ec144eea671a68940d97e0d6543710ec (diff)
downloadtissue-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.scm11
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