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 ( IOSArrow, XmlTree, XNode, (>>>), (/>), getText, hasAttrValue, hasName, none, processTopDown, runX, xshow, when ) import Text.XML.HXT.Arrow.Edit (indentDoc) 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 = "" ++ "" ++ "\n
\n" ++ " " ++ "