diff options
Diffstat (limited to 'web/view/markdown.scm')
| -rw-r--r-- | web/view/markdown.scm | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/web/view/markdown.scm b/web/view/markdown.scm index d561832..59eb8b8 100644 --- a/web/view/markdown.scm +++ b/web/view/markdown.scm @@ -13,7 +13,6 @@ #:use-module (web client) #:use-module (web uri) #:use-module (web request) - #:use-module (web sxml) #:use-module (commonmark) @@ -24,13 +23,11 @@ commit-file is-repo?)) - (define (markdown-file->sxml fn) "Parse a local file" (commonmark->sxml (call-with-input-file fn get-string-all))) -;; --- fetch github style URLs (define (fetch-raw-file url) (receive (response-status response-body) @@ -59,8 +56,6 @@ (br) (br)))) - - (define (fetch-file repo query_path) (let* ( (abs_path (string-append repo "/" query_path))) (if (file-exists? abs_path) (let* ((full_path (canonicalize-path abs_path)) @@ -71,7 +66,6 @@ ("hash" . ,commit-sha)) ) (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)) @@ -79,7 +73,6 @@ (let ((data (git-invoke repo-path "rev-parse"))) (zero? data))) - (define (get-latest-commit-sha1 repo-path) (let* ((output-port (open-input-pipe (string-append "git -C " repo-path " log -n 1 --pretty=format:%H HEAD"))) (commit-sha (read-line output-port))) @@ -87,7 +80,6 @@ commit-sha)) (define* (commit-file repo file-path content commit-message username email #:optional (prev-commit "")) - (if (string=? prev-commit (get-latest-commit-sha1 repo)) #t (throw 'system-error (format #f "Commits do no match.Please pull in latest changes for current * ~a * and prev * ~a * " |