diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/app/Main.hs b/app/Main.hs index 573e6a1..f12d0d0 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -187,16 +187,16 @@ createWindow args = do Ui $ intercalate [pure (lit " ")] $ [ [lit <$> wmWorkspaces], - [lit <$> wmName, pure fill], + [litShrink <$> wmName, pure fill], [pure (lit (if args.icons then "\xf4bc " else "cpu ")), lit <$> cpu], [pure (lit (if args.icons then "\xf035b " else "mem ")), lit <$> mem], [pure (lit (if args.icons then "\xf0a0 " else "disk ")), lit <$> disk], [pure (lit (if args.icons then "\xf1638 " else "io ")), lit <$> io], [pure (lit (if args.icons then "\xf0200 " else "net ")), lit <$> net], - [pure (lit " "), lit <$> Sensor.snd], - [pure (lit " "), lit <$> thermal], + [pure (lit " "), lit <$> Sensor.snd, pure (lit " ")], + [pure (lit (if args.icons then "\xf2cb " else "temp ")), lit <$> thermal], [pure (lit " "), lit <$> bat], - [lit <$> weatherForecast], + -- [lit <$> weatherForecast], [pure (lit " "), lit <$> date, pure (lit ", "), lit <$> time] ] xcolors <- do |