lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-26 09:25:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

Docx reader: Remove unnecessary filter in Parse.

Browse Source 
mapMaybe does the filtering for us.
This commit is contained in:
Jesse Rosenthal
2014-06-25 11:00:15 -04:00
parent ed44e4ca8c
commit 9614ddfedc
1 changed files with 2 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/Docx/Parse.hs
+2 -7
View File
@@ -281,10 +281,6 @@ elemToBody ns element | qName (elName element) == "body" && qURI (elName element
$ map (elemToBodyPart ns) $ filterChildrenName (isParOrTbl ns) element
elemToBody _ _ = Nothing
isRunOrLinkOrBookmark :: NameSpaces -> QName -> Bool
isRunOrLinkOrBookmark ns q = qName q `elem` ["r", "hyperlink", "bookmarkStart"] &&
qURI q == (lookup "w" ns)
elemToNumInfo :: NameSpaces -> Element -> Maybe (String, String)
elemToNumInfo ns element
| qName (elName element) == "p" &&
@@ -319,9 +315,8 @@ elemToBodyPart ns element
| qName (elName element) == "p" &&
qURI (elName element) == (lookup "w" ns) =
let parstyle = elemToParagraphStyle ns element
parparts = mapMaybe id
$ map (elemToParPart ns)
$ filterChildrenName (isRunOrLinkOrBookmark ns) element
parparts = mapMaybe (elemToParPart ns)
$ elChildren element
in
case elemToNumInfo ns element of
Just (numId, lvl) -> Just $ ListItem parstyle numId lvl parparts