diff options
| -rw-r--r-- | web/view/markdown.scm | 12 |
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) + ) + ) |