Fix --toc-depth regression in 2.8.

Closes #5967.
2026-08-25 01:36:45 +00:00 · 2019-12-07 15:15:55 -08:00
parent 0b54d6282b
commit 8d00331115
1 changed files with 6 additions and 6 deletions
@@ -573,13 +573,13 @@ makeSections numbering mbBaseLevel bs =
    sectionContents' <- go sectionContents
    S.modify $ \(_, ln) -> (mbLevel, ln)
    rest' <- go rest
-    let divattr = (ident, ["section"], [])
-    let attr = ("",classes,
-                   -- don't touch number if already present
-                   case lookup "number" kvs of
-                     Nothing | numbering ->
+    let kvs' = -- don't touch number if already present
+               case lookup "number" kvs of
+                  Nothing | numbering ->
                        ("number", T.intercalate "." (map tshow newnum)) : kvs
-                     _ -> kvs)
+                  _ -> kvs
+    let divattr = (ident, "section":classes, kvs')
+    let attr = ("",classes,kvs')
    return $
      Div divattr (Header level' attr title' : sectionContents') : rest'
  go (Div (dident,dclasses,dkvs)