diff options
| author | Vidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com> | 2021-01-03 21:20:01 +0530 |
|---|---|---|
| committer | Vidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com> | 2021-01-03 21:20:01 +0530 |
| commit | 2c4b86d0bb2a8dd0379af9fcd15ee71d88b2ea0f (patch) | |
| tree | e0f169f42480cc1119576f655579877481250708 /XMonad/xmonad.hs | |
| parent | 53cbe23a2f96408de569f600a0ec6022f9fe65f0 (diff) | |
added fullscreen layouthook and renamed the layouts
Diffstat (limited to 'XMonad/xmonad.hs')
| -rw-r--r-- | XMonad/xmonad.hs | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/XMonad/xmonad.hs b/XMonad/xmonad.hs index 454dd4c1..bd952eeb 100644 --- a/XMonad/xmonad.hs +++ b/XMonad/xmonad.hs @@ -249,12 +249,13 @@ myGap = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGa myLayouts = avoidStruts ( - renamed [Replace "BSP"] (maximize $ windowNavigation $ myGap $ emptyBSP) - ||| renamed [Replace "ThreeCol Mid"] (maximize $ windowNavigation $ myGap $ ThreeColMid 1 (3/100) (1/2)) - ||| renamed [Replace "Grid"] (maximize $ windowNavigation $ myGap $ Grid) - ||| renamed [Replace "TwoPane"] (maximize $ windowNavigation $ myGap $ TwoPane (3/100) (1/2)) - ||| renamed [Replace "ThreeCol (1)"] (maximize $ windowNavigation $ myGap $ ThreeCol 1 (3/100) (1/2)) - ||| renamed [Replace "ThreeCol (2)"] (maximize $ windowNavigation $ myGap $ ThreeCol 2 (3/100) (1/2)) + renamed [Replace "BSP"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ emptyBSP) + ||| renamed [Replace "ThreeCol Mid (1)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeColMid 1 (3/100) (1/2)) + ||| renamed [Replace "ThreeCol Mid (2)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeColMid 2 (3/100) (1/2)) + ||| renamed [Replace "Grid"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ Grid) + ||| renamed [Replace "TwoPane"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ TwoPane (3/100) (1/2)) + ||| renamed [Replace "ThreeCol (1)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeCol 1 (3/100) (1/2)) + ||| renamed [Replace "ThreeCol (2)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeCol 2 (3/100) (1/2)) ) myLayoutHook = myLayouts @@ -285,7 +286,7 @@ main = do focusedBorderColor = fBorder, -- mouseBindings = myMouseBindings, layoutHook = myLayoutHook, - manageHook = namedScratchpadManageHook myScratchpads, + manageHook = namedScratchpadManageHook myScratchpads <+> fullscreenManageHook, handleEventHook = fullscreenEventHook, logHook = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn notXMobar x}, startupHook = myStartupHook |