From afeaa4f28b292f5636723e9008fab74d4abda7a3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sun, 16 Apr 2023 21:15:37 +0200
Subject: [PATCH] Prepare for porcelain status parsing.

---
 src/util-git.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/util-git.scm b/src/util-git.scm
index aa43822..dfcf35c 100644
--- a/src/util-git.scm
+++ b/src/util-git.scm
@@ -71,4 +71,13 @@
 	(lambda 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))))
+
  )