diff options
Diffstat (limited to 'XMonad/Util/Font.hs')
| -rw-r--r-- | XMonad/Util/Font.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/XMonad/Util/Font.hs b/XMonad/Util/Font.hs index 725c443..b08f021 100644 --- a/XMonad/Util/Font.hs +++ b/XMonad/Util/Font.hs @@ -29,8 +29,6 @@ module XMonad.Util.Font , textExtentsXMF , printStringXMF , stringToPixel - , decodeInput - , encodeOutput ) where import XMonad @@ -44,9 +42,6 @@ import Graphics.X11.Xft import Graphics.X11.Xrender #endif -import Codec.Binary.UTF8.String (encodeString, decodeString) - - -- Hide the Core Font/Xft switching here data XMonadFont = Core FontStruct | Utf8 FontSet @@ -64,7 +59,6 @@ stringToPixel d s = fromMaybe fallBack <$> io getIt where getIt = initColor d s fallBack = blackPixel d (defaultScreen d) - -- | Given a fontname returns the font structure. If the font name is -- not valid the default font will be loaded and returned. initCoreFont :: String -> X FontStruct @@ -192,12 +186,6 @@ printStringXMF dpy drw fs@(Xft font) gc fc bc x y s = do \color -> xftDrawString draw color font x y s #endif -decodeInput :: String -> String -decodeInput = decodeString - -encodeOutput :: String -> String -encodeOutput = encodeString - -- | Short-hand for 'fromIntegral' fi :: (Integral a, Num b) => a -> b fi = fromIntegral |