From c32bbccd00aee2d6709253c8175c81d0072ee4b5 Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <vidhukant@protonmail.ch>
Date: Fri, 20 May 2022 23:10:49 +0530
Subject: applied keybindings and defaults

---
 .config/XMonad/xmonad.hs | 51 +++++++-----------------------------------------
 1 file changed, 7 insertions(+), 44 deletions(-)

(limited to '.config/XMonad/xmonad.hs')

diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs
index 095bc1e..45e0c25 100644
--- a/.config/XMonad/xmonad.hs
+++ b/.config/XMonad/xmonad.hs
@@ -1,53 +1,14 @@
 import XMonad
-import qualified XMonad.StackSet as W
-import XMonad.ManageHook
-import System.Exit
-import System.IO
 
--- data
-import Data.Tree
-import qualified Data.Map as M
-
--- actions
-import XMonad.Actions.CopyWindow
-import XMonad.Actions.CycleWS
-import XMonad.Actions.GridSelect
-import XMonad.Actions.SwapWorkspaces
-import qualified XMonad.Actions.TreeSelect as TS
-
--- layout modifiers
-import XMonad.Layout.Spacing
-import XMonad.Layout.WindowNavigation as WN
-import XMonad.Layout.Maximize
 import XMonad.Layout.Fullscreen
-import XMonad.Layout.NoBorders
-
--- Layouts
-import XMonad.Layout.BinarySpacePartition as BSP
-import XMonad.Layout.Grid
-import XMonad.Layout.Tabbed
 
--- hooks
-import XMonad.Hooks.SetWMName
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.EwmhDesktops
 
-import XMonad.Hooks.DynamicLog
--- DynamicLog replacement(s)
--- import XMonad.Hooks.StatusBar
--- import XMonad.Hooks.StatusBar.PP
-
--- utilities
-import XMonad.Util.Run
-import XMonad.Util.SpawnOnce
 import XMonad.Util.EZConfig
-import XMonad.Util.Cursor
-import XMonad.Util.NamedScratchpad
 
--- myLibs
 import Keybindings
 import Defaults
-import Scratchpads
 import Hooks
 
 main :: IO ()
@@ -55,14 +16,16 @@ main = do
   -- lemonBar <- spawnPipe myLemonbar
   xmonad $ ewmh $ docks $ fullscreenSupport def {
     focusFollowsMouse  = True
-    , borderWidth        = 2
+    , borderWidth        = myBorderWidth
     , modMask            = myModMask
     , workspaces         = myWorkspaces
-    , normalBorderColor  = "#130F23"
-    , focusedBorderColor = "#c44cf2"
+    , normalBorderColor  = myBorder
+    , focusedBorderColor = myBorder'
     , layoutHook         = myLayoutHook
     , startupHook        = myStartupHook
     , manageHook         = myManageHook
     -- , logHook            = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn lemonBar x}
-
-}
+  }
+    `additionalKeys`  myKeybindings
+    `additionalKeysP` myKeybindingsP
+    `additionalMouseBindings` myMouseKeybindings
-- 
cgit v1.2.3