aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Util/CustomKeys.hs
diff options
context:
space:
mode:
authorDaniel Wagner <daniel@wagner-home.com>2013-05-28 02:58:25 +0200
committerDaniel Wagner <daniel@wagner-home.com>2013-05-28 02:58:25 +0200
commitfe066e8e9ca5326dd146630a6d729fae51af12cf (patch)
treec5596ebcdaef64f3421ea5e5b5fb2a9409ba09f6 /XMonad/Util/CustomKeys.hs
parentd65d41e4b629413c2d8b9fe3e2b03f5ae46e6cde (diff)
downloadXMonadContrib-fe066e8e9ca5326dd146630a6d729fae51af12cf.tar.gz
XMonadContrib-fe066e8e9ca5326dd146630a6d729fae51af12cf.tar.xz
XMonadContrib-fe066e8e9ca5326dd146630a6d729fae51af12cf.zip
eliminate references to defaultConfig
Ignore-this: 37ae613e4b943e99c5200915b9d95e58 darcs-hash:20130528005825-76d51-89eaf6f1aeeb02086371f9c4ae2afade984f62e0.gz
Diffstat (limited to '')
-rw-r--r--XMonad/Util/CustomKeys.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/Util/CustomKeys.hs b/XMonad/Util/CustomKeys.hs
index e2e73ef..49c33d9 100644
--- a/XMonad/Util/CustomKeys.hs
+++ b/XMonad/Util/CustomKeys.hs
@@ -31,7 +31,7 @@ import qualified Data.Map as M
--
-- 2. Set key bindings with 'customKeys':
--
--- > main = xmonad defaultConfig { keys = customKeys delkeys inskeys }
+-- > main = xmonad def { keys = customKeys delkeys inskeys }
-- > where
-- > delkeys :: XConfig l -> [(KeyMask, KeySym)]
-- > delkeys XConfig {modMask = modm} =
@@ -53,17 +53,17 @@ import qualified Data.Map as M
-- > import System.Exit
-- > import qualified Data.Map as M
-- >
--- > main = xmonad defaultConfig {
+-- > main = xmonad def {
-- > keys = \_ -> M.fromList [
-- > -- Let me out of here! I want my KDE back! Help! Help!
-- > ( (0, xK_Escape), io (exitWith ExitSuccess) ) ] }
--- | Customize 'XMonad.Config.defaultConfig' -- delete needless
+-- | Customize 'XMonad.Config.def' -- delete needless
-- shortcuts and insert those you will 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
+customKeys = customKeysFrom def
-- | General variant of 'customKeys': customize key bindings of
-- third-party configuration.