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

CustomKeys.hs: Fix documentation

Browse Source 
Fix code example in documentation. (Wrong implementation of `delkeys`.)
Thanks to Lasse R.H. Nielsen for reporting the problem!
This commit is contained in:
Valery V. Vorotyntsev 2016-11-30 15:42:17 +02:00
parent 16b80a4331
commit c392a407bb
1 changed files with 10 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
XMonad/Util/CustomKeys.hs
View File

@ -4,11 +4,9 @@
-- Copyright : (c) 2007 Valery V. Vorotyntsev -- Copyright : (c) 2007 Valery V. Vorotyntsev
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
-- Maintainer : Valery V. Vorotynsev <valery.vv@gmail.com>
--
-- Customized key bindings. -- Customized key bindings.
-- --
-- (See also "XMonad.Util.EZConfig" in xmonad-contrib.) -- See also "XMonad.Util.EZConfig" in xmonad-contrib.
-------------------------------------------------------------------- --------------------------------------------------------------------
module XMonad.Util.CustomKeys ( module XMonad.Util.CustomKeys (
@ -25,38 +23,30 @@ import qualified Data.Map as M
-- $usage -- $usage
-- --
-- 1. In @~\/.xmonad\/xmonad.hs@ add: -- In @~\/.xmonad\/xmonad.hs@ add:
-- --
-- > import XMonad.Util.CustomKeys -- > import XMonad.Util.CustomKeys
-- --
-- 2. Set key bindings with 'customKeys': -- Set key bindings with 'customKeys':
-- --
-- > main = xmonad def { keys = customKeys delkeys inskeys } -- > main = xmonad def { keys = customKeys delkeys inskeys }
-- > where -- > where
-- > delkeys :: XConfig l -> [(KeyMask, KeySym)] -- > delkeys :: XConfig l -> [(KeyMask, KeySym)]
-- > delkeys XConfig {modMask = modm} = -- > delkeys XConfig {modMask = modm} =
-- > -- we're preferring Futurama to Xinerama here -- > [ (modm .|. shiftMask, xK_Return) -- > terminal
-- > [ (modm .|. m, k) | (m, k) <- zip [0, shiftMask] [xK_w, xK_e, xK_r] ] -- > , (modm .|. shiftMask, xK_c) -- > close the focused window
-- > ]
-- > ++
-- > [ (modm .|. m, k) | m <- [0, shiftMask], k <- [xK_w, xK_e, xK_r] ]
-- > -- >
-- > inskeys :: XConfig l -> [((KeyMask, KeySym), X ())] -- > inskeys :: XConfig l -> [((KeyMask, KeySym), X ())]
-- > inskeys conf@(XConfig {modMask = modm}) = -- > inskeys conf@(XConfig {modMask = modm}) =
-- > [ ((mod1Mask, xK_F2 ), spawn $ terminal conf) -- > [ ((mod1Mask, xK_F2 ), spawn $ terminal conf) -- mod1-f2 %! Run a terminal emulator
-- > , ((modm, xK_Delete), kill) -- %! Close the focused window
-- > , ((modm .|. controlMask, xK_F11 ), spawn "xscreensaver-command -lock") -- > , ((modm .|. controlMask, xK_F11 ), spawn "xscreensaver-command -lock")
-- > , ((mod1Mask, xK_Down), spawn "amixer set Master 1-") -- > , ((mod1Mask, xK_Down), spawn "amixer set Master 1-")
-- > , ((mod1Mask, xK_Up ), spawn "amixer set Master 1+") -- > , ((mod1Mask, xK_Up ), spawn "amixer set Master 1+")
-- > ] -- > ]
--
-- 0 (/hidden feature/). You can always replace bindings map
-- entirely. No need to import "CustomKeys" this time:
--
-- > import XMonad
-- > import System.Exit
-- > import qualified Data.Map as M
-- >
-- > 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.def' -- delete needless -- | Customize 'XMonad.Config.def' -- delete needless
-- shortcuts and insert those you will use. -- shortcuts and insert those you will use.