add support for locking the screen via M-S-l

This commit is contained in:
David Alexander Majnemer 2009-02-08 22:46:12 -06:00
parent b3e074a7ff
commit 4da2e78619

View file

@ -41,4 +41,5 @@ main = do
`additionalKeysP` `additionalKeysP`
[ ("M-p", shellPrompt defaultXPConfig { position = Top }) [ ("M-p", shellPrompt defaultXPConfig { position = Top })
, ("M-b", sendMessage ToggleStruts) , ("M-b", sendMessage ToggleStruts)
, ("M-S-l", spawn "~/bin/lock")
] ]