From f62d3d8c2bc488f26fa21a3f824879d614570aec Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 13 Aug 2022 17:15:15 +0100
Subject: lib: clean ups

---
 src/lib/Config.hs | 117 ------------------------------------------------------
 1 file changed, 117 deletions(-)
 delete mode 100644 src/lib/Config.hs

(limited to 'src/lib/Config.hs')

diff --git a/src/lib/Config.hs b/src/lib/Config.hs
deleted file mode 100644
index 7e1b2bb..0000000
--- a/src/lib/Config.hs
+++ /dev/null
@@ -1,117 +0,0 @@
-module Config (
-  Palette(..), baseConfig, palette, (<~>), (>~<),
-  mkArgs, defaultHeight, fc, fn, fni)
- where
-
-import System.Environment (lookupEnv)
-
-import Xmobar
-
-defaultHeight :: Int
-defaultHeight = 24
-
-data Palette = Palette { pNormal :: String
-                       , pLow :: String
-                       , pHigh :: String
-                       , pDim :: String
-                       , pFont :: String
-                       , pBorder :: String
-                       , pForeground :: String
-                       , pBackground :: String
-                       , pAlpha :: Int
-                       , pIconRoot :: String
-                       , pIsLight :: Bool
-                       , pWm :: Maybe String
-                       }
-
-fc color thing = "<fc=" ++ color ++ ">" ++ thing ++ "</fc>"
-fn n thing = "<fn=" ++ show n ++ ">" ++ thing ++ "</fn>"
-fni = fn 6
-
-lightTheme :: IO Bool
-lightTheme = fmap (== Just "light") (lookupEnv "JAO_COLOR_SCHEME")
-
-icons k = "/home/jao/.config/xmobar/icons/" ++ k
-
-lightPalette :: Palette
-lightPalette = Palette { pNormal = "#000000"
-                       , pLow = "#4d4d4d"
-                       , pHigh = "#a0522d"
-                       , pDim = "#999999"
-                       , pFont = "xft:DejaVu Sans Mono-8"
-                       , pBorder = "#cccccc"
-                       , pForeground = "#000000"
-                       , pBackground = "#ffffff"
-                       , pAlpha = 229
-                       , pIconRoot = icons "light"
-                       , pIsLight = True
-                       , pWm = Nothing
-                       }
-
-zenburnRed = "#CC9393"
--- zenburnBack = "#2B2B2B"
-zenburnBack = "#1f1f1f"
-zenburnBackLight = "#383838"
-zenburnFg = "#989890" -- "#DCDCCC"
-zenburnYl = "#F0DFAF"
-zenburnGreen = "#7F9F7F"
-doomBack = "#22242b"
-
-darkPalette :: Palette
-darkPalette = Palette { pNormal = zenburnFg
-                      , pLow = "darkseagreen4" -- zenburnGreen
-                      , pHigh = zenburnRed
-                      , pFont = "xft:DejaVu Sans Mono-8"
-                      , pDim = "#7f7f7f"
-                      , pBorder = "#000000" -- zenburnBackLight
-                      , pForeground = zenburnFg
-                      , pBackground = doomBack -- zenburnBack
-                      , pAlpha = 255
-                      , pIconRoot = icons "dark"
-                      , pIsLight = False
-                      , pWm = Nothing
-                      }
-
-palette :: IO Palette
-palette = do
-  light <- lightTheme
-  wm <- lookupEnv "wm"
-  let p = if light then lightPalette else darkPalette
-  return $ p {pWm = wm}
-
-baseConfig :: Palette -> Config
-baseConfig p = defaultConfig {
-  font = pFont p
-  , borderColor = pBorder p
-  , fgColor = pForeground p
-  , bgColor = pBackground p
-  , additionalFonts = [ "xft:Symbola-9"
-                      , "xft:Symbola-10"
-                      , "xft:Symbola-11"
-                      , "xft:Symbola-11"
-                      , "xft:Symbola-12"
-                      , "xft:FontAwesome-10"
-                      , "xft:FontAwesome-9"]
-
-  , border = NoBorder
-  , alpha = pAlpha p
-  , overrideRedirect = True
-  , lowerOnStart = True
-  , hideOnStart = False
-  , allDesktops = True
-  , persistent = True
-  , sepChar = "|"
-  , alignSep = "{}"
-  , iconRoot = pIconRoot p
-  }
-
-(<~>) :: Palette -> [String] -> [String]
-(<~>) p args =
-  args ++ [ "--low", pLow p , "--normal", pNormal p , "--high", pHigh p]
-
-(>~<) :: Palette -> [String] -> [String]
-(>~<) p args =
-  args ++ [ "--low", pHigh p , "--normal", pNormal p , "--high", pLow p]
-
-mkArgs :: Palette -> [String] -> [String] -> [String]
-mkArgs p args extra = concat [p <~> args, ["--"], extra]
-- 
cgit v1.2.3