From 0e230ec7a20eed9d078a6d0f72a366414e63ccba Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 15 May 2023 13:54:04 +0200 Subject: [PATCH] Pass on blame properly to listing. --- src/members-print.scm | 1 - src/util-git.scm | 4 ++-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/members-print.scm b/src/members-print.scm index 2885605..afe9eda 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -175,7 +175,6 @@ (file-path (brmember-file-path mr)) (blame (git-blame (*members-directory*) file-name)) ) - (print blame) (print file-name ":") (print-source-listing blame diff --git a/src/util-git.scm b/src/util-git.scm index 77fca60..0ff0ad2 100644 --- a/src/util-git.scm +++ b/src/util-git.scm @@ -119,9 +119,9 @@ (loop (cdr lines) (ldict-set blame 'commit (car ll)) blames))) - ((eq? (string-ref line 0) #\space) + ((memq (string-ref line 0) '(#\space #\tab)) ;; Actual line with data - (let ((rline (substring line 8))) + (let ((rline (substring line 1))) (loop (cdr lines) (make-ldict) (cons (ldict-set blame 'line rline)