40 lines
1.6 KiB
Diff
40 lines
1.6 KiB
Diff
--- 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
|