aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-11-02 16:38:06 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2017-11-02 16:38:06 -0700
commit5dfe131ee07065dc7b68912d9a068508e29e18a4 (patch)
tree54cefde18f1dfe9e7232847624981bd54f9099c0 /src
parent856587ff63b1e89c71b73a367f5ba1730050e6dd (diff)
downloadpandoc-5dfe131ee07065dc7b68912d9a068508e29e18a4.tar.gz
Support `lineAnchors` (or `line-anchors`) in code blocks, for HTML.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Highlighting.hs2
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