Sun Sep 27 23:03:10+0200 2020
26dc15e
Add open raw button
gitile/pages.scm
| 60 | 60 | `(p "Empty repository") | |
| 61 | 61 | (if (null? files) | |
| 62 | 62 | `(,path-box | |
| 63 | - | (p (@ (class "content")) | |
| 64 | - | ,(basename path)) | |
| 63 | + | (div (@ (class "content")) | |
| 64 | + | (p ,(basename path)) | |
| 65 | + | (p (@ (class "button-row")) | |
| 66 | + | (a (@ (href "/" ,repository-name "/raw/" ,(or ref "-") | |
| 67 | + | "/" ,path)) | |
| 68 | + | (img (@ (src "/images/file-type-3.svg")))))) | |
| 65 | 69 | (pre ,(utf8->string (get-file-content repo path #:ref ref)))) | |
| 66 | 70 | `(,(last-commit-infobox repository-name repo ref) | |
| 67 | 71 | ,path-box |