@@ -227,6 +227,7 @@ siUnitMap = M.fromList
227 , ("pF", str "pF")
227 , ("pF", str "pF")
228 , ("K", str "K")
228 , ("K", str "K")
229 , ("dB", str "dB")
229 , ("dB", str "dB")
230+ , ("ampere", str "A")
230 , ("angstrom", str "Å")
231 , ("angstrom", str "Å")
231 , ("arcmin", str "′")
232 , ("arcmin", str "′")
232 , ("arcminute", str "′")
233 , ("arcminute", str "′")
@@ -238,9 +239,11 @@ siUnitMap = M.fromList
238 , ("barn", str "b")
239 , ("barn", str "b")
239 , ("becquerel", str "Bq")
240 , ("becquerel", str "Bq")
240 , ("bel", str "B")
241 , ("bel", str "B")
242+ , ("bohr", emph (str "a") <> subscript (str "0"))
241 , ("candela", str "cd")
243 , ("candela", str "cd")
242 , ("celsius", str "°C")
244 , ("celsius", str "°C")
243 , ("centi", str "c")
245 , ("centi", str "c")
246+ , ("clight", emph (str "c") <> subscript (str "0"))
244 , ("coulomb", str "C")
247 , ("coulomb", str "C")
245 , ("dalton", str "Da")
248 , ("dalton", str "Da")
246 , ("day", str "d")
249 , ("day", str "d")
@@ -250,12 +253,16 @@ siUnitMap = M.fromList
250 , ("degreeCelsius",str "°C")
253 , ("degreeCelsius",str "°C")
251 , ("degree", str "°")
254 , ("degree", str "°")
252 , ("deka", str "d")
255 , ("deka", str "d")
256+ , ("electronmass", emph (str "m") <> subscript (str "e"))
253 , ("electronvolt", str "eV")
257 , ("electronvolt", str "eV")
258+ , ("elementarycharge", emph (str "e"))
254 , ("exa", str "E")
259 , ("exa", str "E")
255 , ("farad", str "F")
260 , ("farad", str "F")
256 , ("femto", str "f")
261 , ("femto", str "f")
257 , ("giga", str "G")
262 , ("giga", str "G")
258 , ("gram", str "g")
263 , ("gram", str "g")
264+ , ("gray", str "Gy")
265+ , ("hartree", emph (str "E") <> subscript (str "h"))
259 , ("hectare", str "ha")
266 , ("hectare", str "ha")
260 , ("hecto", str "h")
267 , ("hecto", str "h")
261 , ("henry", str "H")
268 , ("henry", str "H")
@@ -290,6 +297,7 @@ siUnitMap = M.fromList
290 , ("per", str "/")
297 , ("per", str "/")
291 , ("peta", str "P")
298 , ("peta", str "P")
292 , ("pico", str "p")
299 , ("pico", str "p")
300+ , ("planckbar", emph (str "\x210f"))
293 , ("radian", str "rad")
301 , ("radian", str "rad")
294 , ("second", str "s")
302 , ("second", str "s")
295 , ("siemens", str "S")
303 , ("siemens", str "S")