From 69f03f1c71d90f73b412a4cb38af45f5ee9432de Mon Sep 17 00:00:00 2001
From: afranco <afonso@francof.net>
Date: Mon, 13 Feb 2023 03:02:55 +0000
Subject: [PATCH] chore(FIX): fix xmonad border on fullscreen window

---
 .config/xmonad/xmonad.hs | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/.config/xmonad/xmonad.hs b/.config/xmonad/xmonad.hs
index c57e96a..4ced5b3 100644
--- a/.config/xmonad/xmonad.hs
+++ b/.config/xmonad/xmonad.hs
@@ -6,7 +6,9 @@ import XMonad.Hooks.DynamicLog
 import XMonad.Util.Loggers (logLayoutOnScreen, logTitleOnScreen, shortenL, wrapL, xmobarColorL)
 import XMonad.Hooks.SetWMName
 import XMonad.Actions.SpawnOn
+import XMonad.Actions.UpdateFocus (focusUnderPointer)
 import XMonad.Hooks.StatusBar
+import XMonad.Layout.NoBorders
 import qualified XMonad.StackSet as W
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Util.Run
@@ -29,6 +31,12 @@ myWebBrowser    = "firefox"
 myFocusFollowsMouse :: Bool
 myFocusFollowsMouse = True
 
+myFocusUnderPointer action = do
+                            c <- focusUnderPointer
+                            a <- action
+                            b <- focusUnderPointer
+                            return ()
+
 myClickJustFocuses :: Bool
 myClickJustFocuses = False
 
@@ -48,7 +56,7 @@ myModMask       = mod4Mask
 
 myKeys :: [(String, X ())]
 myKeys =
-    [ ("M-x" ,spawn myTerminal )
+    [ ("M-x" ,myFocusUnderPointer  (spawn myTerminal) )
     , ("M-p", spawn "rofi -show drun")
     , ("M-s", spawn "selected=$(ls ~/scripts/|rofi -dmenu -p \"Run: \") && bash ~/.config/rofi/scripts/$selected")
     , ("M-b", spawn myWebBrowser)
@@ -59,7 +67,7 @@ myKeys =
     ,("<XF86MonBrightnessUp>", spawn "lux -a 10%")
     ,("<XF86MonBrightnessDown>", spawn "lux -s 10%")
     ,("M-n", spawn $ myTerminal ++  " -e nmtui")
-    , ("M-q", kill)
+    , ("M-q",  kill)
     , ("M-S-<Space>", sendMessage NextLayout)
     , ("M-<Down>", windows W.focusDown)
     , ("M-<Up>", windows W.focusUp  )
@@ -172,7 +180,7 @@ myConfig =  def
       normalBorderColor  = myNormalBorderColor,
       focusedBorderColor = myFocusedBorderColor,
      -- keys               = myKeys,
-      layoutHook         = spacingWithEdge 10 $ myLayout,
+      layoutHook         = smartBorders . spacingWithEdge 10 $ myLayout,
       manageHook         = manageSpawn <+> myManageHook <+> manageHook def,
       handleEventHook    = myEventHook <+> fullscreenEventHook <+> swallowEventHook (className=?"Alacritty") (return True) ,
       startupHook        = myStartupHook}