From 45be68a3fdc8d51a9505e7ca75d02df58059c610 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 --- 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