From 318ce5d54950aea41bb2f3bfce73658a03bc691a Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 5 Dec 2019 01:16:59 +0000
Subject: little tweaks for xmobar-exwm

---
 src/lib/Config.hs   | 2 +-
 src/lib/Monitors.hs | 9 +++++----
 src/lib/Music.hs    | 3 +++
 3 files changed, 9 insertions(+), 5 deletions(-)

(limited to 'src/lib')

diff --git a/src/lib/Config.hs b/src/lib/Config.hs
index 119a4e5..a8a8dc1 100644
--- a/src/lib/Config.hs
+++ b/src/lib/Config.hs
@@ -42,7 +42,7 @@ lightPalette = Palette { pNormal = "black"
 zenburnRed = "#CC9393"
 zenburnBack = "#2B2B2B"
 zenburnBackLight = "#383838"
-zenburnFg = "#DCDCCC"
+zenburnFg = "#989890" -- "#DCDCCC"
 zenburnYl = "#F0DFAF"
 zenburnGreen = "#7F9F7F"
 
diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs
index daa59b7..d589ce1 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 p =
+weather' tmp st p =
   WeatherX st
            [ ("", "<fc=gray60><fn=4>🌑</fn></fc>")
            , ("clear", "<fn=4>🌣</fn>")
@@ -91,10 +91,11 @@ weather st p =
            , ("partly cloudy", "<fn=3>⛅</fn>")
            , ("mostly cloudy", "<fn=3>☁</fn>")
            , ("considerable cloudiness", "<fn=4>⛈</fn>")]
-           (p <~> ["-t", "<skyConditionS> <tempC>° <rh>% <windKmh> (<hour>)"
-                  , "-L","10", "-H", "25"])
+           (p <~> ["-t", tmp , "-L","10", "-H", "25"])
            18000
 
+weather = weather' "<skyConditionS> <tempC>° <rh>% <windKmh> (<hour>)"
+
 batt p =
   BatteryN ["BAT0"]
            ["-t", "<acstatus> <left>"
@@ -125,7 +126,7 @@ diskU p =
         20
 
 diskArgs p = mkArgs p
-                ["-f", "░", "-b", " ", "-L", "200000", "-H" , "10000000"
+                ["-f", "░", "-b", " ", "-L", "10000000", "-H" , "100000000"
                 , "-W", "5", "-w", "5", "-p", "3"]
                 ["--total-icon-pattern", "<icon=load_%%.xpm/>"]
 
diff --git a/src/lib/Music.hs b/src/lib/Music.hs
index 304a1fc..0fdb87c 100644
--- a/src/lib/Music.hs
+++ b/src/lib/Music.hs
@@ -4,6 +4,7 @@ import Xmobar
 import Monitors
 import qualified Bottom
 import Config (defaultHeight)
+import GMPDP (GMPDP(..))
 
 mpris client width =
   Mpris2 client -- "clementine" --
@@ -33,6 +34,8 @@ mpdConfig p = (Bottom.config [Run mpd, Run (autoMPD "150")] "|mpd| |autompd|" p)
 compMPD = concatMonitor " " mpd (autoMPD "150")
 alt x = altMonitor (mpris x 165) compMPD
 
+gpmd = Run (GMPDP "gmpdp")
+
 config cl =
   if cl == "mpd"
   then mpdConfig
-- 
cgit v1.2.3