blob: 5244c6fdf4ee059848b88361a830ecc5ef840e24 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
(define-module (highlight)
#:use-module (ice-9 match)
#:use-module (sxml match)
#:use-module (syntax-highlight)
#:use-module (syntax-highlight c)
#:use-module (syntax-highlight lisp)
#:use-module (syntax-highlight scheme)
#:use-module (syntax-highlight xml)
#:export (highlight-code
highlight-scheme))
(define (maybe-highlight-code lang source)
(let ((lexer (match lang
('scheme lex-scheme)
('lisp lex-lisp)
('xml lex-xml)
('c lex-c)
(_ #f))))
(if lexer
(highlights->sxml (highlight lexer source))
source)))
(define (highlight-code . tree)
(sxml-match tree
((code (@ (class ,class) . ,attrs) ,source)
(let ((lang (string->symbol
(string-drop class (string-length "language-")))))
`(code (@ ,@attrs)
,(maybe-highlight-code lang source))))
(,other other)))
(define (highlight-scheme code)
`(pre (code ,(highlights->sxml (highlight lex-scheme code)))))
|
