diff options
Diffstat (limited to 'src/Xmobar/Config')
| -rw-r--r-- | src/Xmobar/Config/Parse.hs | 5 | ||||
| -rw-r--r-- | src/Xmobar/Config/Types.hs | 1 | 
2 files changed, 4 insertions, 2 deletions
diff --git a/src/Xmobar/Config/Parse.hs b/src/Xmobar/Config/Parse.hs index 23de4db..0b41267 100644 --- a/src/Xmobar/Config/Parse.hs +++ b/src/Xmobar/Config/Parse.hs @@ -72,7 +72,7 @@ parseConfig defaultConfig =                <|?> pAllDesktops <|?> pOverrideRedirect <|?> pPickBroadest                <|?> pLowerOnStart <|?> pPersistent <|?> pIconRoot                <|?> pCommands <|?> pSepChar <|?> pAlignSep <|?> pTemplate -              <|?> pVerbose <|?> pSignal +              <|?> pVerbose <|?> pSignal <|?> pDpi        fields    = [ "font", "additionalFonts", "bgColor", "fgColor"                    , "wmClass", "wmName", "sepChar" @@ -81,7 +81,7 @@ parseConfig defaultConfig =                    , "allDesktops", "overrideRedirect", "pickBroadest"                    , "hideOnStart", "lowerOnStart", "persistent", "iconRoot"                    , "alpha", "commands", "verbose", "signal", "textOutput" -                  , "textOutputFormat" +                  , "textOutputFormat", "dpi"                    ]        pTextOutput = readField textOutput "textOutput" @@ -112,6 +112,7 @@ parseConfig defaultConfig =        pIconRoot = readField iconRoot "iconRoot"        pAlpha = readField alpha "alpha"        pVerbose = readField verbose "verbose" +      pDpi = readField dpi "dpi"        pSignal = field signal "signal" $          fail "signal is meant for use with Xmobar as a library.\n It is not meant for use in the configuration file." diff --git a/src/Xmobar/Config/Types.hs b/src/Xmobar/Config/Types.hs index ea7b958..785b55b 100644 --- a/src/Xmobar/Config/Types.hs +++ b/src/Xmobar/Config/Types.hs @@ -85,6 +85,7 @@ data Config =             , template :: String     -- ^ The output template             , verbose :: Bool        -- ^ Emit additional debug messages             , signal :: SignalChan   -- ^ Channel to send signals to xmobar +           , dpi :: Double          -- ^ DPI scaling factor for fonts             } deriving (Read, Show)  -- | The position datatype  | 
