Fetch from github

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))))