From c5df803f4fc46db9813076f4e27c0dac697581a0 Mon Sep 17 00:00:00 2001
From: Alexander_Kabui
Date: Fri, 26 Jul 2024 00:43:34 +0300
Subject: Add git util procedures

---
 web/view/markdown.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'web')

diff --git a/web/view/markdown.scm b/web/view/markdown.scm
index fac9a98..4c5f658 100644
--- a/web/view/markdown.scm
+++ b/web/view/markdown.scm
@@ -70,3 +70,15 @@
 					     ("hash" . "commit hash here"))
 					   ) (throw 'file-error  (string-append "the file path " abs_path " does not exists")))
 	    ))
+
+
+
+(define (git-invoke repo-path . args)
+  (apply system* "git" "-C" repo-path args))
+
+
+(define (is-repo? repo-path)
+  (let ((data (git-invoke repo-path  "rev-parse")) )
+    (zero? data)
+    )
+  )
-- 
cgit v1.2.3