diff options
Diffstat (limited to 'src/lib/Config.hs')
-rw-r--r-- | src/lib/Config.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/lib/Config.hs b/src/lib/Config.hs index 905773e..c2a7720 100644 --- a/src/lib/Config.hs +++ b/src/lib/Config.hs @@ -1,5 +1,6 @@ module Config ( - Palette(..), baseConfig, palette, (<~>), (>~<), mkArgs, defaultHeight) + Palette(..), baseConfig, palette, (<~>), (>~<), + mkArgs, defaultHeight, fc, fn) where import System.Environment (lookupEnv) @@ -21,6 +22,9 @@ data Palette = Palette { pNormal :: String , pIsLight :: Bool } +fc color thing = "<fc=" ++ color ++ ">" ++ thing ++ "</fc>" +fn n thing = "<fn=" ++ show n ++ ">" ++ thing ++ "</fn>" + lightTheme :: IO Bool lightTheme = fmap (== Just "light") (lookupEnv "JAO_COLOR_SCHEME") |