diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-11-02 16:38:06 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-11-02 16:38:06 -0700 |
| commit | 5dfe131ee07065dc7b68912d9a068508e29e18a4 (patch) | |
| tree | 54cefde18f1dfe9e7232847624981bd54f9099c0 /src/Text | |
| parent | 856587ff63b1e89c71b73a367f5ba1730050e6dd (diff) | |
Support `lineAnchors` (or `line-anchors`) in code blocks, for HTML.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Highlighting.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Highlighting.hs b/src/Text/Pandoc/Highlighting.hs index cd8c5fd4b..9c90b229e 100644 --- a/src/Text/Pandoc/Highlighting.hs +++ b/src/Text/Pandoc/Highlighting.hs @@ -85,6 +85,8 @@ highlight syntaxmap formatter (ident, classes, keyvals) rawCode = let firstNum = fromMaybe 1 (safeRead (fromMaybe "1" $ lookup "startFrom" keyvals)) fmtOpts = defaultFormatOpts{ startNumber = firstNum, + lineAnchors = any (`elem` + ["line-anchors", "lineAnchors"]) classes, numberLines = any (`elem` ["number","numberLines", "number-lines"]) classes, lineIdPrefix = if null ident |