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

Prepare for porcelain status parsing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-16 21:15:37 +02:00
parent 324d330102
commit afeaa4f28b
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/util-git.scm
View file

@ -71,4 +71,13 @@
(lambda args (lambda args
(invoke-git repo args)))))) (invoke-git repo args))))))
;; Returns a dictionary of unknown, modified, deleted and added files
(define (git-status repo)
(let loop ((lines ((git repo) 'status '--porcelain))
(res (make-ldict)))
(if (null? lines)
res
(loop (cdr lines)
res))))
) )