diff options
author | Daniel Wagner <daniel@wagner-home.com> | 2013-05-28 02:58:25 +0200 |
---|---|---|
committer | Daniel Wagner <daniel@wagner-home.com> | 2013-05-28 02:58:25 +0200 |
commit | fe066e8e9ca5326dd146630a6d729fae51af12cf (patch) | |
tree | c5596ebcdaef64f3421ea5e5b5fb2a9409ba09f6 /XMonad/Util/NamedActions.hs | |
parent | d65d41e4b629413c2d8b9fe3e2b03f5ae46e6cde (diff) | |
download | XMonadContrib-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 'XMonad/Util/NamedActions.hs')
-rw-r--r-- | XMonad/Util/NamedActions.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Util/NamedActions.hs b/XMonad/Util/NamedActions.hs index 6ea4b82..7b8012c 100644 --- a/XMonad/Util/NamedActions.hs +++ b/XMonad/Util/NamedActions.hs @@ -67,7 +67,7 @@ import qualified XMonad.StackSet as W -- > import XMonad.Util.EZConfig -- > -- > main = xmonad $ addDescrKeys ((mod4Mask, xK_F1), xMessage) myKeys --- > defaultConfig { modMask = mod4Mask } +-- > def { modMask = mod4Mask } -- > -- > myKeys c = (subtitle "Custom Keys":) $ mkNamedKeymap c $ -- > [("M-x a", addName "useless message" $ spawn "xmessage foo"), @@ -191,7 +191,7 @@ smartSpace [] = [] smartSpace xs = ' ':xs _test :: String -_test = unlines $ showKm $ defaultKeysDescr XMonad.defaultConfig { XMonad.layoutHook = XMonad.Layout $ XMonad.layoutHook XMonad.defaultConfig } +_test = unlines $ showKm $ defaultKeysDescr XMonad.def { XMonad.layoutHook = XMonad.Layout $ XMonad.layoutHook XMonad.def } showKm :: [((KeyMask, KeySym), NamedAction)] -> [String] showKm keybindings = padding $ do @@ -227,7 +227,7 @@ addDescrKeys' (k,f) ks conf = keylist l = M.map getAction $ M.fromList $ ks l ^++^ [(k, shk l)] in conf { keys = keylist } --- | A version of the default keys from 'XMonad.Config.defaultConfig', but with +-- | A version of the default keys from the default configuration, but with -- 'NamedAction' instead of @X ()@ defaultKeysDescr :: XConfig Layout -> [((KeyMask, KeySym), NamedAction)] defaultKeysDescr conf@(XConfig {XMonad.modMask = modm}) = |