X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FFullPage.hs;fp=src%2FLWN%2FFullPage.hs;h=0000000000000000000000000000000000000000;hp=1ba7910cf329d414a6b8e6d6ab10dbceee239050;hb=6f0e6cbece7e1b1a3c6b43d19eb2f29088af981c;hpb=ed2ed8abd62ba3dec7f799253de1133732f8c153 diff --git a/src/LWN/FullPage.hs b/src/LWN/FullPage.hs deleted file mode 100644 index 1ba7910..0000000 --- a/src/LWN/FullPage.hs +++ /dev/null @@ -1,210 +0,0 @@ -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 = - "" ++ - "" ++ - "
" ++ - " " ++ - "