From a0e3172a0bb9f0cb69ede824086ea4655a71eff2 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 23 Jul 2020 11:11:28 -0700
Subject: Further improvements to ams theorem support, and a test.

See #1608.
---
 src/Text/Pandoc/Readers/LaTeX.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3