Highlight XML files
gitile/code.scm
| 23 | 23 | #:use-module (syntax-highlight css) | |
| 24 | 24 | #:use-module (syntax-highlight gitignore) | |
| 25 | 25 | #:use-module (syntax-highlight scheme) | |
| 26 | + | #:use-module (syntax-highlight xml) | |
| 26 | 27 | #:use-module (gitile highlight shell) | |
| 27 | 28 | #:export (display-code | |
| 28 | 29 | display-formatted-code)) | |
… | |||
| 38 | 39 | ("ac" "ac") | |
| 39 | 40 | ("css" "css") | |
| 40 | 41 | ((or "c" "h") "c") | |
| 42 | + | ("xml" "xml") | |
| 41 | 43 | (_ (match (basename path) | |
| 42 | 44 | ("bootstrap" "shell") | |
| 43 | 45 | (_ "unknown")))))) | |
… | |||
| 56 | 58 | ("ac" (highlight lex-autoconf content)) | |
| 57 | 59 | ("css" (highlight lex-css content)) | |
| 58 | 60 | ("c" (highlight lex-c content)) | |
| 61 | + | ("xml" (highlight lex-xml content)) | |
| 59 | 62 | (_ (list content)))) | |
| 60 | 63 | ||
| 61 | 64 | (define (split-lines content) | |