module LWN.FullPage where import Data.String.Utils (strip) import Data.Maybe (fromJust) import Data.Tree.NTree.TypeDefs (NTree) import Text.XML.HXT.Core ( IOSArrow, XmlTree, XNode, (>>>), (/>), getText, runX, xshow ) import Text.HandsomeSoup (css) 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 { articles :: [Article] } articles_xhtml :: FullPage -> String articles_xhtml fp = concatMap show (articles x) instance XHTML FullPage where to_xhtml fp = "" ++ "" ++ "\n
\n" ++ " " ++ "