（その１２）customKeys関数

key_conf002.hs

import XMonad
import XMonad.Util.CustomKeys
 
main :: IO ()
main = xmonad defaultConfig { terminal = "urxvt"
                            , modMask = mod4Mask
                            , keys = customKeys delkeys addkeys
                            }
       where
        delkeys XConfig {modMask = modkey} = [(modkey .|. shiftMask, xK_slash)
                                             ,(modkey, xK_question)]
        addkeys XConfig {modMask = modkey} = [((modkey, xK_q), spawn "killall dzen2; xmonad --recompile && xmonad --restart")]