CustomKeys.hs: moved into `Util' directory

I still wonder why do we need all those configuration examples. :)

darcs-hash:20071114153418-ae588-f5280e0c2f0de7aebec97b81f934b2529aba4f0f.gz

1 files changed, 0 insertions, 76 deletions

diff --git a/XMonad/Config/CustomKeys.hs b/XMonad/Config/CustomKeys.hs
deleted file mode 100644
index a35ec97..0000000
--- a/XMonad/Config/CustomKeys.hs
+++ /dev/null
@@ -1,76 +0,0 @@
---------------------------------------------------------------------
--- |
--- Module     : XMonad.Config.CustomKeys
--- Copyright  : (c) 2007 Valery V. Vorotyntsev
--- License    : BSD3-style (see LICENSE)
---
--- Maintainer : Valery V. Vorotynsev <valery.vv@gmail.com>
---
--- Customized key bindings.
---
--- (See also "XMonad.Util.EZConfig" in xmonad-contrib.)
---------------------------------------------------------------------
-
-module XMonad.Config.CustomKeys (
-                                  -- * Usage
-                                  -- $usage
-                                  customKeys
-                                , customKeysFrom
-                                ) where
-
-import XMonad
-import Graphics.X11.Xlib
-
-import Control.Monad.Reader
-import qualified Data.Map as M
-
--- $usage
---
--- 1. In @~\/.xmonad\/xmonad.hs@ add:
---
--- > import XMonad.Config.CustomKeys
---
--- 2. Set key bindings with 'customKeys':
---
--- > main = xmonad defaultConfig { keys = customKeys delkeys inskeys }
--- >     where
--- >       delkeys :: XConfig l -> [(KeyMask, KeySym)]
--- >       delkeys XConfig {modMask = modm} =
--- >           -- we're preferring Futurama to Xinerama here
--- >           [ (modm .|. m, k) | (m, k) <- zip [0, shiftMas] [xK_w, xK_e, xK_r] ]
--- >
--- >       inskeys :: XConfig l -> [((KeyMask, KeySym), X ())]
--- >       inskeys conf@(XConfig {modMask = modm}) =
--- >           [ ((mod1Mask,             xK_F2  ), spawn $ terminal conf)
--- >           , ((modm .|. controlMask, xK_F11 ), spawn "xscreensaver-command -lock")
--- >           , ((mod1Mask,             xK_Down), spawn "amixer set Master 1-")
--- >           , ((mod1Mask,             xK_Up  ), spawn "amixer set Master 1+")
--- >           ]
-
--- | Customize 'XMonad.Config.defaultConfig' -- delete needless
--- shortcuts and insert the ones you use.
-customKeys :: (XConfig Layout -> [(KeyMask, KeySym)]) -- ^ shortcuts to delete
-           -> (XConfig Layout -> [((KeyMask, KeySym), X ())]) -- ^ key bindings to insert
-           -> XConfig Layout -> M.Map (KeyMask, KeySym) (X ())
-customKeys = customKeysFrom defaultConfig
-
--- | General variant of 'customKeys': customize key bindings of
--- third-party configuration.
-customKeysFrom :: XConfig l -- ^ original configuration
-               -> (XConfig Layout -> [(KeyMask, KeySym)]) -- ^ shortcuts to delete
-               -> (XConfig Layout -> [((KeyMask, KeySym), X ())]) -- ^ key bindings to insert
-               -> XConfig Layout -> M.Map (KeyMask, KeySym) (X ())
-customKeysFrom conf = (runReader .) . customize conf
-
-customize :: XConfig l
-          -> (XConfig Layout -> [(KeyMask, KeySym)])
-          -> (XConfig Layout -> [((KeyMask, KeySym), X ())])
-          -> Reader (XConfig Layout) (M.Map (KeyMask, KeySym) (X ()))
-customize conf ds is = Reader (keys conf) >>= delete ds >>= insert is
-
-delete :: (MonadReader r m, Ord a) => (r -> [a]) -> M.Map a b -> m (M.Map a b)
-delete dels kmap = asks dels >>= return . foldr M.delete kmap
-
-insert :: (MonadReader r m, Ord a) =>
-          (r -> [(a, b)]) -> M.Map a b -> m (M.Map a b)
-insert ins kmap = asks ins >>= return . foldr (uncurry M.insert) kmap