From ee2b41303756bdfaa8955a1e1fd55396dda936b0 Mon Sep 17 00:00:00 2001
From: Markus Scherer <markus.f.scherer@gmail.com>
Date: Thu, 8 Jan 2015 21:47:45 +0600
Subject: Support for multiple fonts

---
 src/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 48df632..0eca0cb 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -59,12 +59,13 @@ main = do
 
   conf  <- doOpts c o
   fs    <- initFont d (font conf)
+  fl    <- mapM (initFont d) (fontList conf)
   cls   <- mapM (parseTemplate conf) (splitTemplate conf)
   sig   <- setupSignalHandler
   vars  <- mapM (mapM $ startCommand sig) cls
   (r,w) <- createWin d fs conf
   let ic = Map.empty
-  startLoop (XConf d r w fs ic conf) sig vars
+  startLoop (XConf d r w (fs:fl) ic conf) sig vars
 
 -- | Splits the template in its parts
 splitTemplate :: Config -> [String]
-- 
cgit v1.2.3