From 21634dc79c3c6abd7d75b3a0a4be060f1a9b9786 Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>
Date: Wed, 18 Nov 2020 18:51:43 +0530
Subject: some minor changes, this config is probably final for the time being

---
 xmonad.hs | 19 ++++++-------------
 1 file changed, 6 insertions(+), 13 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index 9147eff3..09fe8b6b 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -6,7 +6,6 @@ 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.CycleSelectedLayouts
 import XMonad.Actions.GridSelect
 import XMonad.Actions.SwapWorkspaces
 import XMonad.Actions.WindowBringer
@@ -73,18 +72,19 @@ myBrowser = "firefox"
 
 -- wm variables
 
-nBorder = "#bf00ff"
+nBorder = "#3804f4" -- "#bf00ff"
 fBorder = "#FB027F"
 
 myBorderWidth = 2
 
+sGap = 0 -- screen gap
+wGap = 1 -- window gap
+
 myExtraWorkspaces = [(xK_0, "10")] -- ,(xK_minus, "tmp"),(xK_equal, "swap")]
 myWorkspaces = ["1","2","3","4","5","6","7","8", "9"] ++ (map snd myExtraWorkspaces)
 
 
 -- keybindings
-
-
 myKeys = [
          ((mod4Mask, xK_Return), spawn myTerminal)
          , ((mod1Mask, xK_w), kill1)
@@ -136,9 +136,6 @@ myKeys = [
          -- paste x selection
          , ((0, xK_Insert), pasteSelection)
 
-         -- toggle layouts
---          , ((mod4Mask,  xK_t ),   cycleThroughLayouts ["Grid", "Mirror Tall"])
-
          -- toggle bars
          , ((mod1Mask, xK_backslash), sendMessage ToggleStruts) -- toggle both bars
          , ((mod1Mask, xK_bracketleft), sendMessage $ ToggleStrut D) -- toggle bottom bar
@@ -175,13 +172,9 @@ myKeys = [
 
 
 -- layouts
-
-sGap = 2
-wGap = 2
-
 myGap = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True
  
-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)
+myLayouts = avoidStruts $ mouseResize $ windowNavigation $ myGap $ emptyBSP ||| ThreeColMid 1 (3/100) (1/2) ||| Grid ||| TwoPane (3/100) (1/2) ||| ThreeCol 1 (3/100) (1/2) ||| ThreeCol 2 (3/100) (1/2) ||| topRightMaster emptyBSP
 
 myLayoutHook = myLayouts
 
@@ -198,7 +191,7 @@ main = do
   workspaces         = myWorkspaces,
   normalBorderColor  = nBorder,
   focusedBorderColor = fBorder,
---  mouseBindings      = myMouseBindings,
+  -- mouseBindings      = myMouseBindings,
   layoutHook         = myLayoutHook,
   -- manageHook         = myManageHook,
   -- handleEventHook    = myEventHook,
-- 
cgit v1.2.3