Mon Mar 08 00:24:41+0100 2021
595ed5b
Fix relative link resolution
gitile/pages.scm
| 56 | 56 | ||
| 57 | 57 | (define (file-content repo path ref repository-name) | |
| 58 | 58 | (define (ensure-relative-link link) | |
| 59 | - | "If link is relative, ensure it resolves relative to `path`" | |
| 59 | + | "If link is relative, ensure it resolves relative to repo's base dir, in | |
| 60 | + | current ref." | |
| 60 | 61 | (if (string->uri link) | |
| 61 | 62 | link | |
| 62 | - | (string-append "/" repository-name "/tree/" (or ref "-") "/" (dirname path) | |
| 63 | - | "/" link))) | |
| 63 | + | (string-append "/" repository-name "/tree/" (or ref "-") "/" link))) | |
| 64 | 64 | ||
| 65 | 65 | (define check-links | |
| 66 | 66 | (match-lambda |