diff options
| author | gwern0 <gwern0@gmail.com> | 2010-06-15 01:23:00 +0200 |
|---|---|---|
| committer | gwern0 <gwern0@gmail.com> | 2010-06-15 01:23:00 +0200 |
| commit | be7429427b84c7c1221041e94d1a28d00e8030b3 (patch) | |
| tree | b39eb00191af8d2b2da7f8332a9e2d46e75e534e /XMonad/Util/Font.hs | |
| parent | c79c215f08d1c0e5a99d6583754fd723bf7b9a6a (diff) | |
| download | XMonadContrib-be7429427b84c7c1221041e94d1a28d00e8030b3.tar.gz XMonadContrib-be7429427b84c7c1221041e94d1a28d00e8030b3.tar.xz XMonadContrib-be7429427b84c7c1221041e94d1a28d00e8030b3.zip | |
remove decodeInput/encodeOutput
Ignore-this: 2ed6a014130dba95c6b0a6fcac055110
see http://code.google.com/p/xmonad/issues/detail?id48
they are just synonyms for 2 utf8-string functions, and don't really help
darcs-hash:20100614232300-f7719-66f0606d9c7323186cb6aa56dff11c506bb79c4e.gz
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 |