From 4d947ab1a3907e42bf51ded588ac088007b19cfe Mon Sep 17 00:00:00 2001 From: qvalentin Date: Sat, 30 Oct 2021 14:51:27 +0200 Subject: [PATCH] make xmobar fancy --- xmonad.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/xmonad.hs b/xmonad.hs index b909191..9cc1cf2 100644 --- a/xmonad.hs +++ b/xmonad.hs @@ -93,6 +93,7 @@ import XMonad.Util.Ungrab (unGrab) import XMonad.Util.WorkspaceCompare (getSortByIndex) import XMonad.Layout (Resize(Expand,Shrink) ) import XMonad.Layout.NoBorders +import XMonad.Layout.Named (named) main :: IO () main = do @@ -141,7 +142,7 @@ main = do myXmobarPP :: [String] -> PP myXmobarPP colors = def - { ppSep = walXmobarColor 1 " • ", + { ppSep = walXmobarColor 1 " \63617 ", ppTitleSanitize = xmobarStrip, ppCurrent = wrap " " "" . xmobarBorder "Top" (colors !! 6) 2, ppHidden = white . wrap " " "", @@ -153,8 +154,8 @@ myXmobarPP colors = ppSort = hideWorkspaces } where - formatFocused = wrap (white "[") (white "]") . walXmobarColor 7 . ppWindow - formatUnfocused = wrap (lowWhite "[") (lowWhite "]") . walXmobarColor 4 . ppWindow + formatFocused = wrap (walXmobarColor 7 "\58279") (walXmobarColor 7 "\58254") . walXmobarColor 7 . ppWindow + formatUnfocused = wrap (walXmobarColor 4 "\58279") (walXmobarColor 4 "\58254") . walXmobarColor 4 . ppWindow walXmobarColor index = xmobarColor (colors !! index) "" ppWindow :: String -> String ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 30 @@ -197,7 +198,7 @@ myWorkspaces :: [String] myWorkspaces = show <$> ([1 .. 9] ::[Integer] ) myLayout = smartBorders $ windowNavigation tiled ||| smartBorders Full ||| Mirror tiled where - tiled = mySpacing' 8 $ Tall nmaster delta ratio + tiled = named "Tall" $ mySpacing' 8 $ Tall nmaster delta ratio nmaster = 1 -- Default number of windows in the master pane ratio = 1 / 2 -- Default proportion of screen occupied by master pane delta = 3 / 100 -- Percent of screen to increment by when resizing panes