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

chore(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 d58489c359
commit 69f03f1c71
Signed by: afonso
SSH key fingerprint: SHA256:gkVPzsQQJzqi21ntQBV6pXTx4bYI53rFGI4XtvCpwd4
1 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
.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)
@ -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}