Disable scratchpadevent hook

This commit is contained in:
Ivan Malison 2023-02-07 19:46:54 -07:00
parent 93856513da
commit 50b34bff7a
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

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