twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix EZConfig documentation

Browse Source
This commit is contained in:
Devin Mullins 2007-11-14 12:04:42 +00:00
parent 7712f02ef8
commit 5f6a80ca7a
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Config/CustomKeys.hs
View File

@ -8,7 +8,7 @@
-- --
-- Customized key bindings. -- Customized key bindings.
-- --
-- (See also "XMonad.Util.EZConfig" in XMonadContrib.) -- (See also "XMonad.Util.EZConfig" in xmonad-contrib.)
-------------------------------------------------------------------- --------------------------------------------------------------------
module XMonad.Config.CustomKeys ( module XMonad.Config.CustomKeys (

8
XMonad/Util/EZConfig.hs
View File

@ -8,6 +8,8 @@
-- --
-- Useful helper functions for amending the defaultConfig. -- Useful helper functions for amending the defaultConfig.
-- --
-- (See also "XMonad.Config.CustomKeys" in xmonad-contrib.)
--
-------------------------------------------------------------------- --------------------------------------------------------------------
module XMonad.Util.EZConfig ( module XMonad.Util.EZConfig (
@ -21,6 +23,7 @@ import XMonad
import qualified Data.Map as M import qualified Data.Map as M
import Graphics.X11.Xlib import Graphics.X11.Xlib
-- |
-- Add or override keybindings from the existing set. Example use: -- Add or override keybindings from the existing set. Example use:
-- > main = xmonad $ defaultConfig { terminal = "urxvt" } -- > main = xmonad $ defaultConfig { terminal = "urxvt" }
-- > `additionalKeys` -- > `additionalKeys`
@ -36,6 +39,7 @@ additionalKeys :: XConfig a -> [((ButtonMask, KeySym), X ())] -> XConfig a
additionalKeys conf keysList = additionalKeys conf keysList =
conf { keys = \cnf -> M.union (M.fromList keysList) (keys conf cnf) } conf { keys = \cnf -> M.union (M.fromList keysList) (keys conf cnf) }
-- |
-- Remove standard keybidings you're not using. Example use: -- Remove standard keybidings you're not using. Example use:
-- > main = xmonad $ defaultConfig { terminal = "urxvt" } -- > main = xmonad $ defaultConfig { terminal = "urxvt" }
-- > `removeKeys` [(mod1Mask .|. shiftMask, n) | n <- [xK_1 .. xK_9]] -- > `removeKeys` [(mod1Mask .|. shiftMask, n) | n <- [xK_1 .. xK_9]]
@ -43,12 +47,12 @@ removeKeys :: XConfig a -> [(ButtonMask, KeySym)] -> XConfig a
removeKeys conf keyList = removeKeys conf keyList =
conf { keys = \cnf -> keys conf cnf `M.difference` M.fromList (zip keyList $ return ()) } conf { keys = \cnf -> keys conf cnf `M.difference` M.fromList (zip keyList $ return ()) }
-- Like additionalKeys, but for mouseBindings. -- | Like additionalKeys, but for mouseBindings.
additionalMouseBindings :: XConfig a -> [((ButtonMask, Button), Window -> X ())] -> XConfig a additionalMouseBindings :: XConfig a -> [((ButtonMask, Button), Window -> X ())] -> XConfig a
additionalMouseBindings conf mouseBindingsList = additionalMouseBindings conf mouseBindingsList =
conf { mouseBindings = \cnf -> M.union (M.fromList mouseBindingsList) (mouseBindings conf cnf) } conf { mouseBindings = \cnf -> M.union (M.fromList mouseBindingsList) (mouseBindings conf cnf) }
-- Like removeKeys, but for mouseBindings. -- | Like removeKeys, but for mouseBindings.
removeMouseBindings :: XConfig a -> [(ButtonMask, Button)] -> XConfig a removeMouseBindings :: XConfig a -> [(ButtonMask, Button)] -> XConfig a
removeMouseBindings conf mouseBindingList = removeMouseBindings conf mouseBindingList =
conf { mouseBindings = \cnf -> mouseBindings conf cnf `M.difference` conf { mouseBindings = \cnf -> mouseBindings conf cnf `M.difference`