From 83f0acab47e3de1f3b712e08796ebd8fa2500476 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 2 Sep 2020 16:49:10 -0700
Subject: [PATCH] Support some missing siunitx commands.
---
src/Text/Pandoc/Readers/LaTeX/SIunitx.hs | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/src/Text/Pandoc/Readers/LaTeX/SIunitx.hs b/src/Text/Pandoc/Readers/LaTeX/SIunitx.hs
index cb60efba4..b87cc3ac2 100644
--- a/src/Text/Pandoc/Readers/LaTeX/SIunitx.hs
+++ b/src/Text/Pandoc/Readers/LaTeX/SIunitx.hs
@@ -227,6 +227,7 @@ siUnitMap = M.fromList
, ("pF", str "pF")
, ("K", str "K")
, ("dB", str "dB")
+ , ("ampere", str "A")
, ("angstrom", str "Å")
, ("arcmin", str "′")
, ("arcminute", str "′")
@@ -238,9 +239,11 @@ siUnitMap = M.fromList
, ("barn", str "b")
, ("becquerel", str "Bq")
, ("bel", str "B")
+ , ("bohr", emph (str "a") <> subscript (str "0"))
, ("candela", str "cd")
, ("celsius", str "°C")
, ("centi", str "c")
+ , ("clight", emph (str "c") <> subscript (str "0"))
, ("coulomb", str "C")
, ("dalton", str "Da")
, ("day", str "d")
@@ -250,12 +253,16 @@ siUnitMap = M.fromList
, ("degreeCelsius",str "°C")
, ("degree", str "°")
, ("deka", str "d")
+ , ("electronmass", emph (str "m") <> subscript (str "e"))
, ("electronvolt", str "eV")
+ , ("elementarycharge", emph (str "e"))
, ("exa", str "E")
, ("farad", str "F")
, ("femto", str "f")
, ("giga", str "G")
, ("gram", str "g")
+ , ("gray", str "Gy")
+ , ("hartree", emph (str "E") <> subscript (str "h"))
, ("hectare", str "ha")
, ("hecto", str "h")
, ("henry", str "H")
@@ -290,6 +297,7 @@ siUnitMap = M.fromList
, ("per", str "/")
, ("peta", str "P")
, ("pico", str "p")
+ , ("planckbar", emph (str "\x210f"))
, ("radian", str "rad")
, ("second", str "s")
, ("siemens", str "S")