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) |