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: Support some missing siunitx commands.

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

(limited to 'src')

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