diff options
Diffstat (limited to '.config')
| -rw-r--r-- | .config/XMonad/xmonad.hs | 87 |
1 files changed, 56 insertions, 31 deletions
diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs index be87a4f..c07282d 100644 --- a/.config/XMonad/xmonad.hs +++ b/.config/XMonad/xmonad.hs @@ -121,7 +121,33 @@ myTreeMenu a = TS.treeselectAction a ] ] -myKeys = [ +sGap = 4 -- screen gap +wGap = 10 -- window gap + +myGap = spacingRaw True (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True +myGap' = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True + +main :: IO () +main = do + xmonad $ ewmh $ docks $ fullscreenSupport def { + focusFollowsMouse = True + , borderWidth = 2 + , modMask = myModMask + , workspaces = myWorkspaces + , normalBorderColor = "#130F23" + , focusedBorderColor = "#BF00FF" + , layoutHook = avoidStruts $ maximize $ windowNavigation $ smartBorders $ myGap $ ( + emptyBSP ||| tabbed shrinkText myTabTheme ||| emptyBSP ||| Grid) + , manageHook = namedScratchpadManageHook myScratchpads <+> manageDocks + , startupHook = do + spawnOnce "polybar mybar" + setWMName "LG3D" + setDefaultCursor xC_left_ptr +} `additionalMouseBindings` [ + ((altMask, 2), \w -> kill1) + , ((myModMask, 4), \w -> prevWS) + , ((myModMask, 5), \w -> nextWS) + ] `additionalKeys` ([ ((myModMask, xK_Return), spawn ("prime-run alacritty")) , ((0, xK_Print), spawn (myScreenshot)) , ((myModMask .|. shiftMask, xK_Return), spawn (myScreenshot)) @@ -157,11 +183,29 @@ myKeys = [ -- view prev/next workspaces , ((altMask, xK_h), prevWS) , ((altMask, xK_l), nextWS) + -- do the same without the evil alt key (might remove either pair later) + , ((myModMask, xK_comma), prevWS) + , ((myModMask, xK_period), nextWS) -- move to prev/next workspaces , ((altMask .|. shiftMask, xK_h), shiftToPrev >> prevWS) , ((altMask .|. shiftMask, xK_l), shiftToNext >> nextWS) - + -- do the same without the evil alt key (might remove either pair later) + , ((myModMask .|. shiftMask, xK_comma), shiftToPrev >> prevWS) + , ((myModMask .|. shiftMask, xK_period), shiftToNext >> nextWS) + + -- focus previous.next monitor + , ((myModMask, xK_bracketleft), prevScreen) + , ((myModMask, xK_bracketright), nextScreen) + + -- move window to previous/next monitor + , ((myModMask .|. shiftMask, xK_bracketleft), shiftPrevScreen >> prevScreen) + , ((myModMask .|. shiftMask, xK_bracketright), shiftNextScreen >> nextScreen) + + -- swap different screens + , ((myModMask .|. controlMask, xK_bracketleft), swapPrevScreen) + , ((myModMask .|. controlMask, xK_bracketright), swapNextScreen) + , ((myModMask, xK_backslash), sendMessage ToggleStruts) -- toggle both bars , ((myModMask, xK_f), withFocused (sendMessage . maximizeRestore)) -- toggle maximize @@ -210,35 +254,16 @@ myKeys = [ ] ++ [ -- sticky-ing windows ((myModMask, xK_v), windows copyToAll) -- make window visible on all screens , ((myModMask .|. shiftMask, xK_v), killAllOtherCopies) - ] - -sGap = 4 -- screen gap -wGap = 10 -- window gap - -myGap = spacingRaw True (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True -myGap' = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True - -main :: IO () -main = do - xmonad $ ewmh $ docks $ fullscreenSupport def { - focusFollowsMouse = True - , borderWidth = 2 - , modMask = myModMask - , workspaces = myWorkspaces - , normalBorderColor = "#130F23" - , focusedBorderColor = "#BF00FF" - , layoutHook = avoidStruts $ maximize $ windowNavigation $ smartBorders $ myGap $ ( - emptyBSP ||| tabbed shrinkText myTabTheme ||| emptyBSP ||| Grid) - , manageHook = namedScratchpadManageHook myScratchpads <+> manageDocks - , startupHook = do - spawnOnce "polybar mybar" - setWMName "LG3D" - setDefaultCursor xC_left_ptr -} `additionalMouseBindings` [ - ((altMask, 2), \w -> kill1) - , ((myModMask, 4), \w -> prevWS) - , ((myModMask, 5), \w -> nextWS) - ] `additionalKeys` myKeys `additionalKeysP` [ + ] ++ [ -- for not swapping tags while using multihead + ((m .|. myModMask, k), windows $ f i) + | (i, k) <- zip myWorkspaces [xK_1 .. xK_9] + , (f, m) <- [(W.view, 0), (W.shift, shiftMask)] + ] -- ++ [ -- focus different monitors +-- ((m .|. myModMask, key), screenWorkspace sc >>= flip whenJust (windows . f)) +-- | (key, sc) <- zip [xK_bracketleft, xK_bracketright] [1,0] -- was [0..] *** change to match your screen order *** +-- , (f, m) <- [(W.view, 0), (W.shift, shiftMask)] +-- ] + ) `additionalKeysP` [ ("M-i l", runOrCopy "librewolf" (className =? "Librewolf")) , ("M-i S-l", spawn "librewolf") , ("M-i b", spawn "brave") |