Directory layout directly usable by xmobar executable

1 files changed, 0 insertions, 71 deletions

diff --git a/src/Config.hs b/src/Config.hs
deleted file mode 100644
index 94b9211..0000000
--- a/src/Config.hs
+++ /dev/null
@@ -1,71 +0,0 @@
-module Config (Palette, baseConfig, palette, (<~>)) where
-
-import System.Environment (lookupEnv)
-
-import Xmobar
-
-data Palette = Palette { pNormal :: String
-                       , pLow :: String
-                       , pHigh :: String
-                       , pFont :: String
-                       , pBorder :: String
-                       , pForeground :: String
-                       , pBackground :: String
-                       , pAlpha :: Int
-                       }
-
-lightTheme :: IO Bool
-lightTheme = fmap (== (Just "light")) (lookupEnv "JAO_COLOR_SCHEME")
-
-lightPalette :: Palette
-lightPalette = Palette { pNormal = "black"
-                       , pLow = "#4d4d4d"
-                       , pHigh = "#a0522d"
-                       , pFont = "xft:Source Code Pro Medium-9"
-                       , pBorder = "grey70"
-                       , pForeground = "#000000"
-                       , pBackground = "white"
-                       , pAlpha = 0
-                       }
-
-darkPalette :: Palette
-darkPalette = Palette { pNormal = "black"
-                      , pLow = "#4d4d4d"
-                      , pHigh = "#a0522d"
-                      , pFont = "xft:NotoMono-9,xft:Inconsolata-11"
-                      , pBorder = "black"
-                      , pForeground = "grey50"
-                      , pBackground = "black"
-                      , pAlpha = 102
-                      }
-
-palette :: IO Palette
-palette = do
-  light <- lightTheme
-  if light then return lightPalette else return darkPalette
-
-baseConfig :: Palette -> Config
-baseConfig p = defaultConfig {
-  font = pFont p
-  , borderColor = pBorder p
-  , fgColor = (pForeground p)
-  , bgColor = (pBackground p)
-  , border = FullBM 1
-  , alpha = (pAlpha p)
-  , additionalFonts = []
-  , overrideRedirect = True
-  , lowerOnStart = True
-  , allDesktops = True
-  , hideOnStart = False
-  , persistent = True
-  , sepChar = "|"
-  , alignSep = "{}"
-  }
-
-(<~>) :: Palette -> [String] -> [String]
-(<~>) p args = concat [ args
-                      , [ "--low", (pLow p)
-                        , "--normal", (pNormal p)
-                        , "--high", (pHigh p)
-                        ]
-                      ]