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/Fonts.hs | 238 ---------------------------------- src/Text/Pandoc/Readers/Docx/Parse.hs | 6 +- 2 files changed, 1 insertion(+), 243 deletions(-) delete mode 100644 src/Text/Pandoc/Readers/Docx/Fonts.hs (limited to 'src/Text/Pandoc/Readers/Docx') diff --git a/src/Text/Pandoc/Readers/Docx/Fonts.hs b/src/Text/Pandoc/Readers/Docx/Fonts.hs deleted file mode 100644 index b44c71412..000000000 --- a/src/Text/Pandoc/Readers/Docx/Fonts.hs +++ /dev/null @@ -1,238 +0,0 @@ -{- -Copyright (C) 2014 Matthew Pickering - -This program is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software -Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA --} - -{- | - Module : Text.Pandoc.Readers.Docx.Fonts - Copyright : Copyright (C) 2014 Matthew Pickering - License : GNU GPL, version 2 or above - - Maintainer : Matthew Pickering - Stability : alpha - Portability : portable - -Utilities to convert between font codepoints and unicode characters. --} -module Text.Pandoc.Readers.Docx.Fonts (getUnicode, Font(..)) where - - --- | Enumeration of recognised fonts -data Font = Symbol -- ^ - deriving (Show, Eq) - --- | Given a font and codepoint, returns the corresponding unicode --- character -getUnicode :: Font -> Char -> Maybe Char -getUnicode Symbol c = lookup c symbol - --- Generated from lib/fonts/symbol.txt -symbol :: [(Char, Char)] -symbol = - [ (' ',' ') - , (' ','\160') - , ('!','!') - , ('"','\8704') - , ('#','#') - , ('$','\8707') - , ('%','%') - , ('&','&') - , ('\'','\8715') - , ('(','(') - , (')',')') - , ('*','\8727') - , ('+','+') - , (',',',') - , ('-','\8722') - , ('.','.') - , ('/','/') - , ('0','0') - , ('1','1') - , ('2','2') - , ('3','3') - , ('4','4') - , ('5','5') - , ('6','6') - , ('7','7') - , ('8','8') - , ('9','9') - , (':',':') - , (';',';') - , ('<','<') - , ('=','=') - , ('>','>') - , ('?','?') - , ('@','\8773') - , ('A','\913') - , ('B','\914') - , ('C','\935') - , ('D','\916') - , ('D','\8710') - , ('E','\917') - , ('F','\934') - , ('G','\915') - , ('H','\919') - , ('I','\921') - , ('J','\977') - , ('K','\922') - , ('L','\923') - , ('M','\924') - , ('N','\925') - , ('O','\927') - , ('P','\928') - , ('Q','\920') - , ('R','\929') - , ('S','\931') - , ('T','\932') - , ('U','\933') - , ('V','\962') - , ('W','\937') - , ('W','\8486') - , ('X','\926') - , ('Y','\936') - , ('Z','\918') - , ('[','[') - , ('\\','\8756') - , (']',']') - , ('^','\8869') - , ('_','_') - , ('`','\63717') - , ('a','\945') - , ('b','\946') - , ('c','\967') - , ('d','\948') - , ('e','\949') - , ('f','\966') - , ('g','\947') - , ('h','\951') - , ('i','\953') - , ('j','\981') - , ('k','\954') - , ('l','\955') - , ('m','\181') - , ('m','\956') - , ('n','\957') - , ('o','\959') - , ('p','\960') - , ('q','\952') - , ('r','\961') - , ('s','\963') - , ('t','\964') - , ('u','\965') - , ('v','\982') - , ('w','\969') - , ('x','\958') - , ('y','\968') - , ('z','\950') - , ('{','{') - , ('|','|') - , ('}','}') - , ('~','\8764') - , ('\160','\8364') - , ('\161','\978') - , ('\162','\8242') - , ('\163','\8804') - , ('\164','\8260') - , ('\164','\8725') - , ('\165','\8734') - , ('\166','\402') - , ('\167','\9827') - , ('\168','\9830') - , ('\169','\9829') - , ('\170','\9824') - , ('\171','\8596') - , ('\172','\8592') - , ('\173','\8593') - , ('\174','\8594') - , ('\175','\8595') - , ('\176','\176') - , ('\177','\177') - , ('\178','\8243') - , ('\179','\8805') - , ('\180','\215') - , ('\181','\8733') - , ('\182','\8706') - , ('\183','\8226') - , ('\184','\247') - , ('\185','\8800') - , ('\186','\8801') - , ('\187','\8776') - , ('\188','\8230') - , ('\189','\63718') - , ('\190','\63719') - , ('\191','\8629') - , ('\192','\8501') - , ('\193','\8465') - , ('\194','\8476') - , ('\195','\8472') - , ('\196','\8855') - , ('\197','\8853') - , ('\198','\8709') - , ('\199','\8745') - , ('\200','\8746') - , ('\201','\8835') - , ('\202','\8839') - , ('\203','\8836') - , ('\204','\8834') - , ('\205','\8838') - , ('\206','\8712') - , ('\207','\8713') - , ('\208','\8736') - , ('\209','\8711') - , ('\210','\63194') - , ('\211','\63193') - , ('\212','\63195') - , ('\213','\8719') - , ('\214','\8730') - , ('\215','\8901') - , ('\216','\172') - , ('\217','\8743') - , ('\218','\8744') - , ('\219','\8660') - , ('\220','\8656') - , ('\221','\8657') - , ('\222','\8658') - , ('\223','\8659') - , ('\224','\9674') - , ('\225','\9001') - , ('\226','\63720') - , ('\227','\63721') - , ('\228','\63722') - , ('\229','\8721') - , ('\230','\63723') - , ('\231','\63724') - , ('\232','\63725') - , ('\233','\63726') - , ('\234','\63727') - , ('\235','\63728') - , ('\236','\63729') - , ('\237','\63730') - , ('\238','\63731') - , ('\239','\63732') - , ('\241','\9002') - , ('\242','\8747') - , ('\243','\8992') - , ('\244','\63733') - , ('\245','\8993') - , ('\246','\63734') - , ('\247','\63735') - , ('\248','\63736') - , ('\249','\63737') - , ('\250','\63738') - , ('\251','\63739') - , ('\252','\63740') - , ('\253','\63741') - , ('\254','\63742')] 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