diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-12-10 17:00:02 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-12-10 19:24:56 -0500 |
| commit | 2cb9a787ae3b7a81459faadf73d039707ae7e92f (patch) | |
| tree | f36350c623016f534254358958da7164be67f299 /src | |
| parent | 2cbd8a3351accb11fa937bb2ea571c569cf6da1f (diff) | |
| download | pandoc-2cb9a787ae3b7a81459faadf73d039707ae7e92f.tar.gz | |
Docx: add a levelOverride type.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Parse.hs | 23 |
1 files changed, 20 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs index 358c7bf42..f122224b2 100644 --- a/src/Text/Pandoc/Readers/Docx/Parse.hs +++ b/src/Text/Pandoc/Readers/Docx/Parse.hs @@ -189,9 +189,13 @@ type ParStyleMap = M.Map String ParStyleData data Numbering = Numbering NameSpaces [Numb] [AbstractNumb] deriving Show -data Numb = Numb String String -- right now, only a key to an abstract num +data Numb = Numb String String [LevelOverride] deriving Show +-- ilvl, startOverride, lvl +data LevelOverride = LevelOverride String (Maybe String) (Maybe Level) + deriving Show + data AbstractNumb = AbstractNumb String [Level] deriving Show @@ -505,10 +509,20 @@ filePathIsMedia fp = lookupLevel :: String -> String -> Numbering -> Maybe Level lookupLevel numId ilvl (Numbering _ numbs absNumbs) = do - absNumId <- lookup numId $ map (\(Numb nid absnumid) -> (nid, absnumid)) numbs + absNumId <- lookup numId $ map (\(Numb nid absnumid _) -> (nid, absnumid)) numbs lvls <- lookup absNumId $ map (\(AbstractNumb aid ls) -> (aid, ls)) absNumbs lookup ilvl $ map (\l@(Level i _ _ _) -> (i, l)) lvls +loElemToLevelOverride :: NameSpaces -> Element -> Maybe LevelOverride +loElemToLevelOverride ns element + | isElem ns "w" "lvlOverride" element = do + ilvl <- findAttrByName ns "w" "ilvl" element + let startOverride = findChildByName ns "w" "startOverride" element + >>= findAttrByName ns "w" "val" + lvl = findChildByName ns "w" "lvl" element + >>= levelElemToLevel ns + return $ LevelOverride ilvl startOverride lvl +loElemToLevelOverride _ _ = Nothing numElemToNum :: NameSpaces -> Element -> Maybe Numb numElemToNum ns element @@ -516,7 +530,10 @@ numElemToNum ns element numId <- findAttrByName ns "w" "numId" element absNumId <- findChildByName ns "w" "abstractNumId" element >>= findAttrByName ns "w" "val" - return $ Numb numId absNumId + let lvlOverrides = mapMaybe + (loElemToLevelOverride ns) + (findChildrenByName ns "w" "lvlOverride" element) + return $ Numb numId absNumId lvlOverrides numElemToNum _ _ = Nothing absNumElemToAbsNum :: NameSpaces -> Element -> Maybe AbstractNumb |