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