Add git util procedures

1 files changed, 12 insertions, 0 deletions

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)
+    )
+  )