X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FArticlePage.hs;fp=src%2FLWN%2FArticlePage.hs;h=0e699a0978953ad61e9aaa7105c97025b11be3c2;hp=0000000000000000000000000000000000000000;hb=b591d5f5c3c47d253c24144beae1edf8648cd94b;hpb=8e5616a377196f0a200947173d4c78a3dca8a55f diff --git a/src/LWN/ArticlePage.hs b/src/LWN/ArticlePage.hs new file mode 100644 index 0000000..0e699a0 --- /dev/null +++ b/src/LWN/ArticlePage.hs @@ -0,0 +1,101 @@ +module LWN.ArticlePage +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 + +-- | Defines the ArticlePage data type, containing one 'Article'. +data ArticlePage = ArticlePage { article :: Article } + + +instance XHTML ArticlePage where + to_xhtml (ArticlePage a) = + "" ++ + "" ++ + "\n
\n" ++ + " " ++ + "