From 58816ab030ef78b855e0c01036da594968310cde Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <vidhukant@protonmail.ch>
Date: Sat, 21 May 2022 21:13:48 +0530
Subject: Fixed Polybar workspaces not working through XMonad

---
 .config/XMonad/lib/Defaults.hs | 6 +++---
 .config/XMonad/lib/Hooks.hs    | 2 +-
 .config/XMonad/xmonad.hs       | 6 +++---
 3 files changed, 7 insertions(+), 7 deletions(-)

(limited to '.config/XMonad')

diff --git a/.config/XMonad/lib/Defaults.hs b/.config/XMonad/lib/Defaults.hs
index 0d751d6..c528829 100644
--- a/.config/XMonad/lib/Defaults.hs
+++ b/.config/XMonad/lib/Defaults.hs
@@ -58,10 +58,10 @@ myExtraWorkspaces = [(xK_0, "十")]
 myWorkspaces      = ["一", "二", "三", "四", "五", "六", "七", "八", "九"] ++ map snd myExtraWorkspaces
 
 -- screen gaps
-sGap = 4
-wGap = 6
+sGap = 3
+wGap = 4
 
-myGap  = spacingRaw True  (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True
+myGap  = spacingRaw True (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True
 
 myTabTheme = def {
     fontName              = myFont
diff --git a/.config/XMonad/lib/Hooks.hs b/.config/XMonad/lib/Hooks.hs
index 9464b41..b51f076 100644
--- a/.config/XMonad/lib/Hooks.hs
+++ b/.config/XMonad/lib/Hooks.hs
@@ -6,11 +6,11 @@ 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.Layout.NoBorders
 
 import XMonad.Hooks.SetWMName
 import XMonad.Hooks.ManageDocks
diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs
index a991cb8..ad75f9d 100644
--- a/.config/XMonad/xmonad.hs
+++ b/.config/XMonad/xmonad.hs
@@ -14,7 +14,7 @@ import Hooks
 
 main :: IO ()
 main = do
-  xmonad $ ewmhFullscreen $ docks def {
+  xmonad $ ewmhFullscreen $ ewmh $ docks def {
     focusFollowsMouse    = True
     , terminal           = myTerminal
     , borderWidth        = myBorderWidth
@@ -25,6 +25,6 @@ main = do
     , layoutHook         = myLayoutHook
     , startupHook        = myStartupHook
     , manageHook         = myManageHook
-  } `additionalKeys`  myKeybindings
-    `additionalKeysP` myKeybindingsP
+  } `additionalKeys`          myKeybindings
+    `additionalKeysP`         myKeybindingsP
     `additionalMouseBindings` myMouseKeybindings
-- 
cgit v1.2.3