From 911b63dfc371541700ea16708dc66725b02393f1 Mon Sep 17 00:00:00 2001
From: schrieveslaach <schrieveslaach@online.de>
Date: Thu, 13 Jul 2017 20:56:59 +0200
Subject: Add LaTeX xspace support (#3797)

---
 src/Text/Pandoc/Readers/LaTeX.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/Text/Pandoc/Readers')

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 9ec84b3f6..f5e387429 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -607,6 +607,16 @@ mkImage options src = do
               return $ imageWith attr (addExtension src defaultExt) "" alt
         _  -> return $ imageWith attr src "" alt
 
+doxspace :: PandocMonad m => LP m Inlines
+doxspace = do
+  (space <$ lookAhead (satisfyTok startsWithLetter)) <|> return mempty
+  where startsWithLetter (Tok _ Word t) =
+          case T.uncons t of
+               Just (c, _) | isLetter c -> True
+               _ -> False
+        startsWithLetter _ = False
+
+
 -- converts e.g. \SI{1}[\$]{} to "$ 1" or \SI{1}{\euro} to "1 €"
 dosiunitx :: PandocMonad m => LP m Inlines
 dosiunitx = do
@@ -1336,6 +1346,8 @@ inlineCommands = M.fromList $
   -- fontawesome
   , ("faCheck", lit "\10003")
   , ("faClose", lit "\10007")
+  -- xspace
+  , ("xspace", doxspace)
   ]
 
 ttfamily :: PandocMonad m => LP m Inlines
-- 
cgit v1.2.3