From f182c43ceab950cea54a968af5d57470aadbec15 Mon Sep 17 00:00:00 2001
From: Alan Gilbert <alanhgilbert@gmail.com>
Date: Sun, 3 May 2015 21:09:45 +0300
Subject: Explanatory warning when xft font is requsted but not supported

---
 src/XUtil.hsc | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/XUtil.hsc b/src/XUtil.hsc
index 9cb1def..e37d419 100644
--- a/src/XUtil.hsc
+++ b/src/XUtil.hsc
@@ -33,6 +33,7 @@ import Control.Concurrent
 import Control.Monad (when)
 import Control.Monad.Trans
 import Control.Exception (SomeException, handle)
+import Data.List
 import Foreign
 import Graphics.X11.Xlib hiding (textExtents, textWidth)
 import qualified Graphics.X11.Xlib as Xlib (textExtents, textWidth)
@@ -49,7 +50,6 @@ import qualified System.IO as UTF8 (readFile,hGetLine)
 # endif
 #endif
 #if defined XFT
-import Data.List
 import MinXft
 import Graphics.X11.Xrender
 #endif
@@ -81,12 +81,18 @@ data XFont = Core FontStruct
 -- to the Xft backend Example: 'xft:Sans-10'
 initFont :: Display ->String -> IO XFont
 initFont d s =
-#ifdef XFT
        let xftPrefix = "xft:" in
        if  xftPrefix `isPrefixOf` s then
+#ifdef XFT
            fmap Xft $ initXftFont d s
-       else
+#else
+           do
+               hPutStrLn stderr $ "Warning: Xmobar must be built with "
+                   ++ "the with_xft flag to support font '" ++ s
+                   ++ ".' Falling back on default."
+               initFont d miscFixedFont
 #endif
+       else
 #if defined UTF8 ||  __GLASGOW_HASKELL__ >= 612
            fmap Utf8 $ initUtf8Font d s
 #else
-- 
cgit v1.2.3