qvalentin
/
xmonad
1
1
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

change border width

This commit is contained in:
qvalentin 2021-09-21 15:45:44 +02:00
parent 90fd606fb3
commit 949a7b7021
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
xmonad.hs
View File

@ -25,8 +25,9 @@ main = do
{ modMask = mod4Mask, { modMask = mod4Mask,
terminal = "st", terminal = "st",
startupHook = myStartupHook, startupHook = myStartupHook,
normalBorderColor = colors !! 10, borderWidth = 2,
focusedBorderColor = colors !! 12, normalBorderColor = "#000000",
focusedBorderColor = colors !! 7,
workspaces = myWorkspaces, workspaces = myWorkspaces,
manageHook = myManageHook, manageHook = myManageHook,
layoutHook = myLayout layoutHook = myLayout
@ -46,9 +47,9 @@ main = do
myXmobarPP :: [String] -> PP myXmobarPP :: [String] -> PP
myXmobarPP colors = myXmobarPP colors =
def def
{ ppSep = magenta " • ", { ppSep = walXmobarColor 1 " • ",
ppTitleSanitize = xmobarStrip, ppTitleSanitize = xmobarStrip,
ppCurrent = wrap " " "" . xmobarBorder "Top" "#8be9fd" 2, ppCurrent = wrap " " "" . xmobarBorder "Top" (colors!!6) 2,
ppHidden = white . wrap " " "", ppHidden = white . wrap " " "",
ppHiddenNoWindows = white . wrap " " "", ppHiddenNoWindows = white . wrap " " "",
ppUrgent = red . wrap (yellow "!") (yellow "!"), ppUrgent = red . wrap (yellow "!") (yellow "!"),
@ -57,15 +58,13 @@ myXmobarPP colors =
ppSort = hideWorkspaces ppSort = hideWorkspaces
} }
where where
formatFocused = wrap (white "[") (white "]") . (xmobarColor (colors !! 7) "") . ppWindow formatFocused = wrap (white "[") (white "]") . walXmobarColor 7. ppWindow
formatUnfocused = wrap (lowWhite "[") (lowWhite "]") . (xmobarColor (colors !! 4) "") . ppWindow formatUnfocused = wrap (lowWhite "[") (lowWhite "]") .walXmobarColor 4. ppWindow
walXmobarColor index = xmobarColor (colors!!index) ""
ppWindow :: String -> String ppWindow :: String -> String
ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 30 ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 30
blue, lowWhite, magenta, red, white, yellow :: String -> String lowWhite, red, white, yellow :: String -> String
magenta = xmobarColor "#ff79c6" ""
blue = xmobarColor "#bd93f9" ""
white = xmobarColor "#f8f8f2" "" white = xmobarColor "#f8f8f2" ""
yellow = xmobarColor "#f1fa8c" "" yellow = xmobarColor "#f1fa8c" ""
red = xmobarColor "#ff5555" "" red = xmobarColor "#ff5555" ""
@ -96,7 +95,7 @@ getWalColors = do
return (colors ++ replicate (16 - length colors) "#000000") return (colors ++ replicate (16 - length colors) "#000000")
mySpacing' :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a mySpacing' :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True mySpacing' i = spacingRaw True (Border i 0 i i) True (Border i 0 i i) True
--myWorkspaces = [" dev ", " www ", " sys ", " doc ", " vbox ", " chat ", " mus ", " vid ", " gfx "] --myWorkspaces = [" dev ", " www ", " sys ", " doc ", " vbox ", " chat ", " mus ", " vid ", " gfx "]
myWorkspaces :: [String] myWorkspaces :: [String]