diff options
| author | jao <jao@gnu.org> | 2021-02-25 22:08:48 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-02-25 22:08:48 +0000 |
| commit | e8f3969bd44ef71bf479693e32f07f356278c47c (patch) | |
| tree | 1f0e4157f4b8eb8f1fca6c8b21478b7b86749fc3 | |
| parent | 4de0e15f9e7f1022afa8b74479ec66b867d50398 (diff) | |
| download | xmobar-config-e8f3969bd44ef71bf479693e32f07f356278c47c.tar.gz xmobar-config-e8f3969bd44ef71bf479693e32f07f356278c47c.tar.bz2 | |
weather and transparency
| -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 |