1de8d4d · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Docx Reader: Simplify makeHeaderAnchors

1de8d4dJesse Rosenthal12 years ago

src/Text/Pandoc/Readers/Docx.hs+5−8

@@ -306,14 +306,11 @@ dummyAnchors :: [String]

306dummyAnchors = ["_GoBack"]

307

308makeHeaderAnchor :: Block -> Block

309−makeHeaderAnchor h@(Header n (_, classes, kvs) ils) =

309+makeHeaderAnchor (Header n (_, classes, kvs) ils)

310− case filter isAnchorSpan ils of

310+ | (x : xs) <- filter isAnchorSpan ils

311− [] -> h

312− (x@(Span (ident, _, _) _) : xs) ->

311+ , (Span (ident, _, _) _) <- x

313− case ident `elem` dummyAnchors of

312+ , notElem ident dummyAnchors =

314− True -> h

315− False -> Header n (ident, classes, kvs) (ils \\ (x:xs))

313+ Header n (ident, classes, kvs) (ils \\ (x:xs))

316− _ -> h

317makeHeaderAnchor blk = blk

314makeHeaderAnchor blk = blk

318

315

319parPartsToInlines :: [ParPart] -> DocxContext [Inline]

316parPartsToInlines :: [ParPart] -> DocxContext [Inline]