From b0ad81e7ba9407cc49b245f4f32d94495f86421c Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <vidhukant@protonmail.ch>
Date: Fri, 20 May 2022 21:45:12 +0530
Subject: Modularised my XMonad Config

---
 .config/XMonad/lib/Hooks.hs | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 .config/XMonad/lib/Hooks.hs

(limited to '.config/XMonad/lib/Hooks.hs')

diff --git a/.config/XMonad/lib/Hooks.hs b/.config/XMonad/lib/Hooks.hs
new file mode 100644
index 0000000..858737d
--- /dev/null
+++ b/.config/XMonad/lib/Hooks.hs
@@ -0,0 +1,42 @@
+module Hooks where
+
+import XMonad
+
+import XMonad.Layout.Spacing
+import XMonad.Layout.WindowNavigation as WN
+import XMonad.Layout.Maximize
+import XMonad.Layout.NoBorders
+
+import XMonad.Layout.BinarySpacePartition as BSP
+import XMonad.Layout.Grid
+import XMonad.Layout.Tabbed
+
+import XMonad.Hooks.SetWMName
+import XMonad.Hooks.ManageDocks
+
+import XMonad.Util.SpawnOnce
+import XMonad.Util.Cursor
+import XMonad.Util.NamedScratchpad
+
+import Defaults
+import Scratchpads
+
+myManageHook = namedScratchpadManageHook myScratchpads
+  <+> manageDocks <+> composeAll [
+    className =? "discord"     --> doShift ( myWorkspaces !! 9 )
+    , className =? "vlc"       --> doShift ( myWorkspaces !! 6 )
+  ]
+
+myLayoutHook = avoidStruts $ maximize $ windowNavigation $ smartBorders $ myGap $ (
+    emptyBSP ||| tabbed shrinkText myTabTheme ||| Grid
+  )
+
+myStartupHook = do
+  spawnOnce "xmodmap /home/zt/.Xmodmap"
+  spawnOnce "picom"
+  spawnOnce "dunst"
+  spawnOnce "polystart"
+  spawnOnce "nitrogen --restore"
+  spawnOnce "cbatticon"
+  setWMName "LG3D"
+  setDefaultCursor xC_left_ptr
-- 
cgit v1.2.3