From 6d2d3006806eb73959a6c5d68896f7bc05c6598e Mon Sep 17 00:00:00 2001 From: Jason Creighton Date: Wed, 6 Jun 2007 02:50:56 +0200 Subject: move extraModifiers/cleanMask to Operations.hs so XMonadContrib can use them darcs-hash:20070606005056-b9aa7-96a3bb09f8e6dabd707eed7b5f19d733e5e1778e.gz --- Main.hs | 6 ------ 1 file changed, 6 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index d7ec4fd..03cf277 100644 --- a/Main.hs +++ b/Main.hs @@ -130,12 +130,6 @@ grabButtons dpy rootw = do where grab button mask = grabButton dpy button mask rootw False buttonPressMask grabModeAsync grabModeSync none none -extraModifiers :: [KeyMask] -extraModifiers = [0, numlockMask, lockMask, numlockMask .|. lockMask ] - -cleanMask :: KeyMask -> KeyMask -cleanMask = (complement (numlockMask .|. lockMask) .&.) - -- --------------------------------------------------------------------- -- | Event handler. Map X events onto calls into Operations.hs, which -- modify our internal model of the window manager state. -- cgit v1.2.3