RST reader: use title, not admonition-title, for admonition title.

This puts RST reader into alignment with docbook reader.
This commit is contained in:
John MacFarlane 2019-08-23 09:23:15 -07:00
parent 1c71bd1ff5
commit 8e01ccb41d

View file

@ -695,7 +695,7 @@ directive' = do
do bod <- parseFromString' parseBlocks $ top ++ "\n\n" ++ body'
let lab = case label of
"admonition" -> mempty
(l:ls) -> B.divWith ("",["admonition-title"],[])
(l:ls) -> B.divWith ("",["title"],[])
(B.para (B.str (toUpper l : ls)))
[] -> mempty
return $ B.divWith (name,label:classes,keyvals) (lab <> bod)