Disable scratchpadevent hook
This commit is contained in:
parent
93856513da
commit
50b34bff7a
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user