Disable scratchpadevent hook

This commit is contained in:
2023-02-07 19:46:54 -07:00
parent 93856513da
commit 50b34bff7a

View File

@@ -61,6 +61,7 @@ import XMonad.Hooks.Focus hiding (currentWorkspace)
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.Minimize import XMonad.Hooks.Minimize
import XMonad.Hooks.Place
import XMonad.Hooks.TaffybarPagerHints import XMonad.Hooks.TaffybarPagerHints
import XMonad.Hooks.WorkspaceHistory import XMonad.Hooks.WorkspaceHistory
import XMonad.Layout.Accordion import XMonad.Layout.Accordion
@@ -98,7 +99,10 @@ myConfig = def
{ modMask = mod4Mask { modMask = mod4Mask
, terminal = "alacritty" , terminal = "alacritty"
, manageHook , manageHook
= namedScratchpadManageHook scratchpads = composeAll [ placeHook (fixed (0.5, 0.5))
, isDialog --> doFloat
, isFullscreen --> doFullFloat
]
, layoutHook = myLayoutHook , layoutHook = myLayoutHook
, borderWidth = 0 , borderWidth = 0
, logHook , logHook
@@ -109,9 +113,10 @@ myConfig = def
<> logHook def <> logHook def
, handleEventHook , handleEventHook
= followIfNoMagicFocus = followIfNoMagicFocus
<> minimizeEventHook -- <> minimizeEventHook
-- <> restartEventHook -- <> restartEventHook
<> myScratchPadEventHook -- XXX: Disabled because this is annoying as shit
-- <> myScratchPadEventHook
, startupHook = myStartup , startupHook = myStartup
, keys = customKeys (const []) addKeys , keys = customKeys (const []) addKeys
} }
@@ -275,6 +280,7 @@ myStartup = do
setToggleActiveAll AVOIDSTRUTS True setToggleActiveAll AVOIDSTRUTS True
setToggleActiveAll GAPS True setToggleActiveAll GAPS True
setToggleActiveAll NOBORDERS True setToggleActiveAll NOBORDERS True
writeToHomeDirLog "This is real"
hostName <- io getHostName hostName <- io getHostName
M.findWithDefault (return ()) hostName hostNameToAction M.findWithDefault (return ()) hostName hostNameToAction