Mon Mar 08 13:43:21+0100 2021
fac1f0c
Add language tag to file content
gitile/code.scm
| 27 | 27 | (language (match extension | |
| 28 | 28 | ("scm" "scheme") | |
| 29 | 29 | (_ "unknown")))) | |
| 30 | - | `(table (@ (class "file-content")) | |
| 30 | + | `(table (@ (class ,(string-append "file-content language-" language))) | |
| 31 | 31 | ,@(split-tr (highlights->sxml (highlight-code content language)))))) | |
| 32 | 32 | ||
| 33 | 33 | (define (display-formatted-code content language) |