@@ -118,11 +118,14 @@ doSIang :: PandocMonad m => LP m Inlines
118118doSIang = do
119119 skipopts
120120 ps <- T.splitOn ";" . untokenize <$> braced
121+ let dropPlus t = case T.uncons t of
122+ Just ('+',t') -> t'
123+ _ -> t
121124 case ps ++ repeat "" of
122125 (d:m:s:_) -> return $
123− (if T.null d then mempty else str d <> str "\xb0") <>
124− (if T.null m then mempty else str m <> str "\x2032") <>
125− (if T.null s then mempty else str s <> str "\x2033")
126+ (if T.null d then mempty else str (dropPlus d) <> str "\xb0") <>
127+ (if T.null m then mempty else str (dropPlus m) <> str "\x2032") <>
128+ (if T.null s then mempty else str (dropPlus s) <> str "\x2033")
126129 _ -> return mempty
127130
128131-- converts e.g. \SIrange{100}{200}{\ms} to "100 ms--200 ms"