From a6b27e832885dede040aa589397ec3ec45cd66d0 Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>
Date: Wed, 18 Nov 2020 18:10:34 +0530
Subject: added some layouts and keybinding to sink windows

---
 xmonad.hs | 33 ++++++++++++++-------------------
 1 file changed, 14 insertions(+), 19 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index c47df6a8..9147eff3 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -6,8 +6,7 @@ import qualified XMonad.StackSet as W
 import XMonad.Actions.CycleWS (moveTo, shiftTo, WSType(..), nextScreen, prevScreen)
 import XMonad.Actions.CopyWindow
 import XMonad.Actions.CycleWS
--- import XMonad.Actions.Navigation2D
-import XMonad.Actions.CycleSelectedLayouts
+--import XMonad.Actions.CycleSelectedLayouts
 import XMonad.Actions.GridSelect
 import XMonad.Actions.SwapWorkspaces
 import XMonad.Actions.WindowBringer
@@ -16,27 +15,22 @@ import XMonad.Actions.MouseResize
 -- layouts modifiers
 import XMonad.Layout.Spacing
 import XMonad.Layout.LayoutModifier
--- import XMonad.Layout.LayoutCombinators ((|||))
--- import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(Toggle))
--- import XMonad.Layout.Gaps
--- import XMonad.Layout.ShowWName
 import XMonad.Layout.WindowNavigation as WN
-import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..))
 
 -- Layouts
+import XMonad.Layout.AvoidFloats
 import XMonad.Layout.BinarySpacePartition as BSP
+import XMonad.Layout.CenteredMaster
 import XMonad.Layout.Grid
 import XMonad.Layout.ThreeColumns
--- import XMonad.Layout.SimplestFloat
+import XMonad.Layout.TwoPane
 import XMonad.Layout.Spiral
 import XMonad.Layout.ResizableTile
 import XMonad.Layout.Tabbed
 
-
 -- hooks
 import XMonad.Hooks.SetWMName
 import XMonad.Hooks.ManageDocks
--- import XMonad.Hooks.WallpaperSetter
 
 -- utilities
 import XMonad.Util.SpawnOnce
@@ -52,7 +46,7 @@ myStartupHook = do
           spawnOnce "deadd-notification-center &"
 --           spawnOnce "firefox &"
           spawnOnce "sxhkd &"
-          setWMName "XMonad"
+          setWMName "AnimeTitsWM"
           setDefaultCursor xC_left_ptr
 
 
@@ -95,6 +89,7 @@ myKeys = [
          ((mod4Mask, xK_Return), spawn myTerminal)
          , ((mod1Mask, xK_w), kill1)
          , ((mod1Mask .|. shiftMask, xK_k), kill1)
+         , ((mod1Mask, xK_o), withFocused $ windows . W.sink) -- unfloat windows
 
          -- view prev/next workspaces
          , ((mod1Mask, xK_h), prevWS)
@@ -142,7 +137,7 @@ myKeys = [
          , ((0, xK_Insert), pasteSelection)
 
          -- toggle layouts
-         , ((mod4Mask,  xK_t ),   cycleThroughLayouts ["Grid", "Mirror Tall"])
+--          , ((mod4Mask,  xK_t ),   cycleThroughLayouts ["Grid", "Mirror Tall"])
 
          -- toggle bars
          , ((mod1Mask, xK_backslash), sendMessage ToggleStruts) -- toggle both bars
@@ -164,7 +159,9 @@ myKeys = [
          , ((mod1Mask,                              xK_s     ), sendMessage BSP.Swap)
 --          , ((mod4Mask .|. shiftMask .|. controlMask , xK_j     ), sendMessage $ SplitShift Prev)
 --          , ((mod4Mask .|. shiftMask .|. controlMask , xK_k     ), sendMessage $ SplitShift Next)
-         
+
+ 
+
          ] ++ [ -- for extra workspace(s)
          ((myModMask, key), (windows $ W.greedyView ws))
          | (key,ws) <- myExtraWorkspaces
@@ -184,7 +181,7 @@ wGap = 2
 
 myGap = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True
  
-myLayouts = avoidStruts $ mouseResize $ windowArrange $ windowNavigation $ myGap $ Grid ||| emptyBSP -- $ myGaps
+myLayouts = avoidStruts $ mouseResize $ windowNavigation $ myGap $ emptyBSP ||| ThreeColMid 1 (3/100) (1/2) ||| Grid ||| topRightMaster emptyBSP ||| TwoPane (3/100) (1/2) ||| ThreeCol 1 (3/100) (1/2) ||| ThreeCol 2 (3/100) (1/2)
 
 myLayoutHook = myLayouts
 
@@ -202,12 +199,10 @@ main = do
   normalBorderColor  = nBorder,
   focusedBorderColor = fBorder,
 --  mouseBindings      = myMouseBindings,
-
-  -- hooks, layouts
   layoutHook         = myLayoutHook,
-  --manageHook         = myManageHook,
-  --handleEventHook    = myEventHook,
--- logHook            = wallpaperSetterHook,
+  -- manageHook         = myManageHook,
+  -- handleEventHook    = myEventHook,
+  -- logHook            = wallpaperSetterHook,
   startupHook        = myStartupHook
 } `additionalKeys` myKeys  
 
-- 
cgit v1.2.3