1 files changed, 8 insertions(+), 1 deletions(-)

M src/Main.hs

@@ 28,7 28,10 @@ import           Stylist (cssPriorityAgent, cssPriorityUser, attrTest, elementPa
 import           Stylist.Tree (treeFind)
 import           Data.HTML2CSS (el2stylist)
 
-import           Graphics.Layout.CSS (CSSBox(..), finalizeCSS)
+import           Graphics.Layout.CSS (CSSBox(..), finalizeCSS')
+import           Graphics.Layout.CSS.Internal (placeholderFont)
+import           Graphics.Layout.Box (zeroBox, PaddedBox(..), Size(..))
+import           Graphics.Layout (boxLayout)
 
 import Data.Maybe (fromMaybe)
 import System.Environment (getArgs)


@@ 121,4 124,8 @@ main = do
     let style = CSSTxt.resolve $ inlinePseudos' $ stylize css' $ el2stylist $
             documentRoot $ html page
 
+    let outerbox = zeroBox -- FIXME: Parameterize!
+    let sysfont = placeholderFont -- FIXME: Parameterize!
+    let layout = boxLayout zeroBox (finalizeCSS' sysfont style) False
+
     putStrLn "Hello, Haskell!"