--- a/samples/xmobar.config	2010-12-24 05:12:22.000000000 +0300
+++ b/samples/xmobar.config	2011-05-28 17:57:04.141822660 +0400
@@ -1,4 +1,4 @@
-Config { font = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
+Config { font = "xft:mono-12"
        , bgColor = "black"
        , fgColor = "grey"
        , position = Top
--- a/src/XUtil.hsc	2011-05-28 18:03:01.226823112 +0400
+++ b/src/XUtil.hsc	2011-05-28 18:03:16.017823085 +0400
@@ -99,7 +99,7 @@
   addFinalizer f (freeFont d f)
   return f
       where getIt    = loadQueryFont d s
-            fallBack = const $ loadQueryFont d "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
+            fallBack = const $ loadQueryFont d "-misc-fixed-*-*-*-*-13-*-*-*-*-*-*-*"
 
 -- | Given a fontname returns the font structure. If the font name is
 --  not valid the default font will be loaded and returned.
@@ -110,7 +110,7 @@
   addFinalizer f (freeFontSet d f)
   return f
       where getIt    = createFontSet d s
-            fallBack = const $ createFontSet d "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
+            fallBack = const $ createFontSet d "-misc-fixed-*-*-*-*-13-*-*-*-*-*-*-*"
 
 #ifdef XFT
 initXftFont :: Display -> String -> IO XftFont
--- a/src/Config.hs	2011-05-28 18:03:39.371822760 +0400
+++ b/src/Config.hs	2011-05-28 18:04:52.909823071 +0400
@@ -83,7 +83,7 @@
 -- | The default configuration values
 defaultConfig :: Config
 defaultConfig =
-    Config { font     = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
+    Config { font     = "xft:mono-12"
            , bgColor  = "#000000"
            , fgColor  = "#BFBFBF"
            , position = Top