brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Pass on blame properly to listing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-15 13:54:04 +02:00
parent 6564ff927f
commit 0e230ec7a2
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/members-print.scm
View file

@ -175,7 +175,6 @@
(file-path (brmember-file-path mr)) (file-path (brmember-file-path mr))
(blame (git-blame (*members-directory*) file-name)) (blame (git-blame (*members-directory*) file-name))
) )
(print blame)
(print file-name ":") (print file-name ":")
(print-source-listing (print-source-listing
blame blame

4
src/util-git.scm
View file

@ -119,9 +119,9 @@
(loop (cdr lines) (loop (cdr lines)
(ldict-set blame 'commit (car ll)) (ldict-set blame 'commit (car ll))
blames))) blames)))
((eq? (string-ref line 0) #\space) ((memq (string-ref line 0) '(#\space #\tab))
;; Actual line with data ;; Actual line with data
(let ((rline (substring line 8))) (let ((rline (substring line 1)))
(loop (cdr lines) (loop (cdr lines)
(make-ldict) (make-ldict)
(cons (ldict-set blame 'line rline) (cons (ldict-set blame 'line rline)