From f1973d263ebc7059989091f2026622ff2766dc66 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 5 Oct 2019 23:33:36 +0100 Subject: load icons --- src/lib/Config.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/lib/Config.hs') 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] -- cgit v1.2.3