aboutsummaryrefslogtreecommitdiff
path: root/XMonad
diff options
context:
space:
mode:
authorVidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>2021-01-03 21:20:01 +0530
committerVidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>2021-01-03 21:20:01 +0530
commit2c4b86d0bb2a8dd0379af9fcd15ee71d88b2ea0f (patch)
treee0f169f42480cc1119576f655579877481250708 /XMonad
parent53cbe23a2f96408de569f600a0ec6022f9fe65f0 (diff)
added fullscreen layouthook and renamed the layouts
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/xmonad.hs15
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