1 files changed, 6 insertions(+), 0 deletions(-)

M src/Main.hs

@@ 33,8 33,11 @@ import           Graphics.Layout.CSS.Internal (placeholderFont, Font'(..),
 import           Graphics.Layout.Box as B (zeroBox, PaddedBox(..), Size(..))
 import           Graphics.Layout (boxLayout, glyphsPerFont)
 import           Graphics.Text.Font.Choose (nameParse)
+
 import           FreeType.FontConfig (instantiatePattern, bmpAndMetricsForIndex,
                                       FTFC_Subpixel(..))
+import           FreeType.Core.Base (ft_With_FreeType)
+import           Typograffiti (makeDrawGlyphs, allocAtlas)
 
 import SDL hiding (rotate)
 import Graphics.GL.Core32


@@ 42,6 45,7 @@ import Graphics.GL.Core32
 import Data.Function (fix)
 import Control.Monad (unless, forM)
 import Control.Monad.IO.Class (liftIO)
+import Control.Monad.Except (runExceptT)
 import qualified Data.IntSet as IS
 import qualified Data.Map.Strict as M
 


@@ 137,6 141,8 @@ main = do
             documentRoot $ html page
     let sysfont = (pattern2font (nameParse "serif") Style.temp { cssFontSize = (12,"pt") }
                    placeholderFont placeholderFont) { scale = read scale' }
+    let infbox = zerobox { B.min = Size infinity infinity, B.size = Size infinity infinity,
+            B.max = Size infinity, infinity }
     let layout0 = boxLayout infbox (finalizeCSS' sysfont style) False
 
     SDL.initializeAll