xmonad: remove count in PP for xmobar

nix/configurations/vanadium/home/xmonad/xmonad.hs

@@ -26,7 +26,6 @@ import XMonad.Util.NamedScratchpad
 import XMonad.Util.SpawnOnce
 import XMonad.Layout.Magnifier
 
-import Data.Function
 import Data.Char.Greek
 import Data.Ratio
 import Data.Semigroup
@@ -357,33 +356,15 @@ fullFloat        = W.RationalRect     0     0     1     1
 buttomRightFloat = W.RationalRect (1%2) (1%2) (1%2) (1%2)
 
 xmobarConfig :: StatusBarConfig
-xmobarConfig = statusBarProp "xmobar -x 0" myPrettyPrinter
+xmobarConfig = statusBarProp "xmobar -x 0" (pure myPrettyPrinter)
   where
-    mkPpCurrent :: X (String -> String)
-    mkPpCurrent = do
-      windowCount <- gets $ length . W.integrate' . W.stack . W.workspace . W.current . windowset
-      pure $ \wid ->
-        wid <> (if windowCount > 1 then ":" <> show windowCount else mempty)
-        & xmobarColor "#000000" "#ffffff" . wrap " " " "
-
-    mkPpHidden :: X (String -> String)
-    mkPpHidden = do
-      m <- gets $ M.fromList . map (\x -> (W.tag x, length . W.integrate' . W.stack $ x)) . W.hidden . windowset
-      pure $ \wid ->
-        let windowCount = m M.! wid
-        in  wid <> (if windowCount > 1 then ":" <> show windowCount else mempty)
-            & xmobarColor "#ffffff" ""
-
-    myPrettyPrinter :: X PP
-    myPrettyPrinter = do
-      myPpCurrent <- mkPpCurrent
-      myPpHidden <- mkPpHidden
-      pure
-        $ filterOutWsPP [scratchpadWorkspaceTag]
+    myPrettyPrinter :: PP
+    myPrettyPrinter =
+      filterOutWsPP [scratchpadWorkspaceTag]
       $ def
-          { ppCurrent         = myPpCurrent
+        { ppCurrent         = xmobarColor "#000000" "#ffffff" . wrap " " " "
         , ppHiddenNoWindows = xmobarColor "#9c9c9c" "" . const "⋅"
-          , ppHidden          = myPpHidden
+        , ppHidden          = xmobarColor "#ffffff" ""
         , ppSep             = " | "
         }