diff options
| -rw-r--r-- | web/view/markdown.scm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/web/view/markdown.scm b/web/view/markdown.scm index a147231..beabb3d 100644 --- a/web/view/markdown.scm +++ b/web/view/markdown.scm @@ -14,7 +14,8 @@ #:use-module (commonmark) #:export (markdown-file->sxml - markdown-github->sxml) + markdown-github->sxml + fetch-raw-file) ) @@ -27,17 +28,18 @@ ;; --- fetch github style URLs ;; ;; https://github.com/genenetwork/gn-docs/master/general/brand/aging/home.md +;; https://raw.githubusercontent.com/genenetwork/gn-docs/master/general/brand/aging/home.md ;; https://github.com/genenetwork/gn-docs/edit/master/general/brand/aging/home.md (define (fetch-raw-file url) - (bytevector->string (receive (response-status response-body) - (http-request "https://github.com/genenetwork/gn-docs/master/general/brand/aging/home.md") - response-body) "UTF-8")) + (receive (response-status response-body) + (http-request "https://raw.githubusercontent.com/genenetwork/gn-docs/master/general/brand/aging/home.md") + response-body) + ) (define (markdown-github->sxml fn) - "Parse a github file" + "Parse a github markdown file" (commonmark->sxml - (call-with-input-file (pk fn) - get-string-all))) + (pk (fetch-raw-file fn)))) |