@@ -62,7 +62,9 @@ import Control.Monad.Reader
6262import qualified Data.Map as M
6363import Text.Pandoc.Compat.Except
6464import Text.Pandoc.Readers.Docx.OMath (readOMML)
65+import Text.Pandoc.Readers.Docx.Fonts (getUnicode, Font(..))
6566import Text.TeXMath (Exp)
67+import Data.Char (readLitChar)
6668
6769data ReaderEnv = ReaderEnv { envNotes :: Notes
6870 , envNumbering :: Numbering
@@ -673,8 +675,25 @@ elemToRunElem ns element
673675 return $ TextRun $ strContent element
674676 | isElem ns "w" "br" element = return LnBrk
675677 | isElem ns "w" "tab" element = return Tab
678+ | isElem ns "w" "sym" element = return (getSymChar ns element)
676679 | otherwise = throwError WrongElem
677680
681+-- The char attribute is a hex string
682+getSymChar :: NameSpaces -> Element -> RunElem
683+getSymChar ns element
684+ | Just s <- getCodepoint
685+ , Just font <- getFont =
686+ let [(char, _)] = readLitChar ("\\x" ++ s) in
687+ TextRun . maybe "" (:[]) $ getUnicode font char
688+ where
689+ getCodepoint = findAttr (elemName ns "w" "char") element
690+ getFont = stringToFont =<< findAttr (elemName ns "w" "font") element
691+getSymChar _ _ = TextRun ""
692+
693+stringToFont :: String -> Maybe Font
694+stringToFont "Symbol" = Just Symbol
695+stringToFont _ = Nothing
696+
678697elemToRunElems :: NameSpaces -> Element -> D [RunElem]
679698elemToRunElems ns element
680699 | isElem ns "w" "r" element