module LWN.FullPage where import Data.String.Utils (split, strip) import Data.Maybe (catMaybes, fromJust) import Data.Tree.NTree.TypeDefs (NTree) import Text.XML.HXT.Core ( ArrowXml, IOSArrow, XmlTree, XNode, (>>>), (/>), (//>), getChildren, getText, hasAttrValue, hasName, none, processTopDown, runX, xshow, when ) import Text.HandsomeSoup (css, parseHtml) import Epublishable import LWN.Article import XHTML -- | An LWN page with more than one article on it. These require -- different parsing and display functions than the single-article -- pages. data FullPage = FullPage { headline :: String, articles :: [Article] } articles_xhtml :: FullPage -> String articles_xhtml fp = concatMap to_xhtml (articles fp) instance XHTML FullPage where to_xhtml fp = "" ++ "" ++ "
" ++ " " ++ "