diff options
| author | jao <jao@gnu.org> | 2019-10-05 23:33:36 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2019-10-05 23:33:36 +0100 |
| commit | f1973d263ebc7059989091f2026622ff2766dc66 (patch) | |
| tree | f0c8992c26c2c1bd2f9305b1f981d072b410a144 /src/lib/Config.hs | |
| parent | 05d143ee56ca6785b12ccde43a8d278ebbc93bdf (diff) | |
| download | xmobar-config-f1973d263ebc7059989091f2026622ff2766dc66.tar.gz xmobar-config-f1973d263ebc7059989091f2026622ff2766dc66.tar.bz2 | |
load icons
Diffstat (limited to 'src/lib/Config.hs')
| -rw-r--r-- | src/lib/Config.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/lib/Config.hs b/src/lib/Config.hs index 6493bd7..58108f1 100644 --- a/src/lib/Config.hs +++ b/src/lib/Config.hs @@ -1,4 +1,5 @@ -module Config (Palette(..), baseConfig, palette, (<~>), defaultHeight) where +module Config (Palette(..), baseConfig, palette, (<~>), mkArgs, defaultHeight) + where import System.Environment (lookupEnv) @@ -68,6 +69,7 @@ baseConfig p = defaultConfig { , persistent = True , sepChar = "|" , alignSep = "{}" + , iconRoot = "/home/jao/.xmobar/icons" } (<~>) :: Palette -> [String] -> [String] @@ -77,3 +79,6 @@ baseConfig p = defaultConfig { , "--high", (pHigh p) ] ] + +mkArgs :: Palette -> [String] -> [String] -> [String] +mkArgs p args extra = concat [(p <~> args), ["--"], extra] |