diff options
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index dc1adb42b..9a293d2ab 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -579,7 +579,8 @@ makeSections numbering mbBaseLevel bs = rest' <- go rest let kvs' = -- don't touch number if already present case lookup "number" kvs of - Nothing | numbering -> + Nothing | numbering + , not ("unnumbered" `elem` classes) -> ("number", T.intercalate "." (map tshow newnum)) : kvs _ -> kvs let divattr = (ident, "section":classes, kvs') |