diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-09-04 10:32:04 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-09-04 11:29:51 +0200 |
| commit | fe409700d85a8de0fadb9cdd052434a4e07b4267 (patch) | |
| tree | a7130c348ad31bf77177edc5f880349a106ad28f /doc/build.scm | |
| parent | 720fd7320f944692a770d0a689313a563a429ca1 (diff) | |
| download | guix-fe409700d85a8de0fadb9cdd052434a4e07b4267.tar guix-fe409700d85a8de0fadb9cdd052434a4e07b4267.tar.gz | |
doc: Syntax highlighting now handles @var within @lisp.
* doc/build.scm (syntax-highlighted-html)[build](concatenate-pieces):
Handle @var{name}.
Diffstat (limited to 'doc/build.scm')
| -rw-r--r-- | doc/build.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/doc/build.scm b/doc/build.scm index 7256fb9bb5..97f4ab6b83 100644 --- a/doc/build.scm +++ b/doc/build.scm @@ -310,6 +310,8 @@ its <pre class=\"lisp\"> blocks (as produced by 'makeinfo --html')." (loop rest (cons (entity->string entity) strings))) ((('span _ lst ...) . rest) ;for <span class="roman"> (loop (append lst rest) strings)) + ((('var name) . rest) ;for @var{name} within @lisp + (loop rest (cons name strings))) ;XXX: losing formatting (something (pk 'unsupported-code-snippet something) (primitive-exit 1))))) |