doc: Syntax highlighting now handles @var within @lisp.

* doc/build.scm (syntax-highlighted-html)[build](concatenate-pieces):
Handle @var{name}.
This commit is contained in:
Ludovic Courtès 2020-09-04 10:32:04 +02:00
parent 720fd7320f
commit fe409700d8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -310,6 +310,8 @@ (define (concatenate-snippets pieces)
(loop rest (cons (entity->string entity) strings))) (loop rest (cons (entity->string entity) strings)))
((('span _ lst ...) . rest) ;for <span class="roman"> ((('span _ lst ...) . rest) ;for <span class="roman">
(loop (append lst rest) strings)) (loop (append lst rest) strings))
((('var name) . rest) ;for @var{name} within @lisp
(loop rest (cons name strings))) ;XXX: losing formatting
(something (something
(pk 'unsupported-code-snippet something) (pk 'unsupported-code-snippet something)
(primitive-exit 1))))) (primitive-exit 1)))))