From 321658fe4dc21476f240e2405daf8fcec22447b9 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 2 Sep 2020 16:14:32 -0700
Subject: LaTeX reader: Support siunitx `\ang`.

See #6658.
---
 src/Text/Pandoc/Readers/LaTeX.hs         |  1 +
 src/Text/Pandoc/Readers/LaTeX/SIunitx.hs | 12 ++++++++++++
 2 files changed, 13 insertions(+)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 2d456c7d9..772f7a498 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -881,6 +881,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList
   , ("SI", doSI tok)
   , ("SIrange", doSIrange tok)
   , ("num", doSInum)
+  , ("ang", doSIang)
   -- hyphenat
   , ("bshyp", lit "\\\173")
   , ("fshyp", lit "/\173")
diff --git a/src/Text/Pandoc/Readers/LaTeX/SIunitx.hs b/src/Text/Pandoc/Readers/LaTeX/SIunitx.hs
index f2b88f88b..cb60efba4 100644
--- a/src/Text/Pandoc/Readers/LaTeX/SIunitx.hs
+++ b/src/Text/Pandoc/Readers/LaTeX/SIunitx.hs
@@ -4,6 +4,7 @@ module Text.Pandoc.Readers.LaTeX.SIunitx
   , doSI
   , doSIrange
   , doSInum
+  , doSIang
   )
 where
 import Text.Pandoc.Builder
@@ -65,6 +66,17 @@ parseNumPart =
                <$> (char 'e' *> parseDecimalNum)
   parseSpace = mempty <$ skipMany1 (char ' ')
 
+doSIang :: PandocMonad m => LP m Inlines
+doSIang = do
+  skipopts
+  ps <- T.splitOn ";" . untokenize <$> braced
+  case ps ++ repeat "" of
+    (d:m:s:_) -> return $
+      (if T.null d then mempty else (str d <> str "\xb0")) <>
+      (if T.null m then mempty else (str m <> str "\x2032")) <>
+      (if T.null s then mempty else (str s <> str "\x2033"))
+    _ -> return mempty
+
 -- converts e.g. \SIrange{100}{200}{\ms} to "100 ms--200 ms"
 doSIrange :: PandocMonad m => LP m Inlines -> LP m Inlines
 doSIrange tok = do
-- 
cgit v1.2.3