X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FFullPage.hs;h=cc89737d18e933227847181fedf31b98b514fa6a;hp=9ff782c89bc0b7e60cda43a7d47379b97470083b;hb=d5bab2c486d30e54d3e94cc3bdbb230f2cd1f3f3;hpb=b591d5f5c3c47d253c24144beae1edf8648cd94b diff --git a/src/LWN/FullPage.hs b/src/LWN/FullPage.hs index 9ff782c..cc89737 100644 --- a/src/LWN/FullPage.hs +++ b/src/LWN/FullPage.hs @@ -1,6 +1,21 @@ 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 @@ -10,8 +25,25 @@ import XHTML -- pages. data FullPage = FullPage { articles :: [Article] } +articles_xhtml :: FullPage -> String +articles_xhtml fp = concatMap show (articles x) + instance XHTML FullPage where - to_xhtml fp = "" + to_xhtml fp = + "" ++ + "" ++ + "\n
\n" ++ + " " ++ + "