diff options
| -rw-r--r-- | web/view/markdown.scm | 12 |
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) |