From fcbd627e9a4fe936485bcb080669d72b5b60324d Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 9 Jul 2022 15:38:07 +0530
Subject: git: Use commit author date, not committer date.

* tissue/git.scm (commit-author-date): New public function.
(commit-date): Delete function.
* tissue/issue.scm (read-gemtext-issue): Use commit-author-date
instead of commit-date.
---
 tissue/git.scm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 'tissue/git.scm')

diff --git a/tissue/git.scm b/tissue/git.scm
index 024ebb6..1f6c0ef 100644
--- a/tissue/git.scm
+++ b/tissue/git.scm
@@ -41,7 +41,7 @@
             git-top-level
             %current-git-repository
             current-git-repository
-            commit-date
+            commit-author-date
             git-tracked-files
             call-with-file-in-git
             file-modification-table
@@ -99,12 +99,14 @@ directory."
    (commit-lookup repository
                   (reference-name->oid repository "HEAD"))))
 
-(define (commit-date commit)
-  (time-monotonic->date
-   (make-time time-monotonic
-              0
-              (commit-time commit))
-   (* 60 (commit-time-offset commit))))
+(define (commit-author-date commit)
+  "Return the author date of COMMIT as an SRFI-19 date object."
+  (let ((time (signature-when (commit-author commit))))
+    (time-monotonic->date
+     (make-time time-monotonic
+                0
+                (time-time time))
+     (* 60 (time-offset time)))))
 
 (define* (git-tracked-files #:optional (repository (current-git-repository)))
   "Return a list of all files and directories tracked in REPOSITORY. The
-- 
cgit v1.2.3