aboutsummaryrefslogtreecommitdiff
path: root/web/view
diff options
context:
space:
mode:
Diffstat (limited to 'web/view')
-rw-r--r--web/view/markdown.scm16
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))))