xmobar/xmobar-0.13-default-fonts.patch

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"
, borderColor = "black"
, border = TopB
, bgColor = "black"
--- 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