'Core' fonts not used anymore (utf8 is always required)

1 files changed, 6 insertions, 27 deletions

diff --git a/src/Xmobar/X11/Text.hs b/src/Xmobar/X11/Text.hs
index 8de2e7d..6da96fa 100644
--- a/src/Xmobar/X11/Text.hs
+++ b/src/Xmobar/X11/Text.hs
@@ -3,7 +3,7 @@
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Xmobar.X11.Text
--- Copyright   :  (C) 2011, 2012, 2013, 2014, 2015, 2017, 2018, 2022 Jose Antonio Ortega Ruiz
+-- Copyright   :  (C) 2011-2015, 2017, 2018, 2022 Jose Antonio Ortega Ruiz
 --                (C) 2007 Andrea Rossato
 -- License     :  BSD3
 --
@@ -14,10 +14,8 @@
 -----------------------------------------------------------------------------
 
 module Xmobar.X11.Text
-    ( XFont(..)
+    ( XFont
     , initFont
-    , initCoreFont
-    , initUtf8Font
     , textExtents
     , textWidth
     ) where
@@ -26,34 +24,19 @@ import Control.Exception (SomeException, handle)
 
 import Foreign
 import Graphics.X11.Xlib hiding (textExtents, textWidth)
-import qualified Graphics.X11.Xlib as Xlib (textExtents, textWidth)
 import Graphics.X11.Xlib.Extras
 import System.Mem.Weak ( addFinalizer )
 
-data XFont = Core FontStruct
-           | Utf8 FontSet
+type XFont = FontSet
 
--- | When initFont gets a font name that starts with 'xft:' it switchs
--- to the Xft backend Example: 'xft:Sans-10'
 initFont :: Display -> String -> IO XFont
-initFont d s = fmap Utf8 $ initUtf8Font d s
+initFont = initUtf8Font
 
 miscFixedFont :: String
 miscFixedFont = "-misc-fixed-*-*-*-*-*-*-*-*-*-*-*-*"
 
 -- | Given a fontname returns the font structure. If the font name is
 --  not valid the default font will be loaded and returned.
-initCoreFont :: Display -> String -> IO FontStruct
-initCoreFont d s = do
-  f <- handle fallBack getIt
-  addFinalizer f (freeFont d f)
-  return f
-      where getIt = loadQueryFont d s
-            fallBack :: SomeException -> IO FontStruct
-            fallBack = const $ loadQueryFont d miscFixedFont
-
--- | Given a fontname returns the font structure. If the font name is
---  not valid the default font will be loaded and returned.
 initUtf8Font :: Display -> String -> IO FontSet
 initUtf8Font d s = do
   (_,_,f) <- handle fallBack getIt
@@ -64,14 +47,10 @@ initUtf8Font d s = do
             fallBack = const $ createFontSet d miscFixedFont
 
 textWidth :: Display -> XFont -> String -> IO Int
-textWidth _   (Utf8 fs) s = return $ fromIntegral $ wcTextEscapement fs s
-textWidth _   (Core fs) s = return $ fromIntegral $ Xlib.textWidth fs s
+textWidth _   fs s = return $ fromIntegral $ wcTextEscapement fs s
 
 textExtents :: XFont -> String -> IO (Int32,Int32)
-textExtents (Core fs) s = do
-  let (_,a,d,_) = Xlib.textExtents fs s
-  return (a,d)
-textExtents (Utf8 fs) s = do
+textExtents fs s = do
   let (_,rl)  = wcTextExtents fs s
       ascent  = fromIntegral $ negate (rect_y rl)
       descent = fromIntegral $ rect_height rl + fromIntegral (rect_y rl)