aboutsummaryrefslogtreecommitdiff
path: root/web/view/markdown.scm
diff options
context:
space:
mode:
Diffstat (limited to 'web/view/markdown.scm')
-rw-r--r--web/view/markdown.scm12
1 files changed, 8 insertions, 4 deletions
diff --git a/web/view/markdown.scm b/web/view/markdown.scm
index 0a408b3..3236cce 100644
--- a/web/view/markdown.scm
+++ b/web/view/markdown.scm
@@ -27,20 +27,24 @@
(receive (response-status response-body)
(http-request url) response-body))
-(define (form-github-raw-url project repo page)
+(define* (form-github-raw-url project repo page #:optional (branch "master"))
(string-append "https://raw.githubusercontent.com/"
project
"/"
repo
- "/master/"
+ "/"
+ branch
+ "/"
(string-join page "/")))
-(define (form-github-edit-url project repo page)
+(define* (form-github-edit-url project repo page #:optional (branch "master"))
(string-append "https://github.com/"
project
"/"
repo
- "/edit/master/"
+ "/edit/"
+ branch
+ "/"
(string-join page "/")))
(define (markdown-github->sxml path)