Funktionale Programmierung: Textinhalt einer Seite formatieren

module Main
where
 
import Text.XML.HXT.Arrow
import System.Environment
 
main :: IO ()
main
    = do
      [src, dst, showTree] <- getArgs
      runX ( readDocument
               [ (a_parse_html, v_1)
               , (a_issue_warnings, v_0)
               ] src
             >>>
             processChildren
               ( processDocumentRootElement
                 `when`
                 isElem
               )
             >>>
             writeDocument
               [ (a_indent, v_1)
               , (a_show_tree, showTree)
               ] dst
           )
      return ()
processDocumentRootElement      :: ArrowXml a => a XmlTree XmlTree
processDocumentRootElement
    = eelem "the-plain-text"
      += txt "\n"
      += formatBodyText
formatBodyText  :: ArrowXml a => a XmlTree XmlTree
formatBodyText
    = xshow getBodyText
      >>>
      arr ( words
            >>>
            trimLines 8 
            >>>
            map unwords
            >>>
            unlines
          )
      >>>
      mkText
    where
    trimLines n [] = []
    trimLines n xs = take n xs : trimLines n (drop n xs) 
getBodyText     :: ArrowXml a => a XmlTree XmlTree
getBodyText
    = hasName "html"
      />
      hasName "body"
      //>
      ( hasName "div"
        >>>
        hasAttrValue "id" (== "content")
      )
      //>
      ( hasName "td"
        >>>
        hasAttrValue "valign" (== "top")
        >>>
        hasAttrValue "width" (== "75%")
      )
      />
      deep isText
Textinhalt einer Seite formatieren

selectPureBodyText

1. Testlauf

2. Testlauf
