From 50898532c81654d834b1070b49d05c46e378a455 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 17 Mar 2022 16:55:00 +0530 Subject: issue: Refactor out repeated use of assq-ref. * tissue/issue.scm (issues): Refactor out repeated use of assq-ref. --- tissue/issue.scm | 23 ++++++++++------------- 1 file changed, 10 insertions(+), 13 deletions(-) diff --git a/tissue/issue.scm b/tissue/issue.scm index fd6b3bf..5b44cd3 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -193,20 +193,17 @@ return #f." (compose (tenumerate) (tmap (match-lambda ((index . line) - (let ((alist (call-with-input-string line read))) + (let* ((alist (call-with-input-string line read)) + (author (assq-ref alist 'author)) + (date (assq-ref alist 'author-date)) + (relative-date (assq-ref alist 'author-relative-date))) (when (zero? index) - (hashtable-set! result 'last-updater - (assq-ref alist 'author)) - (hashtable-set! result 'last-updated-date - (unix-time->date (assq-ref alist 'author-date))) - (hashtable-set! result 'last-updated-relative-date - (assq-ref alist 'author-relative-date))) - (hashtable-set! result 'creator - (assq-ref alist 'author)) - (hashtable-set! result 'created-date - (unix-time->date (assq-ref alist 'author-date))) - (hashtable-set! result 'created-relative-date - (assq-ref alist 'author-relative-date))))))) + (hashtable-set! result 'last-updater author) + (hashtable-set! result 'last-updated-date (unix-time->date date)) + (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))) "git" "log" "--follow" (string-append "--format=format:(" -- cgit v1.2.3