diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-07-23 11:11:28 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-07-23 11:11:28 -0700 |
| commit | a0e3172a0bb9f0cb69ede824086ea4655a71eff2 (patch) | |
| tree | 69c21c87da0f62dac2e63952e0ab634982cf541d /src | |
| parent | 98c922ad43b599ad38da8782de64bfb2d564fbac (diff) | |
| download | pandoc-a0e3172a0bb9f0cb69ede824086ea4655a71eff2.tar.gz | |
Further improvements to ams theorem support, and a test.
See #1608.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index ebdee1b1a..e571da5ad 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -871,6 +871,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList , ("_", lit "_") , ("{", lit "{") , ("}", lit "}") + , ("qed", lit "\a0\x25FB") -- old TeX commands , ("em", extractSpaces emph <$> inlines) , ("it", extractSpaces emph <$> inlines) @@ -1915,7 +1916,7 @@ addQed bs = -> B.Many (s Seq.|> Para (ils ++ B.toList qedSign)) _ -> bs <> B.para qedSign where - qedSign = B.spanWith ("",["qed"],[]) "\x220E" + qedSign = B.str "\xa0\x25FB" environment :: PandocMonad m => LP m Blocks environment = try $ do @@ -1968,7 +1969,7 @@ theoremEnvironment name = do DefinitionStyle -> B.strong RemarkStyle -> B.emph let title = titleEmph (B.text (theoremName tspec) <> number) - <> optTitle <> space + <> optTitle <> "." <> space return $ divWith (fromMaybe "" mblabel, [name], []) $ addTitle title $ case theoremStyle tspec of PlainStyle -> walk italicize bs |