aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--web/view/markdown.scm12
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)
+ )
+ )