add support for window searching

This commit is contained in:
dave 2009-03-30 00:44:06 -05:00
parent 80297aed6f
commit dd29f27e70

View file

@ -11,6 +11,7 @@ import XMonad.Util.EZConfig(additionalKeysP)
import XMonad.Prompt import XMonad.Prompt
import XMonad.Prompt.Shell(shellPrompt) import XMonad.Prompt.Shell(shellPrompt)
import XMonad.Prompt.Window
import System.IO(hPutStrLn) import System.IO(hPutStrLn)
@ -40,6 +41,8 @@ main = do
} }
`additionalKeysP` `additionalKeysP`
[ ("M-p", shellPrompt defaultXPConfig { position = Top }) [ ("M-p", shellPrompt defaultXPConfig { position = Top })
, ("M-S-a", windowPromptGoto defaultXPConfig { position = Top })
, ("M-a", windowPromptBring defaultXPConfig { position = Top })
, ("M-b", sendMessage ToggleStruts) , ("M-b", sendMessage ToggleStruts)
, ("M-S-l", spawn "~/bin/lock") , ("M-S-l", spawn "~/bin/lock")
] ]