more font shuffling

1 files changed, 13 insertions, 13 deletions

diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs
index fffce7d..2c12d7b 100644
--- a/src/lib/Monitors.hs
+++ b/src/lib/Monitors.hs
@@ -62,18 +62,18 @@ uptime p = Uptime (p <~> [ "-t" , "<days> <hours>", "-m", "3", "-c", "0", "-S"
 
 weather st =
   WeatherX st
-           [ ("clear", "🌣")
-           , ("sunny", "🌣")
-           , ("mostly clear", "🌤")
-           , ("mostly sunny", "🌤")
-           , ("partly sunny", "⛅")
-           , ("fair", "🌑")
-           , ("cloudy","☁")
-           , ("overcast","☁")
-           , ("partly cloudy", "⛅")
-           , ("mostly cloudy", "🌧")
-           , ("considerable cloudiness", "⛈")]
-           ["-t", "<fn=3><skyConditionS></fn> <tempC>° <rh>%  <windKmh> (<hour>)"
+           [ ("clear", "<fn=4>🌣</fn>")
+           , ("sunny", "<fn=4>🌣</fn>")
+           , ("mostly clear", "<fn=4>🌤</fn>")
+           , ("mostly sunny", "<fn=4>🌤</fn>")
+           , ("partly sunny", "<fn=3>⛅</fn>")
+           , ("fair", "<fn=4>🌑</fn>")
+           , ("cloudy","<fn=3>☁</fn>")
+           , ("overcast","<fn=3>☁</fn>")
+           , ("partly cloudy", "<fn=3>⛅</fn>")
+           , ("mostly cloudy", "<fn=4>🌧</fn>")
+           , ("considerable cloudiness", "<fn=4>⛈</fn>")]
+           ["-t", "<skyConditionS> <tempC>° <rh>%  <windKmh> (<hour>)"
            , "-L","10", "-H", "25", "--normal", "black"
            , "--high", "lightgoldenrod4", "--low", "darkseagreen4"]
            18000
@@ -105,7 +105,7 @@ diskU p =
 diskIO p =
   DiskIO [("dm-1"
 --          , "<fn=1>⎗</fn> <readb> <fn=1>⎘</fn> <writeb> <fn=1><totalbbar></fn>")
-          , "<readb> <writeb> <fn=1><totalbbar></fn>")
+          , "<readb> <writeb> <fn=0><totalbbar></fn>")
          ]
          (p <~> ["-f", "░", "-b", " ", "-L", "200000", "-H" , "10000000"
                 , "-W", "5", "-w", "5", "-p", "3"])