1
0
mirror of https://github.com/ellmau/nixos.git synced 2025-12-19 09:29:36 +01:00

Use Sanitized title name in polybar

This commit is contained in:
Stefan Ellmauthaler 2023-05-16 14:37:12 +02:00
parent 487267ef2f
commit 1641bd4a7b
Failed to extract signature

View File

@ -37,41 +37,6 @@ main' :: D.Client -> IO ()
main = mkDbusClient >>= main' main = mkDbusClient >>= main'
workSpaces = ["code", "web", "misc", "comm"] ++ map show ([5 .. 9] ++ [0]) 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 $ layout = smartBorders $ avoidStruts $
onWorkspace "comm" (threemid ||| tall ||| Mirror tall ||| Grid ||| Full ||| simpleTabbed) $ onWorkspace "comm" (threemid ||| tall ||| Mirror tall ||| Grid ||| Full ||| simpleTabbed) $
(tall ||| Mirror tall ||| Grid ||| Full ||| simpleTabbed ||| threemid) (tall ||| Mirror tall ||| Grid ||| Full ||| simpleTabbed ||| threemid)
@ -199,7 +164,7 @@ polybarHook dbus =
, ppUrgent = wrapper highlighted $ Just urgent , ppUrgent = wrapper highlighted $ Just urgent
, ppHidden = wrapper free Nothing , ppHidden = wrapper free Nothing
, ppHiddenNoWindows = mempty , ppHiddenNoWindows = mempty
, ppTitle = wrapper title Nothing . shorten 60 , ppTitleSanitize = wrapper title Nothing . shorten 60
} }
fadeHook :: Rational -> Rational -> X () fadeHook :: Rational -> Rational -> X ()