better dark colors

4 files changed, 18 insertions, 16 deletions

diff --git a/src/lib/Bottom.hs b/src/lib/Bottom.hs
index 3cc4d85..a6a79c4 100644
--- a/src/lib/Bottom.hs
+++ b/src/lib/Bottom.hs
@@ -24,7 +24,7 @@ config cs tpl p = (baseConfig p) {
                , Run (wireless p "wlp1s0")
                , Run (dynNetwork p)
                , Run tun0
-               , Run (weather "EGPH") -- LEGE, LEBL, KCV0
+               , Run (weather "EGPH" p) -- LEGE, LEBL, KCV0
                , Run trayPadding
                , Run mail
                , Run masterVol
diff --git a/src/lib/Config.hs b/src/lib/Config.hs
index 8f05a88..59d9f3d 100644
--- a/src/lib/Config.hs
+++ b/src/lib/Config.hs
@@ -17,6 +17,7 @@ data Palette = Palette { pNormal :: String
                        , pBackground :: String
                        , pAlpha :: Int
                        , pIconRoot :: String
+                       , pIsLight :: Bool
                        }
 
 lightTheme :: IO Bool
@@ -32,19 +33,21 @@ lightPalette = Palette { pNormal = "black"
                        , pBackground = "white"
                        , pAlpha = 255
                        , pIconRoot = "/home/jao/.xmobar/icons/light"
+                       , pIsLight = True
                        }
 
 darkPalette :: Palette
-darkPalette = Palette { pNormal = "grey60"
-                      , pLow = "gray50"
+darkPalette = Palette { pNormal = "gray77"
+                      , pLow = "gray60"
                       , pHigh = "#a0522d"
-                      , pFont = "xft:Source Code Pro Medium-10"
+                      , pFont = "xft:Source Code Pro Medium-9"
                       -- , pFont = "xft:NotoMono-9,xft:Inconsolata-11"
                       , pBorder = "grey30"
-                      , pForeground = "grey60"
-                      , pBackground = "black"
-                      , pAlpha = 0
+                      , pForeground = "grey77" -- "grey60"
+                      , pBackground = "#2B2B2B" -- "black"
+                      , pAlpha = 255
                       , pIconRoot = "/home/jao/.xmobar/icons/dark"
+                      , pIsLight = False
                       }
 
 palette :: IO Palette
diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs
index 42f0966..c0a890c 100644
--- a/src/lib/Monitors.hs
+++ b/src/lib/Monitors.hs
@@ -76,7 +76,7 @@ uptime p = Uptime (p <~> [ "-t" , "<days> <hours>", "-m", "3", "-c", "0", "-S"
                          , "On" , "-L", "10", "-H", "100"]) 600
 
 -- 🌧
-weather st =
+weather st p =
   WeatherX st
            [ ("", "<fc=gray60><fn=4>🌑</fn></fc>")
            , ("clear", "<fn=4>🌣</fn>")
@@ -91,9 +91,8 @@ weather st =
            , ("partly cloudy", "<fn=3>⛅</fn>")
            , ("mostly cloudy", "<fn=3>☁</fn>")
            , ("considerable cloudiness", "<fn=4>⛈</fn>")]
-           ["-t", "<skyConditionS> <tempC>° <rh>%  <windKmh> (<hour>)"
-           , "-L","10", "-H", "25", "--normal", "black"
-           , "--high", "lightgoldenrod4", "--low", "darkseagreen4"]
+           (p <~> ["-t", "<skyConditionS> <tempC>° <rh>%  <windKmh>"
+                  , "-L","10", "-H", "25"])
            18000
 
 batt p =
@@ -166,7 +165,7 @@ masterVol =
   Volume "default" "Master"
                   ["-t", "<status> <volume>"
                   , "--", "-C", "black", "-c", "sienna4"
-                  , "-O", "<fn=1>🎧</fn>"
+                  , "-O", "<fn=4>🎧</fn>"
                   , "-o", "<fn=4>🔇</fn>"] 10
 
 captureVol = Volume "default" "Capture" ["-t", "<volume>"] 10
diff --git a/src/lib/Music.hs b/src/lib/Music.hs
index fa6e278..304a1fc 100644
--- a/src/lib/Music.hs
+++ b/src/lib/Music.hs
@@ -5,14 +5,14 @@ import Monitors
 import qualified Bottom
 import Config (defaultHeight)
 
-mpris client =
+mpris client width =
   Mpris2 client -- "clementine" --
          ["-t", " <fn=0><tracknumber>\
                 \ <title> <fc=sienna4><artist></fc>\
                 \ <album> <length></fn>"
-         , "-T", "165", "-E", "...", "-M", "100", "-x", ""] 10
+         , "-T", show width, "-E", "...", "-M", "100", "-x", ""] 10
 
-mprisConfig client p = Bottom.config [Run (mpris client)] "|mpris2|" p
+mprisConfig client p = Bottom.config [Run (mpris client 165)] "|mpris2|" p
 
 mpd = MPD [ "-W", "12", "-b", "░", "-f", "▒", "-t"
           , " <lapsed> <fc=honeydew3><fn=5><bar></fn></fc>"] 10 -- fn=5
@@ -31,7 +31,7 @@ mpdConfig p = (Bottom.config [Run mpd, Run (autoMPD "150")] "|mpd| |autompd|" p)
   }
 
 compMPD = concatMonitor " " mpd (autoMPD "150")
-alt x = altMonitor (mpris x) compMPD
+alt x = altMonitor (mpris x 165) compMPD
 
 config cl =
   if cl == "mpd"