diff options
| -rw-r--r-- | src/TopC.hs | 12 | ||||
| -rw-r--r-- | src/lib/Monitors.hs | 9 |
2 files changed, 13 insertions, 8 deletions
diff --git a/src/TopC.hs b/src/TopC.hs index 894fd98..4a190e0 100644 --- a/src/TopC.hs +++ b/src/TopC.hs @@ -61,7 +61,7 @@ config p = (baseConfig p) { defaultHeight - 6, defaultHeight - 8, defaultHeight - 8, defaultHeight - 8] , border = FullB - , alpha = 255 + , alpha = 229 , commands = [ Run (topProcL p) , Run m , Run (thinkTemp p) @@ -80,8 +80,8 @@ config p = (baseConfig p) { , Run captureVol , Run laTime , Run localTime - -- , Run w -- LEGE, LEBL, KCV0 - , Run (ComX "curl" [wttrURL "Edinburgh"] "" "wttr" 18000) + , Run w -- LEGE, LEBL, KCV0 + -- , Run (ComX "curl" [wttrURL "Edinburgh"] "" "wttr" 18000) ] , template = " " ++ "|batt0| " @@ -92,8 +92,8 @@ config p = (baseConfig p) { ++ " |default:Master| " ++ dimi "\xf130" ++ " |default:Capture|" ++ "</action> " ++ ma - -- ++ " |EGPH| " - ++ " |wttr|" + ++ " |EGPH| " + -- ++ " |wttr|" ++ " {} " ++ fc (pHigh p) "|elog|" ++ "|kbd| " @@ -108,7 +108,7 @@ config p = (baseConfig p) { } where dimi = fc (pDim p) . fni m = music ma = " |" ++ alias m ++ "| " --- w = (weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p) + w = (weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p) main :: IO () main = palette >>= configFromArgs . config >>= xmobar diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs index adc0ae9..c96666c 100644 --- a/src/lib/Monitors.hs +++ b/src/lib/Monitors.hs @@ -76,7 +76,6 @@ dynNetwork p = DynNetwork (p <~> ["-t", fn 1 "↑ " ++ "<tx> " ++ fn 1 "↓" ++ uptime p = Uptime (p <~> [ "-t" , "<days> <hours>", "-m", "3", "-c", "0", "-S" , "On" , "-L", "10", "-H", "100"]) 600 --- 🌧 weather' tmp st p = WeatherX st [ ("", fc (pDim p) $ fni "\xf185") @@ -91,7 +90,13 @@ weather' tmp st p = , ("overcast", fn 3 "☁") , ("partly cloudy", fn 3 "⛅") , ("mostly cloudy", fn 3 "☁") - , ("considerable cloudiness", fn 4 "⛈")] + , ("considerable cloudiness", fn 4 "⛈") + , ("light rain", fn 4 "🌧") + , ("rain", fn 4 "⛆") + , ("ice crystals", fn 3 "❄") + , ("light snow", fn 3 "🌨") + , ("snow", fn 3 "❄") + ] (mkArgs p ["-t", tmp , "-L","10", "-H", "25"] ["-w", ""]) 18000 |