+
+ MIMEType "image" _ _
+ -> [ Paragraph [ Image (pageName page) Nothing ] ]
+
+ _ -> if pageIsBinary page then
+ -- object へのリンクのみ
+ [ Paragraph [ ObjectLink (pageName page) (Just $ pageFileName' page) ] ]
+ else
+ -- pre
+ let text = decodeLazy UTF8 (pageContent page)
+ in
+ [ Preformatted [ Text text ] ]