From 1641bd4a7b8276a4bb10f404a6315a3d5fc519fb Mon Sep 17 00:00:00 2001
From: Stefan Ellmauthaler <stefan.ellmauthaler@tu-dresden.de>
Date: Tue, 16 May 2023 14:37:12 +0200
Subject: [PATCH] Use Sanitized title name in polybar

---
 users/ellmau/conf/xmonad/xmonad.hs | 37 +-----------------------------
 1 file changed, 1 insertion(+), 36 deletions(-)

diff --git a/users/ellmau/conf/xmonad/xmonad.hs b/users/ellmau/conf/xmonad/xmonad.hs
index 57162dc..1e88779 100644
--- a/users/ellmau/conf/xmonad/xmonad.hs
+++ b/users/ellmau/conf/xmonad/xmonad.hs
@@ -37,41 +37,6 @@ main' :: D.Client -> IO ()
 main = mkDbusClient >>= main'
 
 workSpaces = ["code", "web", "misc", "comm"] ++ map show ([5 .. 9] ++ [0])
-layout :: XMonad.Layout.LayoutModifier.ModifiedLayout
-  SmartBorder
-  (XMonad.Layout.LayoutModifier.ModifiedLayout
-     AvoidStruts
-     (PerWorkspace
-        (Choose
-           (XMonad.Layout.LayoutModifier.ModifiedLayout Rename ThreeCol)
-           (Choose
-              Tall
-              (Choose
-                 (Mirror Tall)
-                 (Choose
-                    Grid
-                    (Choose
-                       Full
-                       (XMonad.Layout.LayoutModifier.ModifiedLayout
-                          (XMonad.Layout.Decoration.Decoration
-                             TabbedDecoration XMonad.Layout.Decoration.DefaultShrinker)
-                          XMonad.Layout.Simplest.Simplest))))))
-        (Choose
-           Tall
-           (Choose
-              (Mirror Tall)
-              (Choose
-                 Grid
-                 (Choose
-                    Full
-                    (Choose
-                       (XMonad.Layout.LayoutModifier.ModifiedLayout
-                          (XMonad.Layout.Decoration.Decoration
-                             TabbedDecoration XMonad.Layout.Decoration.DefaultShrinker)
-                          XMonad.Layout.Simplest.Simplest)
-                       (XMonad.Layout.LayoutModifier.ModifiedLayout
-                          Rename ThreeCol))))))))
-  Window
 layout = smartBorders $ avoidStruts $
   onWorkspace "comm" (threemid ||| tall ||| Mirror tall  ||| Grid ||| Full ||| simpleTabbed) $
   (tall ||| Mirror tall  ||| Grid ||| Full ||| simpleTabbed ||| threemid)
@@ -199,7 +164,7 @@ polybarHook dbus =
           , ppUrgent          = wrapper highlighted $ Just urgent
           , ppHidden          = wrapper free Nothing
           , ppHiddenNoWindows = mempty
-          , ppTitle           = wrapper title Nothing . shorten 60
+          , ppTitleSanitize   = wrapper title Nothing . shorten 60
           }
 
 fadeHook :: Rational -> Rational -> X ()