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

25
src/util-git.scm
View file

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