aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs1
-rw-r--r--src/Text/Pandoc/Readers/LaTeX/SIunitx.hs12
2 files changed, 13 insertions, 0 deletions
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