From ac83d4b806d4ac0bd98a2e977bdb13898483964b Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 30 Nov 2016 00:43:55 +0100 Subject: Use new module from texmath to lookup MS font codepoints. + Removed Text.Pandoc.Readers.Docx.Fonts + Moved its code to texmath; we now use (from texmath 0.9) Text.TeXMath.Unicode.Fonts + Use texmath 0.9 (currently from git). + Updated epub tests because texmath now handles more mathml. --- src/Text/Pandoc/Readers/Docx/Parse.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src/Text/Pandoc/Readers/Docx/Parse.hs') diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs index 80753346b..deb2caccf 100644 --- a/src/Text/Pandoc/Readers/Docx/Parse.hs +++ b/src/Text/Pandoc/Readers/Docx/Parse.hs @@ -67,7 +67,7 @@ import qualified Data.Map as M import Control.Monad.Except import Text.Pandoc.Shared (safeRead, filteredFilesFromArchive) import Text.TeXMath.Readers.OMML (readOMML) -import Text.Pandoc.Readers.Docx.Fonts (getUnicode, Font(..)) +import Text.TeXMath.Unicode.Fonts (getUnicode, stringToFont, Font(..)) import Text.TeXMath (Exp) import Text.Pandoc.Readers.Docx.Util import Data.Char (readLitChar, ord, chr, isDigit) @@ -1021,10 +1021,6 @@ getSymChar ns element lowerFromPrivate xs = xs getSymChar _ _ = TextRun "" -stringToFont :: String -> Maybe Font -stringToFont "Symbol" = Just Symbol -stringToFont _ = Nothing - elemToRunElems :: NameSpaces -> Element -> D [RunElem] elemToRunElems ns element | isElem ns "w" "r" element -- cgit v1.2.3