Wed Sep 04 18:00:51+0300 2024
7795730
Remove unused code
gitile/pages.scm
| 29 | 29 | #:use-module (ice-9 match) | |
| 30 | 30 | #:use-module (ice-9 string-fun) | |
| 31 | 31 | #:use-module (rnrs bytevectors) | |
| 32 | - | #:use-module (srfi srfi-1); fold | |
| 33 | - | #:use-module (srfi srfi-19); date/time | |
| 32 | + | #:use-module (srfi srfi-1) | |
| 33 | + | #:use-module (srfi srfi-19) | |
| 34 | 34 | #:use-module (system foreign) | |
| 35 | 35 | #:use-module (web uri) | |
| 36 | - | #:export (not-yet-page | |
| 37 | - | project-file-raw | |
| 36 | + | #:export (project-file-raw | |
| 38 | 37 | project-files | |
| 39 | 38 | project-index | |
| 40 | 39 | project-commits | |
| 41 | 40 | project-commit | |
| 42 | 41 | project-tags)) | |
| 43 | 42 | ||
| 44 | - | (define not-yet-page | |
| 45 | - | `((p "Not yet available, sorry :/"))) | |
| 46 | - | ||
| 47 | 43 | (define* (project-file-raw repo path #:key (ref "-")) | |
| 48 | 44 | (let* ((ref (if (equal? ref "-") #f ref)) | |
| 49 | 45 | (path (canonalize-path path))) |