@@ -146,12 +146,14 @@ data ParIndentation = ParIndentation { leftParIndent :: Maybe Integer
146146
147147data ParagraphStyle = ParagraphStyle { pStyle :: [String]
148148 , indentation :: Maybe ParIndentation
149+ , dropCap :: Bool
149150 }
150151 deriving Show
151152
152153defaultParagraphStyle :: ParagraphStyle
153154defaultParagraphStyle = ParagraphStyle { pStyle = []
154155 , indentation = Nothing
156+ , dropCap = False
155157 }
156158
157159
@@ -637,8 +639,16 @@ elemToParagraphStyle ns element
637639 (findAttr (elemName ns "w" "val"))
638640 (findChildren (elemName ns "w" "pStyle") pPr)
639641 , indentation =
640− findChild (elemName ns "w" "ind") pPr >>=
641− elemToParIndentation ns
642+ findChild (elemName ns "w" "ind") pPr >>=
643+ elemToParIndentation ns
644+ , dropCap =
645+ case
646+ findChild (elemName ns "w" "framePr") pPr >>=
647+ findAttr (elemName ns "w" "dropCap")
648+ of
649+ Just "none" -> False
650+ Just _ -> True
651+ Nothing -> False
642652 }
643653elemToParagraphStyle _ _ = defaultParagraphStyle
644654