afonso/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

[FIX] fix xmonad border on fullscreen window

Browse source
This commit is contained in:
Afonso Franco 2023-02-13 03:02:55 +00:00
parent ef3a1baada
commit 69628ae9b3
Signed by: afonso
GPG key ID: C459E0BB3DCEE899
1 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
.config/xmonad/xmonad.hs
View file

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