aboutsummaryrefslogtreecommitdiff
path: root/xmonad/.config
diff options
context:
space:
mode:
authorBardofSprites <[email protected]>2025-03-06 18:01:03 -0500
committerBardofSprites <[email protected]>2025-03-06 18:01:03 -0500
commit0f6692c6c0658c52790e3e01030bb633b883e6ed (patch)
treea23c133f080ec76615ad6c04f01f3f7fa046f9c6 /xmonad/.config
parentead0d556c629d5dd5785cf12cb29a4e1f396a315 (diff)
no gaps, multimon xmobar, tabbed layout
Diffstat (limited to 'xmonad/.config')
-rw-r--r--xmonad/.config/xmonad/xmonad.hs39
1 files changed, 20 insertions, 19 deletions
diff --git a/xmonad/.config/xmonad/xmonad.hs b/xmonad/.config/xmonad/xmonad.hs
index 5b35fc3..74c7db1 100644
--- a/xmonad/.config/xmonad/xmonad.hs
+++ b/xmonad/.config/xmonad/xmonad.hs
@@ -23,16 +23,18 @@ import XMonad.Hooks.EwmhDesktops
main :: IO()
main = do
- xmproc <- spawnPipe "xmobar"
+ nScreens <- countScreens
+ xmprocs <- mapM (\s -> spawnPipe $ "xmobar -x " ++ show s) [0 .. (nScreens - 1)]
+ xmprocs' <- mapM (\s -> spawnPipe $ "xmobar -x " ++ show s) [0 .. (nScreens - 1)] -- Second set of bars
xmonad
. ewmhFullscreen
. ewmh
- $ myConfig xmproc
+ $ myConfig (xmprocs ++ xmprocs')
term :: String
term = "st"
--- Gruber Darker Colors (using your provided theme)
+-- Gruber Darker Colors
fg = "#e4e4ef"
bg = "#181818"
bg_alt = "#282828"
@@ -42,23 +44,22 @@ yellow = "#ffdd33"
orange = "#cc8c3c"
wisteria = "#9e95c7"
-myConfig xmproc = def
+myConfig xmprocs = def
{
modMask = mod4Mask
- , layoutHook = spacingRaw False (Border 15 5 5 5) True (Border 15 5 5 5) True
- $ myLayout
+ , layoutHook = avoidStruts $ myLayout
, workspaces = myWorkspaces
- , logHook = dynamicLogWithPP xmobarPP
- { ppOutput = hPutStrLn xmproc
- , ppTitle = xmobarColor green "" . shorten 50
- , ppLayout = const "" -- Hide layout name
- , ppSep = " | "
- , ppCurrent = xmobarColor orange "" . wrap "[" "]" -- Focused workspace with brackets
- , ppVisible = wrap "[" "]" -- Visible workspaces with brackets
- , ppHidden = \ws -> if ws == "NSP" then "" else wrap "[" "]" ws -- Hide workspaces with no windows, except for empty ones (NSP = no space)
- , ppHiddenNoWindows = \ws -> "" -- Don't show workspaces with no windows
- , ppUrgent = xmobarColor "red" "" . wrap "!" "!" -- Urgent workspaces
- }
+ , logHook = mapM_ (\xmproc -> dynamicLogWithPP xmobarPP
+ { ppOutput = hPutStrLn xmproc
+ , ppTitle = xmobarColor green "" . shorten 50
+ , ppLayout = xmobarColor wisteria ""
+ , ppSep = " | "
+ , ppCurrent = xmobarColor orange "" . wrap "[" "]"
+ , ppVisible = wrap "[" "]"
+ , ppHidden = \ws -> if ws == "NSP" then "" else wrap "[" "]" ws
+ , ppHiddenNoWindows = \ws -> ""
+ , ppUrgent = xmobarColor "red" "" . wrap "!" "!"
+ }) xmprocs
, borderWidth = 3
, focusedBorderColor = orange -- Focused window border color
, normalBorderColor = bg_alt -- Unfocused window border color
@@ -114,10 +115,10 @@ myKeys =
-- mouse bindings
]
-myLayout = tiled ||| Mirror tiled ||| Full ||| threeCol
+myLayout = tiled ||| Mirror tiled ||| Full ||| tabbedBottom
where
- threeCol = magnifiercz' 1.3 $ ThreeColMid nmaster delta ratio
tiled = 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
+ tabbedBottom = tabbed shrinkText def