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

Support single-key headers in git blame.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-15 20:01:27 +02:00
parent c7da65ad0b
commit 837a532d5f
1 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/util-git.scm
View file

@ -114,6 +114,7 @@
blames blames
(cons blame blames))) (cons blame blames)))
(let ((line (car lines))) (let ((line (car lines)))
(print line)
(cond ((ldict-empty? blame) (cond ((ldict-empty? blame)
;; First row - commit ;; First row - commit
(let ((ll (string-split line))) (let ((ll (string-split line)))
@ -129,8 +130,9 @@
blames)))) blames))))
(else (else
;; Any header ;; Any header
(let* ((kv (parser-parse-line line)) (let ((kv (parser-parse-line line)))
(k (car kv)) (if (pair? kv)
(let* ((k (car kv))
(v (cdr kv)) (v (cdr kv))
(v1 (case k (v1 (case k
((committer-time) ((committer-time)
@ -138,6 +140,9 @@
(else v)))) (else v))))
(loop (cdr lines) (loop (cdr lines)
(ldict-set blame k v1) (ldict-set blame k v1)
blames)))))))) blames))
(loop (cdr lines)
blame
blames)))))))))
) )