Update xmonad config

master
Hektor Misplon 2023-05-04 23:57:30 +02:00
parent a68cb91717
commit 82b6187cd6
1 changed files with 15 additions and 14 deletions

View File

@ -32,7 +32,7 @@ import XMonad.Util.Ungrab
myXmobarPP :: PP myXmobarPP :: PP
myXmobarPP = myXmobarPP =
def def
{ ppSep = tertiaryColor " | ", { ppSep = tertiaryColor " ",
ppCurrent = brackitify, ppCurrent = brackitify,
ppHidden = secondaryColor, ppHidden = secondaryColor,
ppHiddenNoWindows = tertiaryColor, ppHiddenNoWindows = tertiaryColor,
@ -52,8 +52,8 @@ myXmobarPP =
ppExtras = [logTitles formatFocused formatUnfocused] ppExtras = [logTitles formatFocused formatUnfocused]
} }
where where
brackitify = wrap "[" "]" brackitify = wrap "" ""
formatFocused = secondaryColor . brackitify . ppWindow formatFocused = secondaryColor . ppWindow
formatUnfocused = tertiaryColor . ppWindow formatUnfocused = tertiaryColor . ppWindow
ppWindow = xmobarRaw . (\w -> if null w then "Untitled" else w) . shorten 16 ppWindow = xmobarRaw . (\w -> if null w then "Untitled" else w) . shorten 16
@ -83,16 +83,17 @@ myManageHook =
-- layoutHook -- layoutHook
myLayoutHook = myLayoutHook =
smartBorders $ -- smartBorders $
-- Column layouts -- Tiled layouts
threeCol tiled
||| threeColMid -- -- Note: magnifier is off by default
-- Tiled layouts -- -- (controllable usingarrow keys)
-- Note: magnifier is off by default -- ||| magnifiercz magnificationFactorH tiled
-- (controllable usingarrow keys) -- ||| magnifiercz magnificationFactorV (Mirror tiled)
||| magnifiercz magnificationFactorH tiled
||| magnifiercz magnificationFactorV (Mirror tiled)
-- Single window / monocle layout -- Single window / monocle layout
-- Column layouts
-- ||| threeColMid
-- Monocle layouts
||| Full ||| Full
where where
magnificationFactorV = 1.384 magnificationFactorV = 1.384
@ -119,8 +120,8 @@ myConfig =
"etc" "etc"
], ],
-- Styling -- Styling
focusedBorderColor = "#888", focusedBorderColor = "#000",
normalBorderColor = "#000", normalBorderColor = "#0000",
borderWidth = 2, borderWidth = 2,
-- Hooks -- Hooks
manageHook = myManageHook <+> manageHook def, manageHook = myManageHook <+> manageHook def,