diff options
Diffstat (limited to 'tissue/issue.scm')
| -rw-r--r-- | tissue/issue.scm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/tissue/issue.scm b/tissue/issue.scm index 5b44cd3..7b43caa 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -43,6 +43,10 @@ issue-tasks issue-completed-tasks issue-posts + post + post-author + post-date + post-relative-date issues)) (define-record-type <issue> @@ -65,6 +69,13 @@ (completed-tasks issue-completed-tasks) (posts issue-posts)) +(define-record-type <post> + (post author date relative-date) + post? + (author post-author) + (date post-date) + (relative-date post-relative-date)) + (define (hashtable-append! hashtable key new-values) "Append NEW-VALUES to the list of values KEY is associated to in HASHTABLE. Deduplicate the resulting list if necessary. If KEY is not @@ -203,8 +214,9 @@ return #f." (hashtable-set! result 'last-updated-relative-date relative-date)) (hashtable-set! result 'creator author) (hashtable-set! result 'created-date (unix-time->date date)) - (hashtable-set! result 'created-relative-date relative-date)))))) - rcount get-line port))) + (hashtable-set! result 'created-relative-date relative-date) + (post author date relative-date)))))) + rcons get-line port))) "git" "log" "--follow" (string-append "--format=format:(" "(author . \"%an\")" |